Visual Basic - Andres Escobar

Hola Andres

Es posible, me ayudes con un problema que estoy teniendo

En mi caso tengo un formulario vb, con algunos textbox y un boton, ingreso los datos de los textbox a una planilla excel, pero la verdad no se como hacer para que al ingresar un dato nuevo me lo copie a continuacion del que ya ingrese y así hacia abajo, es para crear una base de datos de proveedores.

EL CODIGO

Public XL As excel.Workbook 'Excel.Workbook hace referencia a un libro de excel

Private Sub Command1_Click()

Set XL = GetObject(App.Path & "\Proveedores.xls")
XL.Application.Visible = True
XL.Application.Windows(1).Visible = True
XL.Application.Sheets("hoja1").Select '
XL.Application.ActiveSheet.Cells(2, 1).Value = Val(Text1.Text)
XL.Application.ActiveSheet.Cells(2, 2).Value = Text2
XL.Application.DisplayAlerts = False
XL.Application.ActiveWorkbook.Save
XL.Application.ActiveWorkbook.Saved = False
XL.Application.Quit

' Con el siguiente código limpiamos los Textbox, una vez usados.
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next

End Sub

Gracias Andres

Define dos variable una para contar la Fila por la que va y otro para contra la Columna en la que quieres poner los datos y lo primero que tines que hacer es detectar en que fila en que debes de empezar
En tu ejemplo con dos columnas:

Dim Fila as Long
Dim Columna as Long
Fila =1
Columna=1

do Until ActiveCell.Cells(Fila, Columna) = ""
Sheets("hoja1").Select
Fila=Fila+1
loop

XL.Application.ActiveSheet.Cells(Fila, Columna).Value = Val(Text1.Text)
Columna=Columna+1
XL.Application.ActiveSheet.Cells(Fila,Columna).Value = Text2

Es una idea....?????

Gracias cmgcharli

Voy a interntarlo así y te aviso.