marshybid
06-06-2008, 07:50 AM
Hi All,
Friday afternoon and I have to get somethiong finished, hoping someone can help.
I currently have the following code as part of a macro
Set myBaseWorkSheet = ActiveWorkbook.ActiveSheet
Set myBaseRange = myBaseWorkSheet.Rows
For RowsCounter = myBaseRange.Rows.Count To 2 Step -1
Set myBaseRow = myBaseRange.Item(RowsCounter)
If Len(myBaseRow.Cells.Item(1, 8)) <> 0 Then
'// Delete data that we do not need for each tab
If myBaseRow.Cells.Item(1, 1) <> "Y" Then
myBaseRow.Delete
End If
End If
Next
I want to replace the myBaseRow.Delete statement with myBaseRow. Interior colour green for example.
I don't know the syntax.
Thanks in advance
Marshybid
Friday afternoon and I have to get somethiong finished, hoping someone can help.
I currently have the following code as part of a macro
Set myBaseWorkSheet = ActiveWorkbook.ActiveSheet
Set myBaseRange = myBaseWorkSheet.Rows
For RowsCounter = myBaseRange.Rows.Count To 2 Step -1
Set myBaseRow = myBaseRange.Item(RowsCounter)
If Len(myBaseRow.Cells.Item(1, 8)) <> 0 Then
'// Delete data that we do not need for each tab
If myBaseRow.Cells.Item(1, 1) <> "Y" Then
myBaseRow.Delete
End If
End If
Next
I want to replace the myBaseRow.Delete statement with myBaseRow. Interior colour green for example.
I don't know the syntax.
Thanks in advance
Marshybid