copying columns

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
 
J

Jim Thomlinson

So this is not changing your existing macro. It is adding to it by having it
copy the contents of column A to the first available blank column on your
results sheet?
 
O

oldjay

I just want to modify the existing macro to copy all cells with text (color
or no color) to the first available column in Results
 
O

oldjay

I just want to modify the existing macro to copy all cells with text (color
or no color) to the first available column in Results
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top