fout(en) in VBA code

[mark-vd]

Hallo mensen,

in een poging om een stuk code te schrijven kwam ik tot het volgende:

Sub Verborgen_gevulde_cellen()
    For rij = 1 To 70
         If Rows(rij).Hidden = True
                Cells(rij, "D").Value(">1") = True
                    Then
                        MsgBox "Er worden bedragen meegenomen welke verborgen zijn", vbExclamation, "Let op !!!!"
                    End If
                Next
End Sub

Doel is om een waarschuwing te krijgen wanneer er rijen met gevulde cellen ( kolom D) worden verborgen.
Het probleem is dat ik foutmeldingen krijg en dat ik de oplossing (of de gemaakte) niet kan vinden.

Onderdelen waar ik zelf niet uit kom:
Hoe sluit je af na value >1, is dit zo goed ?
hoe zet je de eerste voorwaarde en twee voorwaarde "bijelkaar / achterelkaar" ?

Voorwaarde 1

         If Rows(rij).Hidden = True

Voorwaarde 2

Cells(rij, "D").Value(">1") = True

En kan ik dit stukje code zomaar bij een andere macro inzetten ?
Of is het mogelijk wanneer de macro cellen verbergen is uitgevoerd automatisch deze uit te voeren ?

Graag zou ik even wat uitleg willen hebben hierover, wil iemand dit doen / mij hierbij helpen ?
alvast bedankt voor de hulp

 

[Cobbe]

Als de voorwaarden kloppen klopt de code ook:

Sub Verborgen_gevulde_cellen()
    For rij = 1 To 70
         If Rows(rij).Hidden = True AND Cells(rij, "D").Value > 1
                    Then
                        MsgBox "Er worden bedragen meegenomen welke verborgen zijn", vbExclamation, "Let op !!!!"
         End If
    Next
End Sub

 

[mark-vd]

Bedankt voor de reactie.

Zelf had ik ook aan de functie and gedacht maar had het niet als AND geschreven (maar als And)
Dien je logische functies geheel in hoofdletters te noteren ?

Waar ik ook achter kwam is dat Then niet op een losse regel mag staan maar achter de laatste voorwaarde, waarom is mij niet helemaal duidelijk.
Maar de functie werkt, probleem opgelost.