VB Question

[earthsuiter]

Good Afternoon,

I'm tring to figure out what the VB code I would need to do the following:

Look at all values in column B
If value = "break" then .RowHeight = 2.5

Thanks for your time.
Tim

 

[earthsuiter]

Peter,

When I use this Macro code, I'm getting 80 + rows that are all 2.5mm big after it reads the "!" value. Any ideas?

Sub alignment()
Dim LR, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
Select Case Range("A" & i).Value
Case "^": Rows(i).RowHeight = 2.5
Case "!": Rows(i).Resize(3).Insert
Case "@": Rows(i & ":" & LR).Cut Destination:=Sheets("Sheet2").Range("A1"): Exit Sub
End Select
Next i
End Sub

 

[VoG]

Try

Sub alignment()
Dim LR, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Select Case Range("A" & i).Value
        Case "^": Rows(i).RowHeight = 2.5
        Case "@": Rows(i & ":" & LR).Cut Destination:=Sheets("Sheet2").Range("A1"): Exit Sub
    End Select
Next i
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    Select Case Range("A" & i).Value
        Case "!": Rows(i).Resize(3).Insert
    End Select
Next i
End Sub

 

[earthsuiter]

It inserts the blank rows correctly, but the cell height is 2.5, when it should be 15

 

[earthsuiter]

Peter, the RowHeight = 15 doesn't work.
Do you know what's wrong with this code?
Thanks alot!

Sub alignment()
Dim LR, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
Select Case Range("A" & i).Value
Case "^": Rows(i).RowHeight = 2.5
End Select
Next i
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
Select Case Range("A" & i).Value
Case "!": Rows(i).Resize(1).Insert RowHeight = 15
End Select
Next i
Columns("A:A").ColumnWidth = 0.1
Columns("B:B").ColumnWidth = 28.57
Columns("C:C").ColumnWidth = 21.14
Columns("D:D").ColumnWidth = 20.14
Columns("E:E").ColumnWidth = 5.43
Columns("F:F").ColumnWidth = 5.43
End Sub