VBA to continously update row height as cell changes

[karinfromsweden]

Hey all,
Remember I did this years ago, but now I cant get it to work, nor find a similar question in the forum. I'm generating a list where the cell content change a lot from row to row depending on the user input. The list is mainly generated via validation lists, sometimes there's a lot of text, sometimes just a few words. What I need is a macro that works continuously, so if a longer value is selected in the list, the row should automatically get higher, but if its changed to a shorter value, the row should shrink.
Using the "Format > Autofit" doesn't work seamlessly, it "sticks" to one height, and if the cell changes to another size, the command has to be repeated. I want the macro to be running in the background and do this automatically.

Could anyone please help?

Many thanks in advance

/Karin

 

[karinfromsweden]

Hey all,
Remember I did this years ago, but now I cant get it to work, nor find a similar question in the forum. I'm generating a list where the cell content change a lot from row to row depending on the user input. The list is mainly generated via validation lists, sometimes there's a lot of text, sometimes just a few words. What I need is a macro that works continuously, so if a longer value is selected in the list, the row should automatically get higher, but if its changed to a shorter value, the row should shrink.
Using the "Format > Autofit" doesn't work seamlessly, it "sticks" to one height, and if the cell changes to another size, the command has to be repeated. I want the macro to be running in the background and do this automatically.

I guess it's something starting with

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ...but then what?

/Karin again....

 

[karinfromsweden]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F4:I2000")) Is Nothing Then
Target.Rows.AutoFit
Else
Range("F:F").Rows.AutoFit
Range("G:G").Rows.AutoFit
Range("I:I").Rows.AutoFit
End If
End Sub