Please help....bold row based on indent

[plshlp123]

Please help write a macro that will bold entire rows based on no indentation.

 

[JoeMo]

Assuming you are using column A for this:

Sub NoIdent()
Dim lR As Long, R As Range
lR = Range("A" & Rows.Count).End(xlUp).Row
Set R = Range("A1", "A" & lR)
For Each C In R
    If Not IsEmpty(C) Then
        If C.IndentLevel = 0 Then C.EntireRow.Font.Bold = True
    End If
Next C
End Sub

 

[plshlp123]

JoeMo - thanks for the timely response. I am new to this and appreciate your help.

can you help me add the following commands to my original question?

1 - remove all formatting on the spreadsheet
2- top and bottom borders (and bold) all rows not indented


Thank you!

Assuming you are using column A for this:

Sub NoIdent()
Dim lR As Long, R As Range
lR = Range("A" & Rows.Count).End(xlUp).Row
Set R = Range("A1", "A" & lR)
For Each C In R
    If Not IsEmpty(C) Then
        If C.IndentLevel = 0 Then C.EntireRow.Font.Bold = True
    End If
Next C
End Sub

 

[JoeMo]

JoeMo - thanks for the timely response. I am new to this and appreciate your help.

can you help me add the following commands to my original question?

1 - remove all formatting on the spreadsheet
2- top and bottom borders (and bold) all rows not indented


Thank you!

Removing all formatting from the sheet will remove all indenting (a form of formatting). Then item 2 in your list will result in all rows having non-empty cells in column A having bold font and top & bottom borders. Is that what you want??

BTW, formatting a large number of entire rows causes file size to increase significantly. Why do you need borders all the way across a sheet?

 

[plshlp123]

You're right, as I'm sure you are aware. I need to put top and bottom borders on the same rows that are bolded.

I can find another way around the alignment issue - thanks for bringing this to my attention.

Removing all formatting from the sheet will remove all indenting (a form of formatting). Then item 2 in your list will result in all rows having non-empty cells in column A having bold font and top & bottom borders. Is that what you want??

BTW, formatting a large number of entire rows causes file size to increase significantly. Why do you need borders all the way across a sheet?

 

[plshlp123]

Thanks for pointing that out. I can look into how to get around that, my task order is probably incorrect.

I need to put top and bottom borders on the same cells that will be bold. They are subtotals above constituents.

 

[plshlp123]

disregard my previous posts. Contents are in column A. Is it possible to look to B and if not blank, indent contents?

after running remove all format macro

AAAA
aaaa bbb
aaaa bbb


desired outcome (top and bottom borders)

AAA
-> aaaa bbbbb
-> aaaa bbbbb

 

[JoeMo]

disregard my previous posts. Contents are in column A. Is it possible to look to B and if not blank, indent contents?

after running remove all format macro

AAAA
aaaa bbb
aaaa bbb


desired outcome (top and bottom borders)

AAA
-> aaaa bbbbb
-> aaaa bbbbb

Your reply is rather confusing.

Is AAA in column A and aaaa bbbb in column B or ?? You still want to bolden font and add top & bottom borders for rows where there is a column A entry that is not indented?? If no entry in A look at B and indent if not already indented (how many levels of indent wanted?)??

Can you post a set of requirements with a bit more specificity?

 

[plshlp123]

this works for me... can we add top and bottom borders to the bold rows?


Sub NoIdent() Dim lR As Long, R As Range lR = Range("A" & Rows.Count).End(xlUp).Row Set R = Range("A1", "A" & lR) For Each C In R If Not IsEmpty(C) Then If C.IndentLevel = 0 Then C.EntireRow.Font.Bold = True End If Next C End Sub


</pre>