O
oldjay
I could send this to the Programing form
I want to change the following macro to copy the list to the A column with
formats (color or no color) to a new sheet called Results. I will run the
macro again and place the list in the next column.etc
Sub MyCount()
Dim lw As Integer
Dim MyConstant As Integer
Dim Counter As Integer
Dim rRange As Range
Dim rCell As Range
Set rRange = Range("A2:F31")
lw = Range("A" & Rows.Count).End(xlUp).Row
MyConstant = Application.CountA(Sheets("Master").Range("A2:I31"))
Range("K22").Value = MyConstant
For Each rCell In rRange
If rCell.Interior.ColorIndex = 36 Then
Counter = 1 + Counter
End If
Next rCell
Range("K21").Value = Counter
End Sub
I want to change the following macro to copy the list to the A column with
formats (color or no color) to a new sheet called Results. I will run the
macro again and place the list in the next column.etc
Sub MyCount()
Dim lw As Integer
Dim MyConstant As Integer
Dim Counter As Integer
Dim rRange As Range
Dim rCell As Range
Set rRange = Range("A2:F31")
lw = Range("A" & Rows.Count).End(xlUp).Row
MyConstant = Application.CountA(Sheets("Master").Range("A2:I31"))
Range("K22").Value = MyConstant
For Each rCell In rRange
If rCell.Interior.ColorIndex = 36 Then
Counter = 1 + Counter
End If
Next rCell
Range("K21").Value = Counter
End Sub