Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto format sheet
I have a spreadsheet that I continously have to format. It is a data dump
from another application. It could be any number of rows and any number of columns. I need a macro that will look at column A and format B based on the number in Column A. So if Column A is 2 then indent Col B 5 spaces, if Col A is 3 then indent Col B 10 spaces, if Col A is 4 then indent Col B 15 spaces. Also if Col B is Bold then shade row Gray. Thanks in advance for your help. clv |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto format sheet
The following code should work: Code: -------------------- Sub reformat() Dim i As Long For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, 1).Value = 2 And Cells(i, 1).Value <= 4 Then Cells(i, 2).Value = Space(5 * (Cells(i, 1).Value - 1)) & Cells(i, 2).Value End If If Cells(i, 2).Font.Bold = True Then Cells(i, 2).EntireRow.Interior.ColorIndex = 15 Next i End Sub -------------------- -- Paul - Paul ------------------------------------------------------------------------ Paul's Profile: 1697 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=192571 http://www.thecodecage.com/forumz |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto format sheet
Paul,
This is perfect. Thank you so much. clb "Paul" wrote: The following code should work: Code: -------------------- Sub reformat() Dim i As Long For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, 1).Value = 2 And Cells(i, 1).Value <= 4 Then Cells(i, 2).Value = Space(5 * (Cells(i, 1).Value - 1)) & Cells(i, 2).Value End If If Cells(i, 2).Font.Bold = True Then Cells(i, 2).EntireRow.Interior.ColorIndex = 15 Next i End Sub -------------------- -- Paul - Paul ------------------------------------------------------------------------ Paul's Profile: 1697 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=192571 http://www.thecodecage.com/forumz . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto copy cell data from source sheet to another wrkbook sheet | Excel Programming | |||
Auto Copy/autofill Text from sheet to sheet if meets criteria | Excel Discussion (Misc queries) | |||
ignore auto format after applying a custom format?? | Excel Discussion (Misc queries) | |||
Help: auto-copy entire rows from 1 sheet (based on cell criteria) to another sheet. | Excel Programming | |||
Excel Auto-Format cell to email format | Excel Discussion (Misc queries) |