Ayuda
Publicado por Víctor (12 intervenciones) el 26/05/2007 09:12:42
Hola
No se mucho de vb, o bien casi nada, pero necesito una ayuda, para solucionar un problema
Tengo un formulario con un textbox y un boton, lo que hago es enviar a una planilla de excel, concretamente a la columna a desde la fila 2 hacia abajo, los datos del Textbox y ahy es donde topo, por que no se que codigo me sirve para cada vez que cargo un dato me lo registre en la celda siguiente hacia abajo de donde tengo la anterior.
osea si mi dato me lo cargo a la celda A2, que el siguente me lo cargue a la celda a3.
ESTE ES EL CÓDIGO QUE BAJE Y LO TENGO ADAPTADO
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
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
mUCHAS GRACIAS DE ANTEMANO
No se mucho de vb, o bien casi nada, pero necesito una ayuda, para solucionar un problema
Tengo un formulario con un textbox y un boton, lo que hago es enviar a una planilla de excel, concretamente a la columna a desde la fila 2 hacia abajo, los datos del Textbox y ahy es donde topo, por que no se que codigo me sirve para cada vez que cargo un dato me lo registre en la celda siguiente hacia abajo de donde tengo la anterior.
osea si mi dato me lo cargo a la celda A2, que el siguente me lo cargue a la celda a3.
ESTE ES EL CÓDIGO QUE BAJE Y LO TENGO ADAPTADO
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
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
mUCHAS GRACIAS DE ANTEMANO
Valora esta pregunta


0