Check Box Macro

[ApolloID]

Hi, i need help with a macro that will run when a check box in sheet 1 is checked.

I have a check box (2) placed in "A9" and the linked cell is "B10"
I also have a check box (3) in "A11" and linked cell is in "B12"

I need a macro that will change the linked cell (row) height to 120.

If i click check box 2, then to adjust the height of the correspondant cell (row).

If i click check box 3, then to adjust the height of the correspondant cell (row).

Can this be done?

Thanks in advance!

 

[ApolloID]

Yes, you are right. The code in post 4 does that. I tried it again. And is working.

It didn't worked because i changed this line:
If Cells(Target.Row, "A") <> "" Then
with this:
If Cells(Target.Row, "A") <> "Note" Then

it was a mistake. Sorry.

Now, both codes are great and they work perfect.

One last request.
Can the height (on doubleclick) make autofit instead of a fixed height?

Thanks alot!

 

[lenze]

Have a look at xlAutoFit

lenze

 

[ApolloID]

Hi,

Can your code expand entire row only if i click a cell in row A?
Because i have another code that i need to work on doubleclick in column E.

Can this be done?

Thanks alot!

 

[lenze]

If Target.Column <> 1 Then Exit Sub

will limit the macro to Column "A" only
That said, you can only have ONE BeforeDoubleClick event. So you will need to use Select Case

Select Case Target.Column
Case 1        'Column "A"
   'some code
 
Case 5        'Column "E"
   'Some code
 
Case Else:
End Select

lenze

 

[ApolloID]

Thank you!
This is the code, and it's working:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Column
   Case 5
      If Cells(Target.Row, "E") <> ">>" Then Exit Sub
      If Target.RowHeight <> 120 Then
        Target.RowHeight = 120
      Else:  Target.RowHeight = 15
      End If
   Case Else:
End Select
''''''''''''''''''''''''''''''''''''
Select Case Target.Column
   Case 7
        If Target.Value = "New" Then
            Target.Value = "Old"            
        Else
            Target.Value = "New"
        End If
   Case Else:
End Select
End Sub

Thank you for your help.
Thanks!