05/11/2010, 12:06
|
| | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 8 meses Puntos: 88 | |
Primera linea vacia(libre) Hola! Joao. Intenta con: Cita: Private Sub cmdPegar_Click()
Cells(Rows.Count, "A").End(xlUp).Offset(1).Select 'Busca celda vacía
ActiveSheet.Paste 'Pega lo seleccionado
End Sub Saludos, Cacho. |