Column hidden call macro / column visible call macro

[MarkReddell]

I'm needing to call a macro based on hidden or visible column C ???

 

[JoeMo]

Maybe something like this which goes into a worksheet event module for the worksheet with the hidden/unhidden col C. Each time the worksheet tab is clicked to activate the worksheet, the code will run automatically.

Private Sub Worksheet_Activate()
If Me.Columns("C").Hidden = False Then
    Call mySub1
Else
    Call mySub2
End If
End Sub
Sub mySub1()
'put your sub for col C not hidden here and remove the message box below
MsgBox "Hello - col C is not hidden"
End Sub
Sub mySub2()
'put your sub for col C hidden here and remove the message box below
MsgBox "Hello - col C is hidden"
End Sub

To install sheet code:
1. Right-click the worksheet tab you want to apply it to and choose 'View Code'. This will open the VBE window.
2. Copy the code below from your browser window and paste it into the white space in the VBE window.
3. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
4. Make sure you have enabled macros whenever you open the file or the code will not run.

 

[MarkReddell]

I'm needing to call a macro based on hidden or visible column C ???

I'm using this macro currently.

Sub HdeDiscounts() Columns("C:C").Hidden = Not Columns("C:C").Hidden
End Sub

I need to be able to call AdjustRetail, or, ReadjustRetail. Is this possible???

 

[JoeMo]

I'm using this macro currently.

Sub HdeDiscounts()
Columns("C:C").Hidden = Not Columns("C:C").Hidden
End Sub

I need to be able to call AdjustRetail, or, ReadjustRetail. Is this possible???

You are toggling the hidden property of the column. Which status (hidden or nonhidden) should result in a call to AdjustRetail?

 

[MarkReddell]

You are toggling the hidden property of the column. Which status (hidden or nonhidden) should result in a call to AdjustRetail?

Thanx for your help!!! Yes, when Col. C is hidden, Call Readjustretail, When Col. C is displayed, Call Adjustretail.

 

[JoeMo]

Thanx for your help!!! Yes, when Col. C is hidden, Call Readjustretail, When Col. C is displayed, Call Adjustretail.

You haven't provided much info on what you want to accomplish so you may want to remove the col C hidden/unhidden toggle line from this.

Sub HdeDiscounts()
Columns("C:C").Hidden = Not Columns("C:C").Hidden
If Columns("C:C").Hidden Then
    Call Readjustretail
Else
    Call Adjustretail
End If
End Sub

 

[MarkReddell]

You haven't provided much info on what you want to accomplish so you may want to remove the col C hidden/unhidden toggle line from this.

Sub HdeDiscounts()
Columns("C:C").Hidden = Not Columns("C:C").Hidden
If Columns("C:C").Hidden Then
    Call Readjustretail
Else
    Call Adjustretail
End If
End Sub

Thank you very much! This Worx!!! Have a very blessed day!!!

 

[JoeMo]

Thank you very much! This Worx!!! Have a very blessed day!!!

You are welcome - thanks for the reply.