Visual Basic - formulario - Visual Basic - Ayuda por favor

Life is soft - evento anual de software empresarial
   
Vista:

formulario - Visual Basic - Ayuda por favor

Publicado por Azucena (1 intervención) el 25/02/2015 10:40:25
Hola

Quiero crear un formulario que me escriba de la columna B a la I de excel, pero no consigo que me pase a la fila de abajo, el código que escribi es este:

Private Sub Label1_Click()

End Sub

Private Sub DatosAgregar_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)

'Econtrar la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row

'Copiar los datos a la base de datos
ws.Cells(iFila, 2).Value = Me.DatosB.Value
ws.Cells(iFila, 2).Value = Me.DatosC.Value
ws.Cells(iFila, 2).Value = Me.DatosD.Value
ws.Cells(iFila, 2).Value = Me.DatosE.Value
ws.Cells(iFila, 2).Value = Me.DatosF.Value
ws.Cells(iFila, 2).Value = Me.DatosG.Value
ws.Cells(iFila, 2).Value = Me.DatosH.Value
ws.Cells(iFila, 2).Value = Me.DatosI.Value

'Limpiar el formulario
Me.DatosB.Value = ""
Me.DatosC.Value = ""
Me.DatosD.Value = ""
Me.DatosE.Value = ""
Me.DatosF.Value = ""
Me.DatosG.Value = ""
Me.DatosH.Value = ""
Me.DatosI.Value = ""

End Sub

Private Sub nombre_Change()

End Sub

Private Sub siguiente_linea_Change()

End Sub

Gracias por leerme
Azucena
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de Andres Leonardo

formulario - Visual Basic - Ayuda por favor

Publicado por Andres Leonardo (699 intervenciones) el 26/02/2015 20:09:29
Una de las mejores maneras es que abras un excel y cominza a grabar la macro haz lo que necesites y mira el codigo .. con eso saberas como hacer a manera de instrucciones..... podrias valirar si la celda esta vacia y comenzar a escribir ahi... espero te ayude...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar