Modificar hoja de Excel con List box Excel
Le escribo para solicitar su ayuda pasar los datos del List box según numero de guía y nombre de producto le adjunto la imagen para un mayo detalle
Este es el formulario en la cual selecciono el numero de guía y según la guía me carga sus productos en el List box (puedo modificar valores del list box y eliminar ) pero necesito su ayuda para guardar estos datos en la hoja y que busque según el numero de guía y el nombre del producto y se copie el numero de recibo en la columna J y en la columna K se actualice el estado indicado recibido pero solo los productos que se muestren en el List box se le agregue el numero de recibo y cambie el estado
1 respuesta
Hola Dante,
Ya le envié el correo
Slds
Robert
H o l a:
Te anexo las modificaciones.
1. En el evento Initialize, cambié ColumnCount a 3
Private Sub UserForm_Initialize() 'Act.Por.Dante Amor ListBox2.ColumnCount = 3 ListBox2.ColumnWidths = "30;150;50;50" 'Carga Estados ComboBox4. AddItem "RECIBIDO" ComboBox4. AddItem "POR RECIBIR" ComboBox4 = "POR RECIBIR" ' 'Carga Número de Guias pendiente CargaPedidos End Sub
2. En el evento ComboBox1_Change, agregué la línea, para cargar el numero de fila:
ListBox2.List(ListBox2.ListCount - 1, 3) = i
Private Sub ComboBox1_Change()
'Act.Por.Dante Amor
If ComboBox4 = "" Then
MsgBox "Debes seleccionar un estado"
ComboBox4.SetFocus
Exit Sub
End If
'
ListBox2.Clear
TextBox10 = ""
If ComboBox1 = "" Then Exit Sub
'
Set h = Sheets("SALIDAS")
For i = 7 To h.Range("f" & Rows.Count).End(xlUp).Row
If h.Cells(i, "f") = ComboBox1 And h.Cells(i, "k") = ComboBox4 Then
TextBox13 = h.Cells(i, "A")
TextBox14 = h.Cells(i, "d")
'DTPicker1 = h.Cells(i, "g")
ListBox2.AddItem
ListBox2.List(ListBox2.ListCount - 1, 0) = h.Cells(i, 5)
ListBox2.List(ListBox2.ListCount - 1, 1) = h.Cells(i, 3)
ListBox2.List(ListBox2.ListCount - 1, 2) = h.Cells(i, 2)
ListBox2.List(ListBox2.ListCount - 1, 3) = i
End If
Next
Call contador
End Sub3. Por último, te anexo el código para actualiza la hoja:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h2 = Sheets("SALIDAS")
For i = 0 To ListBox2.ListCount - 1
fila = ListBox2.List(i, 3)
h2.Cells(fila, "E") = CDbl(ListBox2.List(i, 0))
h2.Cells(fila, "J") = TextBox12
h2.Cells(fila, "K") = "RECIBIDO"
h2.Cells(fila, "M") = "POR FACTURAR"
Next
MsgBox "Datos actualizados"
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
