Opsomming in MSGBox

[HWV]

Beste,

Ik heb onderstaande code om aan te geven of er een artike binnen moet komen vandaag.
Maar eigelijk wil ik in 1 MSGBox zien welke artikelen er vandaag binnen komen.
Deze versie laat het per regel zien.

Sub VeldenVeranderen()

For i = 2 To Range("A65000").End(xlUp).Row
   If Cells(i, 28) = [AB1] Then ' [AB1]is datum van vandaag
   MsgBox Cells(i, 1) & " Wordt binnen verwacht vandaag"
   End If
Next i

End Sub

Alvast dank, want ik loop er op vast.

HWV

 

[SjonR]

zoiets?

Sub VeldenVeranderen()

For i = 2 To Range("A65000").End(xlUp).Row
   If Cells(i, 28) = [AB1] Then ' [AB1]is datum van vandaag
           tekst = tekst & Cells(i, 1) & vbNewLine
   End If
Next i
MsgBox tekst

End Sub

Of zonder gebruik van AB1:

Sub VeldenVeranderen()

For i = 2 To Range("A65000").End(xlUp).Row
   If Cells(i, 28) = Date Then
        tekst = tekst & Cells(i, 1) & vbNewLine
   End If
Next i
MsgBox tekst

End Sub

 

[VenA]

Iets sneller.

Sub VenA()
  ar = Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    If ar(j, 2) = Date Then c00 = c00 & ar(j, 1) & vbCr
  Next j
  MsgBox c00
End Sub

 

[HWV]

Geweldig

Beste,

Geweldig!

Ik heb er het volgende van gemaakt, met de oplossing die is aangedragen, maar dan nog iets uitgebreid.
Is het ook nog mogelijk dat ik dan deze gegevens print, of moet ik dit dan ook nog ergens heen wegschrijven

Sub WatKomtErBinnen()
  ar = Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    If ar(j, 28) = Date Then c00 = c00 & ar(j, 1) & " - " & ar(j, 6) & vbCr & ar(j, 10) & vbCr & ar(j, 9) & vbCr & vbCr
  Next j
  c01 = "Het volgende zou vandaag binnen moeten komen" & vbCr & vbCr
  MsgBox c01 & c00
End Sub

Groet HWV

 

[jkpieterse]

Voeg to:

debug.print c00

en kijk in het venster direct van de VBA editor (control+g)

 

[HWV]

Beste,

maar die stuurt het toch niet naar de printer, of ik snap het niet echt

 

[VenA]

Schrijf de gegevens weg naar een nieuw blad en print dat blad. Waarom wil je het allemaal onder elkaar hebben staan?

 

[HWV]

Is idd een optie, ik wilde als het bestand geopend wordt dat je dan gelijk ziet wat er in bestelling staat en wanneer dit geleverd gaat worden.
Zal er eens induiken of zoiets ook zal werken, met als voordeel dat het geprint kan worden.

Groet HWV

 

[VenA]

Duik ze. En anders even een voorbeeldbestand plaatsen.