Listbox selección multiple VBA EXCEL
Publicado por HECTOR (2 intervenciones) el 23/07/2020 21:23:16
Buenas tardes
Agradezco el apoyo que me brinde tengo el siguiente codigo:
Este codigo lo que hace es que selecciona ITEMS de forma multiple y lo va registarndo en la columna "O" la hoja en excel pero necesito que el me pueda almacenar el los ITEMS seleccionado ejemplo: 2017-2018-2019 en la colulmana o fila 1 es decir en la misma fila.
Ahorita como esta desarrollado me realiza el registro de la siguiente manera
2017
2018
2019
Estos datos corresponden al cliente uno de la hojo ingreso al hacerme ese registro asi me esta indicado que el cliente 1 se le vendio x producto en el 2017
cliente 2 se le vendio x producto en el 2018
etc
pero lo real es que la ventas fueron realizadas al cliente 1
agradezco el apoyo
Agradezco el apoyo que me brinde tengo el siguiente codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim Uf As Long
Dim lx As Long
With Hoja1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Uf = .Range("O" & Rows.Count).End(xlUp).Row + 1
.Range("O" & Uf) = ListBox1.List(i, 0) 'Columna 1
ListBox1.Selected(i) = False
i = i - 1
Uf = Uf + 1
End If
Next i
End With
End Sub
Este codigo lo que hace es que selecciona ITEMS de forma multiple y lo va registarndo en la columna "O" la hoja en excel pero necesito que el me pueda almacenar el los ITEMS seleccionado ejemplo: 2017-2018-2019 en la colulmana o fila 1 es decir en la misma fila.
Ahorita como esta desarrollado me realiza el registro de la siguiente manera
2017
2018
2019
Estos datos corresponden al cliente uno de la hojo ingreso al hacerme ese registro asi me esta indicado que el cliente 1 se le vendio x producto en el 2017
cliente 2 se le vendio x producto en el 2018
etc
pero lo real es que la ventas fueron realizadas al cliente 1
agradezco el apoyo
Valora esta pregunta
0