Vba code voor maken van een map in verkenner

[HSV]

Kijk eens naar deze coderegel.

If LCase(Target.Value) = "voltooid" And Application.CountA(Target.Offset(, -2).Resize(, 2)) = 2 Then

D.w.z. kijk of het aantal argumenten 2 is: vanaf kolom 3 en dan twee naar links en twee kolommen breed (of de beide cellen gevuld zijn).

 

[hein68]

Inmiddels werkt het weer. Dankzij de tip dat door invoegen g1 was opgeschoven en target ipv -2 -4 moest zijn werkte het. Had zelf al -4 ingevuld maar doordat g1 leeg was de foutmelding. Dank voor de uitleg.