Pegar en la siguiente Celda vacia

**manus** · 15/11/2010, 14:33

Buenas.

quisiera saber como hacer una macro que me permita copiar los datos de una columna, y me los copie en otra columna, pero debajo de los datos que ya tengo, es decir en la primera celda vacia de esa columna.

GRacias y Saludos.

**RORO1981** · 15/11/2010, 15:02

revisa el adjunto y comentas...

saludos desde Chile

**manus** · 15/11/2010, 15:19

Si eso es lo que quiero... gracias, pero una pregunta, donde cambio las celdas que quiero que copie o donde pegue, si por ejemlo quiero copiar de uno hoja diferente??

**RORO1981** · 15/11/2010, 16:04

este es el codigo:

Private Sub CommandButton1_Click()
Sheets("hoja1").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
With Sheets("Hoja2").Range("a" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub

para cambiar la hoja solo debes cambiar donde dice with sheets("hoja2") solo cambias "hoja2" por el nombre de la hoja que tu quieres.

para cambiar la columna donde vas a copiar range("a" & rows.count) solo cambias la "a" por la letra de la columna que tu quieras...

saludos desde chile