• 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.

msgbox bij openen bestand

Status
Niet open voor verdere reacties.
A

avesoft

Gebruiker
Lid geworden
11 apr 2011
Berichten
186
forum leden

ik heb een msgbox die zou moeten verschijnen zodra ik het workbook open
deze start op als blad gegevens actief is bij opstarten van workbook , kan dit anders ?
bv bij een andere bladen dan blad gegevens


ik zal een bestandje bijvoegen

Bekijk bijlage test datum.xls

gr arie
 
Zoiets ?
Code: 
Private Sub Workbook_Open()
Dim i As Long
With Sheets("gegevens")
 For i = .Cells(Rows.Count, 8).End(xlUp).Row To 1 Step -1
  If .Cells(i, 8) > 0 And .Cells(i, 8).Value < Date + 6 Then
    MsgBox "Denk aan projecten : " & .Cells(i, 7).Value
  End If
 Next
End With
End Sub
 
Laatst bewerkt:
Harry

dat is ie dank je !:thumb:
dit ga ik verder bestuderen

gr arie
 
Arie,

Als je "With sheets(...)" gebruikt, denk dan om de punten vóór "cells" of "range" (.cells() / .range) die betrekking hebben op dat blad. ;)
 
Harry

ik begrijp nog niet helemaal welk deel van deze macro er voor zorgt dat msgbox wel in het hele workbook getoond word in plaats van op specifieke blad waar gegevens op staan :eek:

gr arie
 
Lees mijn vorig schrijven nog eens rustig over.
In principe staat daar het antwoord op je vraag al, maar ik ben niet te beroerd om het nog een keer uit te leggen hoor.
Als je er niet uit komt verneem ik het wel en doe ik een betere poging.
 
harry

ik wil er eerst zelf uitkomen welk deel er voor zorg ;)

mag ik er later op terug komen ?, ook al zet ik de vraag opgelost

gr arie
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan