Ver Mensaje Individual
  #4 (permalink)  
Antiguo 05/11/2010, 12:06
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 8 meses
Puntos: 88
De acuerdo 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.