Een hele rij controleren

[ybesse]

Hoe kan je in een macro een hele rij controleren of deze leeg is?

Moet dit met IsEmpty en dan alle cellen langs gaan of kan het eenvoudiger?

 

[snb]

on error resume next
c3=rows(4).specialcells(2).count
if err.number>0 then msgbox "leeg"

of

on error resume next
msgbox iif(rows(4).specialcells(4)=columns.count,"","niet ") & "leeg"
if err.number>0 then msgbox "niet leeg"

 

[ybesse]

dank je wel!

Ik wil graag 4 rijen op rij controleren. Nu doe ik het zo... Maar hij doet het niet....

On Error Resume Next
c3 = Rows(19).SpecialCells(2).Count
If Err.Number > 0 Then
c3 = Rows(18).SpecialCells(2).Count
If Err.Number > 0 Then
c3 = Rows(17).SpecialCells(2).Count
If Err.Number > 0 Then
c3 = Rows(16).SpecialCells(2).Count
If Err.Number > 0 Then
Exit Sub
Else
Range("A20:AK191").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A15:AK16"), Unique:=False
MsgBox "16 vol!"
End If
Else
Range("A20:AK191").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A15:AK17"), Unique:=False
MsgBox "17 Vol!"

End If
Else
Range("A20:AK191").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A15:AK18"), Unique:=False
MsgBox "18 vol!"

End If

Else
Range("A20:AK191").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A15:AK19"), Unique:=False
MsgBox "19 Vol!"

End If

 

[snb]

on error resume next
c3=rows("16:19").specialcells(2).count
if err.number>0 then msgbox "leeg"

 

[Jack Nouws]

Hallo

Of zo ...

  For i = 19 To 16 Step -1
  On Error Resume Next
    c3 = Rows(i).SpecialCells(2).Count

    If Err.Number > 0 Then
      MsgBox "Rij " & i & " Leeg!"
    Else
      MsgBox "Rij " & i & " Vol!"
    End If
    
  Next

 

[ybesse]

Ok deze werkt nu.

Maar om het nog moelijker te maken... Heb ik nog een uitdaging.

In die rijen staan ook verwijzingen naar andere cellen. Deze:

=ALS($O$16="";"";$O$16)

Maar deze macro, herkent de cel niet als cel O16 gevuld is.

Weet iemand hier een oplossing voor?

 

[ybesse]

Weet iemand een antwoord?

 

[snb]

Als jij het als een uitdaging beschouwt, lijk jij mij de eerste om die aan te gaan. Een uitdaging aan een ander voorleggen vind ik geen uitdaging.
En om je vraag te beantwoorden: natuurlijk weten wij het antwoord.

 

[ybesse]

Toen vond ik het nog een uitdaging....

Na twee dagen puzzelen heb ik het wel gehad. En hoop dat iemand al een antwoord heeft....