Hola...
Para mandar los datos a Excel puedes hacerlo con el ejemplo siguiente:
Private Sub Command1_Click()
Dim MyArea As Range
Set MyArea = Range(Selection.Address)
MyArea.Select
v_fils = MyArea.Rows.Count
v_cols = MyArea.Columns.Count
a_fils = v_fils
a_cols = v_cols
MyArea.Cells(a_fils, a_cols) = Text1.Text
End Sub
Asi funciona bien, puedes hacer un ciclo para que se valla ingresando el dato en la celda siguiente cada vez que apretes el boton...
Espero que te sirva...
Un saludo de SpeedCAD...
CHILE
