Building A string

  • Thread starter Thread starter dmoney
  • Start date Start date
D

dmoney

I have a need to build a string that is a concantanation of and undetermined
amonunt of addresses. For example my code finds an initial address of a cell
and stores it to a variable. my code then performs a find next to get the
next address and i would like to build on to the initial string for every new
address with a desired final string something similar to this "=$a$13 & "+" &
$a$23 & "+" & $a$613 & "+" & $c$733 ...

basically im trying to build a string to put in a cell that will add the
values of certain cells based on a condition

your help is greatly appreciated
 
The below macro will take you in the right direction..

Sub Macro1()
Dim varFound As Variant, varSearch As Variant
Dim strAddress As String, strOutput As String

varSearch = "dmoney"
With Worksheets("Sheet1").UsedRange
Set varFound = .Find(varSearch, LookIn:=xlValues)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
Set varFound = .FindNext(varFound)
strOutput = strOutput & "+" & varFound.Address
Loop While Not varFound Is Nothing And _
varFound.Address <> strAddress
End If
End With
MsgBox "=" & Mid(strOutput, 2)
End Sub

If this post helps click Yes
 
Back
Top