VBA for Option buttons

[Debs]

Hi,

I'm hoping someone can help with a macro.
I have four option buttons (from forms toolbox) on a worksheet named 'Main'. When button one is clicked, it displays "Type of Service:Add" in A49 and hide rows A73 to A176 on worksheet "Customer". If another option button is clicked, then it will unhide rows A73 to A176

When button two is clicked, it displays "Type of Service: Move" in the same cell, A49 and hide rows A52 to A81 and A115 to A176 on worksheet "Customer".If another option button is clicked, then it will unhide rows A52 to A81 and A115

When button three is clicked, it displays "Type of Service: Change" in the same cell, A49 and hide rows A52 to A115 and A147to A176 on worksheet "Customer". If another option button is clicked, then it will unhide rows A52 to A115 and A147to A176.

When button four is clicked, it displays "Type of Service: Disco" in the same cell, A49 and hide rows A152 to A146 and A147 on worksheet "Customer". If another option button is clicked, then it will unhide rows A152 to A147.

Thank you, for any help given

 

[zzjasonzz]

if you are in design mode you should be able to double click on the button and you will see the following

sub button1_click()

end sub

then just put a variation of this code in all of them depending on what you want

sheets("Main").range("A49") = "blah"
sheets("customer").rows("1:65546").entirerow.hidden = false
sheets("customer").rows("74:176").entirerow.hidden = true

 

[Debs]

The code below doesn't unhide when when another option button is selected. Is there something else I need to add?

Private Sub OptionButtonAdd_Click()

'Application.ScreenUpdating = False

Sheets("Customer").Range("A49") = "Type of Service: Add"

If OptionButtonAdd.Value = True Then
 Sheets("Customer").Range("A84:A176").EntireRow.Hidden = True
Else
  Sheets("Customer").Range("A84:A176").EntireRow.Hidden = False
   
End If

[/code]

 

[zzjasonzz]

add

sheets("customer").rows("1:65546").entirerow.hidden = false

at the beginning of each sub, so it iwll unhide all rows before doing anything

 

[Debs]

Thanks zzJasonzz for pointing me in the right direction. I adapted your code to fit mine and it works great!