Prev: Personalizing a macro based on user input
Next: Sort by range
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