Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Merging columns based on cell condition
Reusing this snippet from 2 days ago (thankyou very much) When the condition
in Column A is true I need to merge the cells in columns B-H for that row and center the string from an input box. Dim Rng As Range Dim r As Range, i As Long Dim strname As String strname = InputBox("Which Term?", "Term", "") If strname = vbNullString Then Exit Sub End If Set Rng = Range("A1:A1000") For i = Rng(Rng.Count).Row To Rng(1).Row Step -1 Set r = cells(i, Rng.Column) If r.Font.Bold Then ??? ---- Merge columns B-H and center strname <---??? r.EntireRow.PageBreak = xlManual End If Next i End Sub Your in confusion Todd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hide Columns Based on Condition | Excel Programming | |||
Hide Columns Based on Condition | Excel Programming | |||
colore cell based on condition | Excel Programming | |||
Delete Columns based on a condition | Excel Programming |