[color=blue]Sub[/color] arisConcatenating2a()
[color=blue]Dim[/color] wks [color=blue]As[/color] Worksheet: [color=blue]Set[/color] wks = ThisWorkbook.Worksheets("Aris") [color=lightgreen]'Sheet Info[/color]
[color=blue]Dim[/color] lr [color=blue]As[/color] Long: [color=blue]Let[/color] lr = wks.Cells(Rows.Count, 1).End(xlUp).Row 'Last Row in Sheet
[color=blue]Dim[/color] rngD [color=blue]As[/color] Range: [color=blue]Set[/color] rngD = wks.Range("D1:D" & lr & "") [color=lightgreen]'Output Range[/color]
rngD.Clear 'Just so I know the next lines work!!
[color=lightgreen]'Concatente with Evaluate[/color]
rngD.Value = Evaluate(Replace(Replace("@A1:A#&"" ; ""&@B1:B#&"" ; ""&@C1:C#", "@", "'" & wks.Name & "'!"), "#", lr))
rngD.Value = Evaluate(Replace(Replace("@A1:A#&"" ; ""&@B1:B#&"" ; ""&@C1:C#", "@", "'" & wks.Name & "'!"), "#", "" & lr & ""))
rngD.Value = Evaluate(Replace("'" & wks.Name & "'!A1:A#&"" ; ""&'" & wks.Name & "'!B1:B#&"" ; ""&'" & wks.Name & "'!C1:C#", "#", lr))
[color=lightgreen]'rngD.Value = Evaluate("'" & wks.Name & "'!A1:A"" & lr & ""&"" ; ""&'" & wks.Name & "'!B1:B"" & lr & ""&"" ; ""&'" & wks.Name & "'!C1:C"" & lr & """)[/color]
[color=lightgreen]'rngD.Value = Evaluate("'" & wks.Name & "'!A1:Alr&"" ; ""&'" & wks.Name & "'!B1:Blr&"" ; ""&'" & wks.Name & "'!C1:Clr")[/color]
[color=blue]End[/color] [color=blue]Sub[/color] [color=lightgreen]'arisConcatenating[/color]
[color=lightgreen]' Replace(Replace("@A1:A#&"" ; ""&@B1:B#&"" ; ""&@C1:C#", "@", "'" & wks.Name & "'!"), "#", lr)[/color]
[color=lightgreen]' Replace("@A1:A#&"" ; ""&@B1:B#&"" ; ""&@C1:C#", "@", "'" & wks.Name & "'!")[/color]
[color=lightgreen]' = '" & wks.Name & "'!A1:A#&"" ; ""&'" & wks.Name & "'!B1:B#&"" ; ""&'" & wks.Name & "'!C1:C#[/color]
[color=lightgreen]'[/color]
' Replace("'" & wks.Name & "'!A1:A#&"" ; ""&'" & wks.Name & "'!B1:B#&"" ; ""&'" & wks.Name & "'!C1:C#", "#", lr)
[color=lightgreen]' = '" & wks.Name & "'!A1:Alr&"" ; ""&'" & wks.Name & "'!B1:Blr&"" ; ""&'" & wks.Name & "'!C1:Clr[/color]
[color=lightgreen]'[/color]
' Replace("'" & wks.Name & "'!A1:A#&"" ; ""&'" & wks.Name & "'!B1:B#&"" ; ""&'" & wks.Name & "'!C1:C#", "#", "" & lr & "")
[color=lightgreen]' = '" & wks.Name & "'!A1:A"" & lr & ""&"" ; ""&'" & wks.Name & "'!B1:B"" & lr & ""&"" ; ""&'" & wks.Name & "'!C1:C"" & lr & ""[/color]
[color=lightgreen]'[/color]
'