Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. -- Rich........ my AOL instant messenger shhhbalto use this link to donate a calling card to our troops https://thor.aafes.com/scs/product.aspx?cid=2 this site helps our wounded soldiers adapt http://www.homesforourtroops.org/pages/4/index.htm Frustrate the evildoers, lead a good and prosperous life All that is needed for evil to triumph is for good people to stand by and do nothing.....Edmund Burke |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
Hi
you can use a formula like =A1 & "-" & B1 & "-" & C1 and copy this down for all rows -- Regards Frank Kabel Frankfurt, Germany Rich wrote: all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
If you need a macro
cRows = Cells(Rows.Count,"A").End(xlUp).Row For i = 1 To cRows With Cells(i,"A") If Cells(i,"B").Value < "" Then _ .value = .value & "-" & Cells(i, "B").Value If Cells(i,"C").Value < "" Then _ .value = .value & "-" & Cells(i, "C").Value End With Next i -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Frank Kabel" wrote in message ... Hi you can use a formula like =A1 & "-" & B1 & "-" & C1 and copy this down for all rows -- Regards Frank Kabel Frankfurt, Germany Rich wrote: all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
Thank you for the effort Bob, but this returned a compile error
Rich "Bob Phillips" wrote in message ... If you need a macro cRows = Cells(Rows.Count,"A").End(xlUp).Row For i = 1 To cRows With Cells(i,"A") If Cells(i,"B").Value < "" Then _ .value = .value & "-" & Cells(i, "B").Value If Cells(i,"C").Value < "" Then _ .value = .value & "-" & Cells(i, "C").Value End With Next i -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Frank Kabel" wrote in message ... Hi you can use a formula like =A1 & "-" & B1 & "-" & C1 and copy this down for all rows -- Regards Frank Kabel Frankfurt, Germany Rich wrote: all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
Hi
what compile error in whhich line did you get? -- Regards Frank Kabel Frankfurt, Germany Rich wrote: Thank you for the effort Bob, but this returned a compile error Rich "Bob Phillips" wrote in message ... If you need a macro cRows = Cells(Rows.Count,"A").End(xlUp).Row For i = 1 To cRows With Cells(i,"A") If Cells(i,"B").Value < "" Then _ .value = .value & "-" & Cells(i, "B").Value If Cells(i,"C").Value < "" Then _ .value = .value & "-" & Cells(i, "C").Value End With Next i -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Frank Kabel" wrote in message ... Hi you can use a formula like =A1 & "-" & B1 & "-" & C1 and copy this down for all rows -- Regards Frank Kabel Frankfurt, Germany Rich wrote: all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
Sir,
it appeared in this line rich "Frank Kabel" wrote in message ... Hi what compile error in whhich line did you get? cRows = Cells(Rows.Count,"A").End(xlUp).Row |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
The only thing that occurs is if you have Option Explicit and have not
declared the variable cRows and i. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Rich" wrote in message ... Thank you for the effort Bob, but this returned a compile error Rich "Bob Phillips" wrote in message ... If you need a macro cRows = Cells(Rows.Count,"A").End(xlUp).Row For i = 1 To cRows With Cells(i,"A") If Cells(i,"B").Value < "" Then _ .value = .value & "-" & Cells(i, "B").Value If Cells(i,"C").Value < "" Then _ .value = .value & "-" & Cells(i, "C").Value End With Next i -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Frank Kabel" wrote in message ... Hi you can use a formula like =A1 & "-" & B1 & "-" & C1 and copy this down for all rows -- Regards Frank Kabel Frankfurt, Germany Rich wrote: all, thanks for any response. I would like to make a macro to take the contents of 3 columns of 20 numbers and letters, and combine them into one column to form a label number.....this is relevant for a label making program that allows an Excel import. for example A1 Port1 KVM would turn into A1-Port1-KVM any help is appreciated. |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro needed
Hi
have you tried Bob's suggestions (declaring the variables)? -- Regards Frank Kabel Frankfurt, Germany Rich wrote: Sir, it appeared in this line rich "Frank Kabel" wrote in message ... Hi what compile error in whhich line did you get? cRows = Cells(Rows.Count,"A").End(xlUp).Row |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro Help Needed | Charts and Charting in Excel | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
Help needed on Macro | Excel Worksheet Functions | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |