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.
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?
