JK01 AUTO
JK02 AUTO
JK03 MOPO
JK04 MOPO
JK05 AUTO
Tällaisesta taulukosta pitäisi saada poimittua tiedot seuraavanlaiseksi:
AUTO (JK01, JK02, JK05)
MOPO (JK03, JK04)
Eli laitteen mukaan pitäisi saada poimittua tunnukset peräkkäin. Onkohan mahdollista tehdä funktioilla vai tarvitseeko tehdä VBA:lla?
JK02 AUTO
JK03 MOPO
JK04 MOPO
JK05 AUTO
Tällaisesta taulukosta pitäisi saada poimittua tiedot seuraavanlaiseksi:
AUTO (JK01, JK02, JK05)
MOPO (JK03, JK04)
Eli laitteen mukaan pitäisi saada poimittua tunnukset peräkkäin. Onkohan mahdollista tehdä funktioilla vai tarvitseeko tehdä VBA:lla?
Vastaukset 2
Vanhimmat
Sub test()
frow = Range("B65536").End(xlUp).Row 1
Range("B1:B" & frow).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1" _
), Unique:=True
trow = Range("F65536").End(xlUp).Row
For x = 2 To trow
For y = 2 To frow
If Cells(y, 2).Value = Cells(x, 6).Value Then
toList = toList & Cells(y, 1).Value & ","
End If
Next y
Cells(x, 7) = "(" & Left(toList, Len(toList) - 1) & ")"
toList = ""
Next x
Range("f1").Select
End Sub
Toimii loistavasti. Kiitos!