Any option to configure spacing between rows?

Catalin.B · #4 09-20-2011, 10:51 PM

insert in a column of your choice this formula:
=CEILING(18*LEN(A4)/110;18)
where A4 is the cell to evaluate, 110 is the desired number of characters in one row of the same cell and 18 is your desired default height...adjust as necessary...
copy this formula down to all rows in column, then use this macro to adjust
row height :

Code:

Sub Height()
Dim planWks As Worksheet
Dim nextRow As Long
   Set planWks = Worksheets("Plan")
Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To 100
    If planWks.Range("U" & i).Value > 0 Then
        Rows(i & ":" & i).RowHeight = planWks.Range("U" & i).Value
    End If
Next i
Application.ScreenUpdating = True
End Sub

change sheet name , range to evaluate and column letter as needed...
In this macro, the column which has the necessary row height (calculated with the initial formula) is column "U"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to configure outlook?	testbysunny	Outlook	2	07-18-2014 11:18 PM
Configure Outlook 2000 with AOL	Foggy	Outlook	2	02-10-2011 10:12 AM
Can not Configure Outlook 2007 for the first time	MSdBaSqL	Outlook	1	12-25-2010 06:56 PM
Configure MailBox outlook	rmramprabhu	Outlook	0	05-16-2010 03:04 PM
Office programs attempt to configure when opened	Lewis Mcgee	Office	2	12-04-2009 09:49 AM