Change Row Height When Row is Selected

[antifragile]

Hi,

I would like a vba code that allows me to select the entire row of the selected cell, doubles the row height(or to certain height), and fills the row background color with, say, turquoise. Also, when I select another cell or row, I would like the previously selected row to go back to its original format, size and fill color.

So far I was able to figure out selecting the entire row of the selected cell, I can also increase the row height but I cannot have it go back to its original formatting when I select another cell or row.
My code is something like below:

[COLOR=#011993][FONT=Menlo]Private[/FONT][/COLOR][COLOR=#011993][FONT=Menlo]Sub[/FONT][/COLOR][COLOR=#000000][FONT=Menlo] Worksheet_SelectionChange([/FONT][/COLOR][COLOR=#011993][FONT=Menlo]ByVal[/FONT][/COLOR][COLOR=#000000][FONT=Menlo] Target [/FONT][/COLOR][COLOR=#011993][FONT=Menlo]As[/FONT][/COLOR][COLOR=#000000][FONT=Menlo] Range)[/FONT][/COLOR][COLOR=#000000][FONT=Menlo]ActiveCell.EntireRow.Select[/FONT][/COLOR]
[COLOR=#000000][FONT=Menlo]Selection.RowHeight = 32[/FONT][/COLOR]
[COLOR=#011993][FONT=Menlo]EndSub[/FONT][/COLOR]

Any ideas are greatly appreciated.

Thanks,

 

[MUKESHY12390]

here you go....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.RowHeight = 32
End Sub

 

[antifragile]

MUKESHY12390,

Thanks for your reply. I tried your suggestion but it does not revert the formatting back to original when I select a different cell.
Here is an example of what I want to achieve:

When I select D5, I want the entire row 5 to be selected and row height will be 32 (which I can with my code).
Also I would like the selected row to be filled with background color (yellow, blue, etc.)

WHEN I SELECT A DIFFERENT CELL (say B9)
I want the same formatting that was applied to row 5 when it was selected.
AND
I want row 5 to go back to its original formatting, (row height back to 16, no fill), as that row is no longer selected.

Hope this clarifies.

Thanks,

 

[Saba Sabaratnam]

Try this one

Public strLastCell As String
Public strActiveCell As String
Public intLastCellHeight As Integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)






If strActiveCell = "" Then strActiveCell = ActiveCell.Address
strLastCell = strActiveCell
strActiveCell = ActiveCell.Address
intLastCellHeight = ActiveCell.RowHeight






Target.RowHeight = 32


Range(strLastCell).RowHeight = intLastCellHeight




End Sub

 

[antifragile]

This one actually does not do anything.

 

[Fluff]

How about

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Static Rng As Range
   If Not Rng Is Nothing Then
      Rng.RowHeight = 12.75
      Rng.EntireRow.Interior.Color = xlNone
   End If
   Target.RowHeight = 25.5
   Target.EntireRow.Interior.Color = 45678
   Set Rng = Target
End Sub

 

[antifragile]

This worked like a charm. Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[shg]

That kills Undo ...

 

[Saba Sabaratnam]

When a selection is changed from one row to another, my code changes row height of the previous row back to what it was and increase the new row height to 32. I had tested it few times before posting it. Thank you