Copiar Datos
Hola, buenos días. Os escribo por si me podíais echar un cable con una duda que tengo en excel. Es la siguiente: Tengo un rango de celdas que contienen datos, ej. (C40:C100), y me gustaría que mediante una macro, se copiaran únicamente los registros que contengan datos, lo escribo para que lo veáis mejor:
C
40 12365
41 5468
42
43 12368
44 2684
.. ..
.. ..
Pueden contener celdas vacías, me gustaría copiar solo los datos de la columna C que contengan datos, para posteriormente pegarlos en la siguiente columna junto a otros registros. Espero haberme explicado bien, no consigo hacer exactamente lo que estoy intentando, porque al copiar todo el rango e insertarlo en el siguiente día, si desplazo las celdas hacia abajo para que no me sobrescriba, se sale del rango y no es lo que quiero, porque en el final contiene un Total. Gracias de antemano.
C
40 12365
41 5468
42
43 12368
44 2684
.. ..
.. ..
Pueden contener celdas vacías, me gustaría copiar solo los datos de la columna C que contengan datos, para posteriormente pegarlos en la siguiente columna junto a otros registros. Espero haberme explicado bien, no consigo hacer exactamente lo que estoy intentando, porque al copiar todo el rango e insertarlo en el siguiente día, si desplazo las celdas hacia abajo para que no me sobrescriba, se sale del rango y no es lo que quiero, porque en el final contiene un Total. Gracias de antemano.
1 Respuesta
Respuesta de manucas
No se si te entendí. Pero si lo que quieres es una rutina que copie las celdas no vacías de una columna, prueba con esta:
Sub copiarangolleno()
'
'Copia los valores no vacios de una columna a otra
'
Range("E1").Select
For Each celda In Range("C1:C100")
If celda <> "" Then
ActiveCell.Value = celda
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Puedes cambia el origen de los datos que en el ejemplo es C1:C100,
y el destino, en el ejemplo desde E1.
Sí resultó me lo cuentas :)
Sub copiarangolleno()
'
'Copia los valores no vacios de una columna a otra
'
Range("E1").Select
For Each celda In Range("C1:C100")
If celda <> "" Then
ActiveCell.Value = celda
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
Puedes cambia el origen de los datos que en el ejemplo es C1:C100,
y el destino, en el ejemplo desde E1.
Sí resultó me lo cuentas :)
No olvides cerrar tu pregunta.
Cierra tu pregunta. Así facilitas que otros puedan preguntar ¿vale?
