Move Bold Text to Adjacent Cell

[Modify_inc]

I'm trying to move only cells in column C that are bold to the adjacent cell B, then plus one roll down so that they align with the non bold text beside it

Ex:
C1 Bold Text Here
C2 Non Bold Text Here
C3 Bold Text Here
C4 Non Bold Text Here

So, I need to get C1 moved to B2, and C3 moved to B4. This pattern continues for 500 times.
Basically, all the odd numbers are bold, and the even are non bold.

I'm able to get them moved to the B column, but I haven't figured out how to get them aligned up as I stated above. My vba is severely lacking, but here is what I have so far. Any suggestions would be awesome!

Sub Move_Bold()
    For Each cell In [C3:C500]
        If cell.Font.Bold = True Then
            Debug.Print cell.Row
            cell.Cut Range("B" & Range("B65536").End(xlUp).Row + 1)
        End If
    Next cell
End Sub

 

[Scott T]

Try
Your example starts in C1 but your code only looks ad C3:C500. I left the range in the code if need adjust the range in the for each cell

Sub Move_Bold()
    For Each cell In [C3:C500]
        If cell.Font.Bold = True Then
            cell.Cut Range("B" & cell.Row + 1)
        End If
    Next cell
End Sub

 

[Modify_inc]

Works great..Thank you!

 

[Rick Rothstein]

Works great..Thank you!

You might find this non-looping macro to be of interest as well...

[table="width: 500"]
[tr]
	[td]Sub Move_Bold()
  With Range("C3:C500")
    .Copy Range("B4")
    Application.FindFormat.Clear
    Application.FindFormat.Font.Bold = True
    .Replace "", "", SearchFormat:=True, ReplaceFormat:=False
    Application.FindFormat.Clear
    .SpecialCells(xlBlanks).Offset(, -1).ClearContents
  End With
End Sub[/td]
[/tr]
[/table]

 

[Modify_inc]

Thank you for the code. I'm curious, is non looping code better, faster, safer, recommended over code that loops?

 

[Rick Rothstein]

Thank you for the code. I'm curious, is non looping code better, faster, safer, recommended over code that loops?

Sometimes it's better, sometimes not, it depends on the data being looped and/or the number of cells involved. In your case, for so few cells, I'd guess you would not see any difference between the code's times to execute.