I'm not sure what you are asking about the range names. I assigned each to
a group of cells in a row, cells that detect if the column is empty or not.
The macro, which hides columns that are empty, works fine as long as the
value is not 16. In that case, no columns are empty and the formula you
don't like tries to hide nothing and that crashes it. The only error I get
is run time error 1004 and no cells were found. I tried running it adding
dim statements AS INTEGER and that changed nothing Here is the entire
macro. Thx much!
Sub hideColumns()
Dim ES2TERM As Integer
Dim ES1TERM As Integer
Dim ES3TERM As Integer
If ES1TERM < 16 Then
Sheets("CFA-S1").Select
Application.Goto reference:="test.hide.col.ES1"
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Range("a2").Select
End If
If ES2TERM < 16 Then
Sheets("CFA-S2").Select
Application.Goto reference:="test.hide.col.ES2"
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Range("a2").Select
End If
If ES3TERM < 16 Then
Sheets("CFA-S3").Select
Application.Goto reference:="test.hide.col.ES3"
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireColumn.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Range("a2").Select
End If
End Sub
On Monday, June 16, 2014 11:43:06 AM UTC-7, dea...@aol.com wrote:
>
> I've been gone for a long while and forgot some of what little I knew
> about proper VBA syntax. This is an easy one, I'm sure, so would someone
> kindly help me with the proper syntax on the if and goto statements? I'm
> getting things about end ifs without block ifs, etc. Thanks much, Dean. I
> want a vba subroutine in EXCEL that does the following - the range names
> are all positive integers less than or equal to 16:
>
> sub
>
> If rangename1 = 16 Then skip the next instruction, i.e., goto to 1000
> 'do some things that might not compute if it equals 16, so I don't want it
> to see these things if 16
> 1000 'otherwise don't do anything but continue
>
> If rangename2 = 16 Then skip the next instruction, i.e., goto to 2000
> 'do some things that might not compute if it equals 16, so I don't want it
> to see these things if 16
> 2000 'otherwise, don't do anything but continue
>
> If rangename3 < 16 Then skip the next instruction, i.e., go to 3000
> 'do some things that might not compute if it equals 16, so I don't want it
> to see these things if 16
>
> 3000 done
> end sub
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
