Refinar código introducción de datos vba
Fila = 2 Do While Hoja6.Cells(Fila, 1) <> "" Fila = Fila + 1 Loop Final = Fila Hoja6.Cells(Final, 2) = Me.cbo_not Hoja6.Cells(Final, 3) = Me.txt_equipo Hoja6.Cells(Final, 1) = Me.txt_fecha Hoja6.Cells(Final, 6) = Me.txt_descrip Hoja6.Cells(Final, 7) = Me.eje1 Final = Final + 1 Fila = 2 Do While Hoja6.Cells(Fila, 1) <> "" Fila = Fila + 1 Loop Final = Fila Hoja6.Cells(Final, 2) = Me.cbo_not Hoja6.Cells(Final, 3) = Me.txt_equipo Hoja6.Cells(Final, 1) = Me.txt_fecha Hoja6.Cells(Final, 6) = Me.txt_descrip Hoja6.Cells(Final, 7) = Me.eje2 Final = Final + 1 Fila = 2 Do While Hoja6.Cells(Fila, 1) <> "" Fila = Fila + 1 Loop Final = Fila Hoja6.Cells(Final, 2) = Me.cbo_not Hoja6.Cells(Final, 3) = Me.txt_equipo Hoja6.Cells(Final, 1) = Me.txt_fecha Hoja6.Cells(Final, 6) = Me.txt_descrip Hoja6.Cells(Final, 7) = Me.eje3 Final = Final + 1
Buenos días
Podrían ayudarme a refinar este código para que los datos de eje1;eje2;eje3 me aparecieran en diferentes filas
1 respuesta
Respuesta de Dante Amor
1
Prueba lo siguiente:
Private Sub CommandButton1_Click()
Dim final As Long
final = Hoja6.Range("A:G").Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
Hoja6.Cells(final, 1) = Me.txt_fecha
Hoja6.Cells(final, 2) = Me.cbo_not
Hoja6.Cells(final, 3) = Me.txt_equipo
Hoja6.Cells(final, 6) = Me.txt_descrip
Hoja6.Cells(final, 7) = Me.eje1
Hoja6.Cells(final + 1, 7) = Me.eje2
Hoja6.Cells(final + 2, 7) = Me.eje3
End Sub
Gracias dante
Funciona perfecto, pero la información de los primeros registros no se duplica y la necesitaba también.
puedes ayudarme
Prueba esto:
Private Sub CommandButton1_Click()
Dim final As Long, i As Long
If txt_fecha = "" Then
MsgBox "Captura la fecha"
txt_fecha.SetFocus
Exit Sub
End If
final = Hoja6.Range("A" & Rows.Count).End(3).Row + 1
For i = 1 To 3
Hoja6.Cells(final, 1) = Me.txt_fecha
Hoja6.Cells(final, 2) = Me.cbo_not
Hoja6.Cells(final, 3) = Me.txt_equipo
Hoja6.Cells(final, 6) = Me.txt_descrip
Hoja6.Cells(final, 7) = Me.Controls("eje" & i)
final = final + 1
Next
End Sub
¡Gracias!
Perfecto mil gracias
Gusto en ayudarte.
¡Gracias! Por comentar.
