Message box

[verluc]

Wil bij het opnenen van een werkbook een messagebox krijgen bij volgende test:

Indien een cel in kolom A (A1 tot laatste blanco cel) leeg is en in kolom D (D1 tot laatste blanco cel) niet leeg is
zou ik een messagebox willen krijgen met de vermelding het lijnnummer van kolom A
Met oprechte dank voor alle hulp.

 

[HSV]

Kun je iets specifieker zijn?

Laatste blanco cel van wat?
Zet hier anders een bestandje neer.

 

[verluc]

Beste HSV,

Ik heb kolom A en D
Beiden zijn ingevuld tot bijvoorbeeld rij 120
Vanaf rij 121 zijn geen gegevens meer, dus blanco
Indien er nu iets is ingevuld in kolom D maar niet in A dan komt dit gevraagde bericht.
Begrepen?

 

[HSV]

Ik hoop het voor je verluc.

Private Sub Workbook_Open()
With Sheets("Blad1").Cells(Rows.Count, 1)
 If .End(xlUp).Row < .Offset(, 3).End(xlUp).Row Then MsgBox .End(xlUp).Row
End With
End Sub

of:

Then MsgBox .End(xlUp).Row + 1

 

[verluc]

Sorry HSV, maar blijkbaar geen succes
Hierbij geef ik U een voorbeeld van wat ik precies bedoel:

KOLOM A KOLOM D
aaa........................ letters a
bbb....................... letters b
............................ letters c
ddd....................... letters d

Wanneer ik deze worksheet open (selection change) zou ik de melding moeten krijgen:
Lijn 3 niet volledig ingevuld

en zo tot het einde van mijn sheet.

 

[snb]

Waarom markeer je die cellen niet met voorwaardelijke opmaak ?

 

[HSV]

Tja, het moet alleen maar Vba zijn lijkt het.


Nieuwe poging.

Private Sub Worksheet_Activate()
Dim cl As Range
For Each cl In Columns(4).SpecialCells(2)
 If cl.Offset(, -3) = vbNullString Then MsgBox "Cel A" & cl.Row & " invullen"
  Next cl
End Sub

 

[verluc]

Hello,

Inderdaad een macro lijkt mij in deze beter omdat bij markering ik moet gaan zien welke cel
het is, terwijl bij een macro dit automatisch word gedaan.
Vandaar aan HSV en SNB mijn dank voor medewerking aan deze probleemstelling.
Zet aldus deze vraag om "afgehandeld"

 

[snb]

Voorwaardelijke opmaak wordt nog 'automatischer' gedaan.

 

[verluc]

Beste SNB,

Zal dit ook eens proberen.Moet er dan geen formule worden ingebouwd in deze voorwaardelijke opmaak?
Met dank voor info hieromtrent.

 

[snb]

Je werkt toch met Excel ?
Is dat niet vanwege de beschikbaarheid van zoveel formules ?

 

[verluc]

Ben niet zo sterk in 'formules" voor toepassing voorwaardelijke opmaak