Pendiente de los combobox, listbox
Pendiente de ayer : tengo problemas al cargar los combobox... Ya que los datos nuevos ingresados me los guarda en la hoja nueva que usted creo... Y deberían guardarse en la hoja "INGRESAR" para que pueda cargar en el combobox y previamente listarlos y exportarlos...
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código
Dim h
'
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 SubNo olvides valorar la respuesta.
