Bereik actieve regel vereenvoudigen

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik ben op zoek naar een code waar ik eenvoudig aan kan geven dat er een actie moet volgen wanneer in de actieve regel cel C, D, F, G en H niet leeg zijn. Normaal zou ik per cel de formule gebruiken, maar volgens mij kan dat ook voor een hele regel. Hierbij zijn C en D en F t/m H aaneengesloten. Zelf zat ik aan onderstaande te denken, alleen werkt dat niet.

Code: 
If Range("C" & Target.Row):("D" & Target.Row),Range("F" & Target.Row):("H" & Target.Row) <> "" then

Alvast bedankt voor de reactie.

Robert
 
Zo?
Code: 
If Application.CountA(Union(Cells(Target.Row, 3).Resize(, 2), Cells(Target.Row, 6).Resize(, 3))) <> 5 Then
 
@ VenA

Moet het niet = 5 zijn? bij lege cellen zal hij onder de 5 uitkomen en dus ook gaan draaien.
 
De functie Union mag je nog verwijderen.
Dat zit tot 30 argumenten ingebakken in die functie.
 
Code: 
Sub M_snb()
    If Application.CountA(Range(Replace("C0:D0,F0:H0", "0", Selection.Row))) = 5 Then 
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan