Dynamische Msgbox

[TomH90]

Beste,

Ik ben op zoek naar een script voor een messagebox die alle omschrijving laat zien die A als categorie hebben (wel op een nieuwe regel).

tabel:
Kolom 1: Categorie (A of B)
Kolom 2: Omschrijving

de aantal regels zijn variabel (meer dan 2)

ik heb alleen geen idee of dit wel mogelijk is......

 

[OctaFish]

Wat wil je precies? En graag een voorbeeldje erbij, want dat maakt je vraag wellicht duidelijker. Want nu denk ik alleen maar: huh???? Waarom zou je, als je 300 records met A en 250 met B hebt, 300 msgboxen willen zien?

 

[TomH90]

In dat specifieke geval 1 messagebox met 300 regels.

voorbeeld:
Bekijk bijlage Msgbox Voorbeeld.xlsx

 

[VenA]

zo?

Sub VenA()
ar = Sheet1.Cells(1).CurrentRegion
For j = 2 To UBound(ar)
  If ar(j, 1) = "A" Then c00 = c00 & ar(j, 2) & Chr(10)
Next j
MsgBox c00
End Sub

 

[snb]

@V&A

Zo ?

Sub M_snb()
   MsgBox join([transpose(A1:A300)],vblf)
End Sub

 

[TomH90]

Werkt super!

wat doet die CurrentRegion en de UBound?

 

[snb]

Alt-F11/ F1

 

[VenA]

@snb,
Hoe kan je met de methode uit #5 de gegevens weergeven van kolom B waarbij gefilterd wordt op de waarden uit kolom A?

 

[snb]

zo?

Sub M_snb()
   MsgBox join(filter([transpose(if(A1:A300="A",B1:B300,"~")],"~",0),vblf)
End Sub

 

[VenA]

Ik krijg de melding 'Typen komen niet met elkaar overeen'

 

[snb]

Haakjes tellen:

Sub M_snb()
   MsgBox join(filter([transpose(if(A1:A300="A",B1:B300,"~"))],"~",0),vblf)
End Sub

 

[VenA]

Dank je. Ik begreep nooit zoveel van deze/dit soort constructie(s) maar het lampje begint een beetje licht te geven.:thumb: