Hjælp til VBA kode

efter hukommelsen:

dim kolB as range
dim celB as range
set kolB=range("b:b")

for each celB in kolB
  if celB <=0 then
    celB.entireRow.hidden=true
  endif
Next celB

Kan ikke får koden til at virke

Prøv:

dim kolB as range
dim celB as range
set kolB=range("b:b")

for each celB in kolB
  if celB.value <=0 then celB.entireRow.hidden=true
Next celB

Da finb's makro tester samtlige rækker (op til 1048576) kan det tage lang tid før den er færdig. Nedenstående makro tester kun på det aktive område:

Sub HideRows()
Dim LastRow As Integer
Dim x As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 1 Step -1
If Cells(x, 2) <= 0 Then
Cells(x, 2).EntireRow.Hidden = True
End If
Next
End Sub

Hej jens48

Du har ret, din kode beregner hurtigere. Er det muligt at få tilføjet før koden "fjern arkbeskyttelse" og efter koden "beskyt ark og gem". 1000 tak for hjælpen, smider du et svar. ;-)

Hej finb

Tak for dine indlæg.

Sub HideRows()
Dim LastRow As Integer
Dim x As Integer
ActiveSheet.Unprotect
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = LastRow To 1 Step -1
If Cells(x, 2) <= 0 Then
Cells(x, 2).EntireRow.Hidden = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Mvh.
Jens