Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx
Por
Victor7, · publicado
Buenas, estoy teniendo problemas con la funcion split, cuando intento pasar datos de listbox1 a un listbox2
Intento con estas lineas
Lineas = Split(ListBox1.List(x, 1), ", ")
Lineas1 = Split(ListBox1.List(x, 2), ", ")
For i = 0 To UBound(Lineas)
For x = 0 To UBound(Lineas1)
ListBox2.AddItem ListBox1.List(x)
ListBox2.List(ListBox2.List(x,1) = Lineas(i)
ListBox2.List(ListBox2.List(x,2) = Lineas1(x)
Next i
Next x