how to select and append a column in VB and excel tia sal2
Greetings All
I'm trying to select a column of cells and append all there contents to one cell. Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
how to select and append a column in VB and excel tia sal2
Hi
Try this: Public Function AppendCode(TargetRange As Range) For Each cell In TargetRange If myStr = "" Then myStr = cell.Value & " code" Else myStr = myStr & " " & cell.Value & " code" End If Next AppendCode = myStr End Function In C4 enter the formula: =AppendCode(A1:A70) Hopes this helps --- Per On 27 Jan., 19:06, sal2 wrote: Greetings All I'm trying to select a column of cells and append all there contents to one cell. *Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
how to select and append a column in VB and excel tia sal2
Hi,
Put this in a general module Function AddSuffix(Rng As Range, suffix As String) As String For Each c In Rng If c.Value < "" Then MyString = MyString & c.Value & " " & suffix & " " End If ' Next AddSuffix = MyString End Function Call with this in C4 =addsuffix(A1:A70,"Code") Mike "sal2" wrote: Greetings All I'm trying to select a column of cells and append all there contents to one cell. Does anyone have some example vb.script that does this in excel Example select excel column A1 to A70 Append all values in A1 to A70 in Cell C4 with the phrase "code" after each value. so C4 would look like "tre345 code tre346 code tre347 code" Please reply to newsgroups as email address isn't real tia sal2 |
All times are GMT +1. The time now is 05:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com