Hello All,
I am trying to create a macro that will run through my sheet of a couple thousand lines and format the text how i want it. Currently this process takes me a couple hours to get a report to look the way it should. Can you please help? Attached is further direction of what i am looking to do. Thank you very much in advance for your help!
-Chris
Private Sub CommandButton1_Click() Dim LR As Long, i As Long LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR If Cells(i, 2).Font.Bold Then Cells(i, 1).Resize(1, 4).Font.Bold = True Next i End Sub
Oh. I didn't see the borders. Use this instead.
Private Sub CommandButton1_Click() Dim LR As Long, i As Long LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR If Cells(i, 2).Font.Bold Then Cells(i, 1).Resize(1, 4).Font.Bold = True Cells(i, 3).Resize(1, 2).Borders(xlEdgeTop).Weight = xlThin End If Next i Cells(LR, 3).Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlDouble End Sub
when i put this code into the workbook, it doesn't come up in my macro viewer
insert a new module with a new sub name and insert
Dim LR As Long, i As Long LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR If Cells(i, 2).Font.Bold Then Cells(i, 1).Resize(1, 4).Font.Bold = True Cells(i, 3).Resize(1, 2).Borders(xlEdgeTop).Weight = xlThin End If Next i Cells(LR, 3).Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlDouble
AMAZING!!!! Any way to make the double line border into the border style of single top line and double bottom line?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
nyhiggs22 
Register To Reply
Bookmarks