Count Variable

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi everyone,

I have a *** where column one is a number from one to whatever.
In columns two to seven I have a number in each cell.
What I would like to do is, instead of it picking up the number from
column one using the variable GName, use the variable GName as a
counter, so the results will be exactly the same as they are now other
than the GName counter is used instead of it being picked up from the
***.

Public Sub Test()
Dim RowData As Range
Dim C As Long
Dim WName As String
Dim WData As String

For Each RowData In Active***.UsedRange.Rows
With RowData
GName = .Cells(1, 1).Value
GData = ""
For C = 2 To 6
GData = GData & .Cells(1, C).Value & ","
Next C
WData = WData & .Cells(1, 7).Value
Debug.Print "SetGroup" & GName & "," & GData
End With
Next RowData
End Sub

Thanks in dvance.
All the Best.
Paul

.

Quantcast