G
Guest
Hi,
I have a hide rows macro that I got off here a few weeks back but i would
now like to change it so it can hide columns, I'm very programming illiterate
and would like soem help please, here is the hide rows macro
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Firstrow = ActiveSheet.Cells(1).Row
Lastrow = ActiveSheet.Rows.Count + Firstrow - 1
With ActiveSheet
.DisplayPageBreaks = False
For Lrow = Lastrow To Firstrow Step -1
If .Cells(Lrow, "A").Value = "0" And _
.Cells(Lrow, "A").Value = "0" Then .Rows(Lrow).Hidden = False
Next
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
if someone can change it i would be very greatfull, i have tried but can't
get it to work, many thanks,
Andy
I have a hide rows macro that I got off here a few weeks back but i would
now like to change it so it can hide columns, I'm very programming illiterate
and would like soem help please, here is the hide rows macro
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Firstrow = ActiveSheet.Cells(1).Row
Lastrow = ActiveSheet.Rows.Count + Firstrow - 1
With ActiveSheet
.DisplayPageBreaks = False
For Lrow = Lastrow To Firstrow Step -1
If .Cells(Lrow, "A").Value = "0" And _
.Cells(Lrow, "A").Value = "0" Then .Rows(Lrow).Hidden = False
Next
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
if someone can change it i would be very greatfull, i have tried but can't
get it to work, many thanks,
Andy