alleen vullen als rij ervoor niet leeg is en cel zelf ook niet.

[famjj]

Ik heb een rij met daarin in Kolom A in sommige velden tekst en ook in Kolom B.
Nu wil ik dmv VBA in Kolom B de opmerking "is gevuld" als in kolom A in de betreffende rij tekst staat en de rij van kolom B leeg is.

Dus als Bv in cel A8 iets staat en veld B* leeg is, moet in veld B8 "is gevuld" komen"
Als in Veld A11iets staat en in veld B11 ook al iets, moet er niets gebeuren.

Wie weet een oplossing?

 

[Veens705]

Ik maak dit uit het blote hoofd, dus wel even debuggen.

Sub IsGevuld()

Dim Rij as long
Dim MaxRij as Long

Rij = 1
MaxRij = 10
While not Rij > MaxRij

​

If (Cells(Rij,1) <>"") and Cells(Rij,2) ="") then

​

​

Cells(Rij, 2) = "Is gevuld"

​

end if

​

Rij = Rij +1
Wend

end sub

Is dat iets? Volgens mij is dit simpel, te volgen en goed te onthouden voor de volgende keer.
MaxRij is natuurlijk gemakkelijk te veranderen.
Sommigen zouden dit oplossen met iets van "activecell". Kan maar ik vind dit mooier.
(Ik zie dat de tabs wegvallen in de text. Gruwel! Dat is niet mijn schuld hoor.)

succes ermee!

 

[famjj]

Top!

Alleen een ) teveel voor Then.

) weggehaald en werkt perfect!