Setting the row height based on a cell value

D

dcl

I want to set the row height of all rows after after a certain row based on
the value of a cell within each row.

Can anyone give me the VB to do this?

Thanks
 
A

Ayush Jain

If you want to set row height based on the values in Column B,you can
use the below code to do the same.

Sub Macro1()
For i = 1 To 20
If Range("B" & i).Value <> "" Then
ActiveSheet.Rows(i & ":" & i).RowHeight = Range("B" & i).Value
End If
Next
End Sub

Cheers :)

-Ayush Jain
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

I want to make One Cell mandatory if another cell has a specific value , can anyone help me? 0
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
collapse an expand rows using VB 7
amend row height on all sheets 0
AutoFit Macro to Reduce row height? 0
Row Height -- Slows VBA 7
Automatically Change Row Height Based on Cell Contents? 6
Change row height based on content of merged cell 2

Top