Checking if it is the 1st cell in a range?

[jxb]

to all

Is there a way of checking when the 1st cell in a range is used see below

Sub macro1()

Dim rgcurrentrw As Range
Set rgcurrentrw = ActiveSheet.Range("A2:E2")

Dim strout As String

'what I have currently
For Each cell In rgcurrentrw
    strout = strout & "," & cell.Value
Next cell

Debug.Print strout
'I get strout ,aa1,bb1,1,2,3
'but I want aa1,bb1,1,2,3 ie no comma from the 1st cell
'someting like
If 1stcell in range rgcurrentrw then
   strout = cell.Value
Else
      strout = strout & "," & cell.Value
End If

End Sub

 

[dmt32]

Hi,
see if this update to your code does what you want

For Each cell In rgcurrentrw
    strout = strout & cell.Value & ","
Next cell
strout = Mid(strout, 1, Len(strout) - 1)

Dave

 

[jxb]

Thanks. This MID() removes the last value in the string it seems. I think I get the idea however

strout = Mid(strout, 2, Len(strout))

I am not sure this is going to work for me as if I want to expand to multiple rows then at "loop" I'll lose the 1st character every time

 

[dmt32]

For Each cell In rgcurrentrw
    strout = strout & cell.Value & ","
Next cell
strout = Mid(strout, 1, Len(strout) - 1)

my code removes the comma (",") at the very end of the string

You have posted something different

Dave

 

[jxb]

my apologies. Just spotted the different syntax for strout.

 

[dmt32]

my apologies. Just spotted the different syntax for strout.

No worries does happen from time to time - always worth looking at all updates to code posted.

Trust suggestion has resolved the issue?

Dave

 

[jxb]

I think it did. But thinking about the ultimate aim of the macro I might be better of writing to a csv (txt) file directly rather than working with a concatenated string and then write the final one to the file