No me agrega los danos nuevos
Me agrega datos nuevos pero no me los muestra en el comboBox para poder listarlos...
1 respuesta
Respuesta de Dante Amor
1
Hice ajustes a la macro para que guarde los datos en la hoja oculta.
También hice los ajuste para quitar el filtro y se puedan ver los registros nuevos
En el form index
'
Private Sub BTNGUARDAR_Click()
Dim fila As Long
Dim duplicados As Boolean
'Obtener la fila disponible
fila = h.Range("A" & Rows.Count).End(xlUp).Row + 1
duplicados = False
If Me.TXTUBICACION = "" Or Me.TXTEQUIPO = "" Or Me.TXTFECHA = "" Or Me.TXTINTERVENCION = "" Or Me.TXTTERMINO = "" Or Me.TXTDESCRIPCION = "" Then
MsgBox "No dejar ningun campo vacio ", vbOK
Else
'Insertar datos capturados
h.Cells(fila, 3).Value = Index.TXTUBICACION.Value
h.Cells(fila, 4).Value = Index.TXTEQUIPO.Value
h.Cells(fila, 5).Value = CDate(Index.TXTFECHA.Value)
h.Cells(fila, 6).Value = Index.TXTINTERVENCION.Value
h.Cells(fila, 7).Value = Index.TXTTERMINO.Value
h.Cells(fila, 8).Value = Index.TXTDESCRIPCION.Value
h.Cells(fila, "A").Value = Index.ComboBox1.Value
h.Cells(fila, "B").Value = Index.ComboBox2.Value
'
Index.TXTUBICACION.Value = ""
Index.TXTEQUIPO.Value = ""
Index.TXTINTERVENCION.Value = ""
Index.TXTTERMINO.Value = ""
Index.TXTDESCRIPCION.Value = ""
Index.ComboBox1.Value = ""
Index.ComboBox2.Value = ""
MsgBox "Datos Correctamente Ingresados"
End If
End Subsal u dos.
