Me faltaría que el el textbox que esta abajo me desplegué la fila H
Me faltaría que en el txt de abajo me desplegué la fila H de lo que seleccione en el listbox.
Para poder editarlo y luego guardar lo que modifique en el txt, solo quiero modificar la fila H que seleccione de arriba en el listbox
1 Respuesta
Respuesta de Dante Amor
1
Con el siguiente evento se llena el textbox
Private Sub ListBox1_Click() TextBox1 = ListBox1.List(ListBox1.ListIndex, 7) End Sub
Para modificar y pasar el cambio del textbox a la hoja, primero es necesario llenar en el listbox el número de fila del registro
Private Sub CommandButton3_Click()
'Filtra por turno
If h1.AutoFilterMode Then h1.AutoFilterMode = False
ListBox1.Clear
TextBox1.Value = ""
If ComboBox3.Value = "" Then
MsgBox "Seleccione un Turno"
Exit Sub
End If
If ComboBox1.Value = "" Then
fec1 = ""
Else
fec1 = CDate(ComboBox1.Value)
End If
If ComboBox2 = "" Then
fec2 = fec1
Else
fec2 = CDate(ComboBox2.Value)
End If
'
u = h1.Range("E" & Rows.Count).End(xlUp).Row
lamisma = False
For i = 3 To u
lafecha = h1.Cells(i, "E").Value
If fec1 = "" Then fec1 = h1.Cells(i, "E"): lamisma = True
If fec2 = "" Then fec2 = h1.Cells(i, "E")
If h1.Cells(i, "E").Value >= fec1 And h1.Cells(i, "E") <= fec2 And _
h1.Cells(i, "A") = ComboBox3.Value Then
ListBox1. AddItem h1.Cells(i, "A")
ListBox1. List(ListBox1.ListCount - 1, 1) = h1.Cells(i, "B")
ListBox1. List(ListBox1.ListCount - 1, 2) = h1.Cells(i, "C")
ListBox1. List(ListBox1.ListCount - 1, 3) = h1.Cells(i, "D")
ListBox1. List(ListBox1.ListCount - 1, 4) = h1.Cells(i, "E")
ListBox1. List(ListBox1.ListCount - 1, 5) = Format(h1.Cells(i, "F"), "hh:mm")
ListBox1. List(ListBox1.ListCount - 1, 6) = Format(h1.Cells(i, "G"), "hh:mm")
ListBox1. List(ListBox1.ListCount - 1, 7) = h1.Cells(i, "H")
ListBox1.List(ListBox1.ListCount - 1, 8) = i 'número de fila
End If
If lamisma Then
fec1 = ""
fec2 = ""
End If
Next
End SubTambién la propiedad Multiline del textbox1 debe ser igual a True
Sal u dos
