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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <bob....@somewhere.com> 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" <paul_blac...@hotmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > 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 -