Expand rows based on cell value

[ktclrk]

I need a macro code which I can attach to a command button which will expand specific rows based on cell values.

My sheet has a series of questions. or each question, there are 4 possible answers in a drop down menu in column A.
If the answer has more than 4 characters in length, I need the rows immediately beneath to expand.
If the answer has less than 4 characters in length, I need the rows to stay hidden.
There is no answer with exactly 4 characters in length.

The range for this is from rows 6 to 276.

Any suggestions are HIGHLY appreciated for this!


EDIT:
It looks like some of my text didn't all get in to the original post...

For each question...
If the answer has more than 4 characters in length, I need the 3 rows immediately beneath...

 

[ktclrk]

Need help with macros script to expand rows

I'm new to macros and need some help please.

I have the following attached to a command button which worked yesterday but isn't working today.

Private Sub CommandButton1_Click()​

Sub ExpandRows()​

Range("C7").Select​

If Len(C7) > 4 Then​

Rows("8:10").Select​

Selection.EntireRow.Hidden = False​

End If​

End Sub​

Any suggestions?

 

[ktclrk]

Re: Need help with macros script to expand rows

I figured it out! If anyone is following... I took a different approach and it works like a charm

Private Sub CommandButton1_Click()


For a = 7 To 262


If Worksheets("Sheet 1").Cells(a, 1).Value = "Recommendation" Then


Worksheets("Sheet 1").Rows(a + 1).Hidden = False
Worksheets("Sheet 1").Rows(a + 2).Hidden = False
Worksheets("Sheet 1").Rows(a + 3).Hidden = False

End If

If Worksheets("Sheet 1").Cells(a, 1).Value = "Deficiency" Then


Worksheets("Sheet 1").Rows(a + 1).Hidden = False
Worksheets("Sheet 1").Rows(a + 2).Hidden = False
Worksheets("Sheet 1").Rows(a + 3).Hidden = False


End If


Next


End Sub