I am not a programmer but need to automate clean up of data that I have to
work with daily. I was hoping someone could please help me out.

I need to do the following:

For entire worksheet. Could be data in A1:J500 or data could be in rows
A1:AV6000.


If Column A = Then Do This:

1 Do Nothing
2 Indent Column B 5 Spaces
3 Indent Column B 10 Spaces
4 Indent Column B 15 Spaces
5 Indent Column B 20 Spaces
6 Indent Column B 25 Spaces
7 Indent Column B 30 Spaces
8 Indent Column B 35 Spaces



Also for entire worksheet. Could be data in A1:J500 or data could be in
rows A1:AV6000.

If Column B = Yes Then Bold and shade in gray this row from column A to end
of data on row. Could be column J or Column AV.

Many thanks and much appreciation in advance for your assistance.

C, you could try something like this.

Sub Cases()

Dim LastRow As Integer
Dim LastCol As Integer
Dim TargetRange As Range

'Get the last row of the range
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

'Step through all cells in the range
For i = 1 To LastRow Step 1

'Get the last column in the row
LastCol = Cells(i, Columns.Count).End(xlToLeft).Column

'Set the range
Set TargetRange = Range(Cells(i, 1).Address & ":" & Cells(i,
LastCol).Address)
With TargetRange
Select Case True
Case Range("B" & i).Value = "Yes"
.Interior.ColorIndex = 15
.Font.Bold = True
End Select
End With
Next i
End Sub

Greg

"C" wrote:

I am not a programmer but need to automate clean up of data that I have to
work with daily. I was hoping someone could please help me out.

I need to do the following:

For entire worksheet. Could be data in A1:J500 or data could be in rows
A1:AV6000.


If Column A = Then Do This:

1 Do Nothing
2 Indent Column B 5 Spaces
3 Indent Column B 10 Spaces
4 Indent Column B 15 Spaces
5 Indent Column B 20 Spaces
6 Indent Column B 25 Spaces
7 Indent Column B 30 Spaces
8 Indent Column B 35 Spaces



Also for entire worksheet. Could be data in A1:J500 or data could be in
rows A1:AV6000.

If Column B = Yes Then Bold and shade in gray this row from column A to end
of data on row. Could be column J or Column AV.

Many thanks and much appreciation in advance for your assistance.

Most beginners start by recoding their keystrokes using the Macro Recorder
feature. Click ToolsMacroRecord New Macro, Fill in macro name in pop up
box or just click OK. You can now begin manually executing the steps you
want to record. There should be a tool bar showing on the screen with a
button to click when you want to stop recording.



"C" wrote in message
...
I am not a programmer but need to automate clean up of data that I have to
work with daily. I was hoping someone could please help me out.

I need to do the following:

For entire worksheet. Could be data in A1:J500 or data could be in rows
A1:AV6000.


If Column A = Then Do This:

1 Do Nothing
2 Indent Column B 5 Spaces
3 Indent Column B 10 Spaces
4 Indent Column B 15 Spaces
5 Indent Column B 20 Spaces
6 Indent Column B 25 Spaces
7 Indent Column B 30 Spaces
8 Indent Column B 35 Spaces



Also for entire worksheet. Could be data in A1:J500 or data could be in
rows A1:AV6000.

If Column B = Yes Then Bold and shade in gray this row from column A to
end
of data on row. Could be column J or Column AV.

Many thanks and much appreciation in advance for your assistance.