Auto format sheet
in [Programming]
|
From: C on 2 Apr 2010 13:46 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
From: Paul on 2 Apr 2010 14:40 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/showthread.php?t=192571 http://www.thecodecage.com/forumz
From: C on 2 Apr 2010 16:26 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/showthread.php?t=192571 > > http://www.thecodecage.com/forumz > > . >
|
Pages: 1 Prev: Personalizing a macro based on user input Next: Sort by range |