• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opsomming in MSGBox

Status
Niet open voor verdere reacties.
HWV

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.183
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.

Code: 
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
 
zoiets?
Code: 
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:
Code: 
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
 
Laatst bewerkt:
Iets sneller.

Code: 
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
 
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

Code: 
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
 
Voeg to:
Code: 
debug.print c00
en kijk in het venster direct van de VBA editor (control+g)
 
Beste,

maar die stuurt het toch niet naar de printer, of ik snap het niet echt
 
Schrijf de gegevens weg naar een nieuw blad en print dat blad. Waarom wil je het allemaal onder elkaar hebben staan?
 
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
 
Duik ze. En anders even een voorbeeldbestand plaatsen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan