Get value and add next cell

Originally Posted by sanjay

Hi,

I have a range D8:D104 what I would like to do is get the value for each cell and add &servicetype1= plus the cell value etc and move to the next cell

the string looks like:
&servicetype1=first cell value&servicetype2=second cell value etc

is this possible?

Thanks,

Sanj

hit = CONCATENATE()

then hit the = sign beside the formula bar and work from there

Oh! Okay, hold on a sec


Here's how to do it with CONCATENATE with VBA

Sub Button1_Click()
Range("D1") = "Cell A1" & [A1] & "&" & "CellA2" & [A2]
End Sub


You want some sort of loop or something right?, so you can do it 98 times?

here's a great function I have found....



Public Function MultiCat(ByRef rRng As Excel.Range, _
Optional ByVal sDelimiter As String = "") As String
Dim rCell As Range
For Each rCell In rRng
MultiCat = MultiCat & sDelimiter & rCell.Text
Next rCell
MultiCat = Mid(MultiCat, 1 - (Len(sDelimiter) > 0))
'Call as =MultiCat(A1:A5)
'you can add a delimiter if you wish:
' =MultiCat(A1:A5,",")

End Function

I don't know how well this will work because of the amount of characters involved