Hi all...
Could you possibly tell me how to add a bold line in Excel. My code is as follows:
Sub Clear_Fields()
Dim Store_NB As Long
Dim Store_Instrument As String
Set FixWS = Workbooks("My.xls"
.Worksheets("ABC"
rr = 2
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value
rr = rr + 1
While (FixWS.Cells(rr, 1).Value <> ""
If (FixWS.Cells(rr, 1).Value = Store_NB) Then
FixWS.Cells(rr, 1).ClearContents
FixWS.Cells(rr, 2).ClearContents
Else
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value
End If
rr = rr + 1
Wend
End Sub
....so, each time a new Store_NB is found I would like a line added above it across the sheet. This will make it slightly more presentable and differentiate between values.
I've tried inserting a macro, but that looks messy!
Could you possibly tell me how to add a bold line in Excel. My code is as follows:
Sub Clear_Fields()
Dim Store_NB As Long
Dim Store_Instrument As String
Set FixWS = Workbooks("My.xls"
rr = 2
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value
rr = rr + 1
While (FixWS.Cells(rr, 1).Value <> ""
If (FixWS.Cells(rr, 1).Value = Store_NB) Then
FixWS.Cells(rr, 1).ClearContents
FixWS.Cells(rr, 2).ClearContents
Else
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value
End If
rr = rr + 1
Wend
End Sub
....so, each time a new Store_NB is found I would like a line added above it across the sheet. This will make it slightly more presentable and differentiate between values.
I've tried inserting a macro, but that looks messy!