ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA small code error? (https://www.excelbanter.com/excel-programming/395252-vba-small-code-error.html)

Jo[_2_]
VBA small code error?
 
Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo

bac
VBA small code error?
 
Did you notice Zone5 is not in quotes/

"Jo" wrote:

Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo

RB Smissaert
VBA small code error?
 
For starters put Option Explicit at the top of all your modules.
There is no such thing as Cell.
You can do Range("Zone4")

RBS

"Jo" wrote in message
oups.com...
Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo

Jo[_2_]
VBA small code error?
 
On Aug 10, 12:00 pm, BAC wrote:
Did you notice Zone5 is not in quotes/



"Jo" wrote:
Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo- Hide quoted text -

- Show quoted text -

I have it like this now but when I run the macro I get an error:
Method 'Cells' of object '_global' failed!

If Zone5 = 0 Then
Cells("Zone5").Select
Selection.EntireRow.Hidden = True
End If
If Zone4 = 0 Then
Cells("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 = 0 Then
Cells("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 = 0 Then
Cells("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Jo[_2_]
VBA small code error?
 
On Aug 10, 12:10 pm, Jo wrote:
On Aug 10, 12:00 pm, BAC wrote:





Did you notice Zone5 is not in quotes/

"Jo" wrote:
Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo- Hide quoted text -

- Show quoted text -

I have it like this now but when I run the macro I get an error:
Method 'Cells' of object '_global' failed!

If Zone5 = 0 Then
Cells("Zone5").Select
Selection.EntireRow.Hidden = True
End If
If Zone4 = 0 Then
Cells("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 = 0 Then
Cells("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 = 0 Then
Cells("Zone2").Select
Selection.EntireRow.Hidden = True
End If- Hide quoted text -

- Show quoted text -

It is working now with Range instead of Cells. However, I am saying
"If Zone4=0....etc." and while I have Zone4=5, it is hiding that row!?

How come?

Thanks,
Jo

bac
VBA small code error?
 
Is it possible one of the other zones, that is 0, is on the same row?

"Jo" wrote:

On Aug 10, 12:10 pm, Jo wrote:
On Aug 10, 12:00 pm, BAC wrote:





Did you notice Zone5 is not in quotes/

"Jo" wrote:
Hi everone,

Could someone please tell me what is wrong with this small piece of
code, note that Zone5 is cell name ( I am getting error in the 2nd
row):

If Zone5 0 Then
Cell(Zone5).Select
Selection.EntireRow.Hidden = True
End If
If Zone4 0 Then
Cell("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 0 Then
Cell("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 0 Then
Cell("Zone2").Select
Selection.EntireRow.Hidden = True
End If

Thanks,
Jo- Hide quoted text -

- Show quoted text -

I have it like this now but when I run the macro I get an error:
Method 'Cells' of object '_global' failed!

If Zone5 = 0 Then
Cells("Zone5").Select
Selection.EntireRow.Hidden = True
End If
If Zone4 = 0 Then
Cells("Zone4").Select
Selection.EntireRow.Hidden = True
End If
If Zone3 = 0 Then
Cells("Zone3").Select
Selection.EntireRow.Hidden = True
End If
If Zone2 = 0 Then
Cells("Zone2").Select
Selection.EntireRow.Hidden = True
End If- Hide quoted text -

- Show quoted text -

It is working now with Range instead of Cells. However, I am saying
"If Zone4=0....etc." and while I have Zone4=5, it is hiding that row!?

How come?

Thanks,
Jo


All times are GMT +1. The time now is 05:10 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com