Hi everyone,

I have a sheet 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
sheet.

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

For Each RowData In ActiveSheet.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

Is this superseded by your later post?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Paul Black" wrote in message
oups.com...
Hi everyone,

I have a sheet 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
sheet.

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

For Each RowData In ActiveSheet.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

Yes Bob,

I thought I had deleted this one.

Thanks in Advance.
All the Best.
Paul

On Aug 21, 11:27 am, "Bob Phillips" wrote:
Is this superseded by your later post?

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Paul Black" wrote in message

oups.com...



Hi everyone,

I have a sheet 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
sheet.

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

For Each RowData In ActiveSheet.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- Hide quoted text -

- Show quoted text -