Concatinating cells
 

Hi,

I am a newbie in VB and I was trying to code a funtion in it where it
concatinates all the elements in a row in 'sheetx' and make it into one
string and paste it into a row of 'sheety'.
Thus my code reads...

Sub Convert_Map_to_Text()

Dim sMap As String

For i = 5 To 24
For j = 2 To 80

sMap = sMap + Worksheets("Sheet3").Cells(i, j)
Next j

Worksheets("Sheet4").cell(i - 4, 1) = sMap
Next i


End Sub
--------------------

But I got the following error.

type run error 13
type Mismatch

Can some one point out why this is happening, and if possible a
solution for the same?

Thank you very much in advance.

Regards,
Praveen.

Concatinating cells
 

Hi Praveen,

The following worked for me

Sub Convert_Map_to_Text()

Dim sMap As String
Dim i As Long, j As Long

For i = 5 To 24
For j = 2 To 80

sMap = sMap + _
CStr(ActiveSheet.Cells(i, j).Value)
Next j
Worksheets("Sheet4").Cells(i, 1).Value = sMap
Next i

End Sub

---
Regards,
Norman



"Praveen" wrote in message
oups.com...
Hi,

I am a newbie in VB and I was trying to code a funtion in it where it
concatinates all the elements in a row in 'sheetx' and make it into one
string and paste it into a row of 'sheety'.
Thus my code reads...

Sub Convert_Map_to_Text()

Dim sMap As String

For i = 5 To 24
For j = 2 To 80

sMap = sMap + Worksheets("Sheet3").Cells(i, j)
Next j

Worksheets("Sheet4").cell(i - 4, 1) = sMap
Next i


End Sub
--------------------

But I got the following error.

type run error 13
type Mismatch

Can some one point out why this is happening, and if possible a
solution for the same?

Thank you very much in advance.

Regards,
Praveen.

Concatinating cells
 

Hi,
You have certainly removed the error. But since the Smap vaiable is not
getting cleared it will carying the whole string from the previous row
also.. I have to just look into that also...

Any way thanks a lot for the break through !!!

Concatinating cells
 

Hi Praveen,

Sub Convert_Map_to_Text2()

Dim sMap As String
Dim i As Long, j As Long

For i = 5 To 24
For j = 2 To 80

sMap = sMap + _
CStr(ActiveSheet.Cells(i, j).Value)
Next j
Worksheets("Sheet4").Cells(i, 1).Value = sMap
sMap = "" '<<==============
Next i

End Sub


---
Regards,
Norman



"Praveen" wrote in message
ups.com...
Hi,
You have certainly removed the error. But since the Smap vaiable is not
getting cleared it will carying the whole string from the previous row
also.. I have to just look into that also...

Any way thanks a lot for the break through !!!

Concatinating cells
 

THANKS Alot ... just now I did that. I got the same idea struck in my
head also. Thanks again...

Regards,
Praveen.