how to append a phrase to a cellcontent
1 Attachment(s)
i want to add a phrase before a word in a cell. is it possible? kindly see the attached file.thanks
|
how to append a phrase to a cellcontent
Hi,
Am Wed, 2 Apr 2014 12:22:11 +0100 schrieb sumesh56: i want to add a phrase before a word in a cell. is it possible? kindly see the attached file.thanks try: Sub Test() Dim LRow As Long Dim myStr As String Dim rngC As Range With ActiveSheet LRow = .Cells(Rows.Count, 3).End(xlUp).Row myStr = .Range("E8") For Each rngC In .Range("C4:C" & LRow) rngC = myStr & rngC Next End With End Sub Regards Claus B. -- Vista Ultimate SP2 / Windows7 SP1 Office 2007 Ultimate SP3 / 2010 Professional |
how to append a phrase to a cellcontent
Hi,
Am Wed, 2 Apr 2014 12:22:11 +0100 schrieb sumesh56: i want to add a phrase before a word in a cell. is it possible? kindly see the attached file.thanks write e.g. in H10: =IF(C4<"",$E$8&C4,"") and copy down. Copy the range with the formulas and paste special = paste values in C4 Regards Claus B. -- Vista Ultimate SP2 / Windows7 SP1 Office 2007 Ultimate SP3 / 2010 Professional |
1 Attachment(s)
Quote:
thanks a lot for the macro. it works perfect. can you find time to explain what you meant by Rows,count 3? I want to learn it so that i can use it in different situations. I would like to know how would you edit your macro to suit to the new file attached.have a nice day. I would like to see that after merging the strings, i would delete Mystring and the result should maintain. have a nice day. |
how to append a phrase to a cellcontent
Hi,
Am Wed, 2 Apr 2014 17:27:14 +0100 schrieb sumesh56: what you meant by Rows,count 3? ..Cells(rows.count,3).end(xlup).row shows you the last row with values in column 3 (C) For the range to look in you have to do no changes. But you have to change E8 to G1. I would like to see that after merging the strings, i would delete Mystring and the result should maintain. have a nice day. in G1 you have no trailing space behind your phrase. So you have to insert the space with the code. Try: Sub Test() Dim LRow As Long Dim myStr As String Dim rngC As Range With ActiveSheet LRow = .Cells(Rows.Count, 3).End(xlUp).Row myStr = .Range("G1") For Each rngC In .Range("C4:C" & LRow) rngC = myStr & " " & rngC Next .Range("G1").ClearContents End With End Sub Regards Claus B. -- Vista Ultimate SP2 / Windows7 SP1 Office 2007 Ultimate SP3 / 2010 Professional |
Quote:
thank you very much for the help. Your macro is perfect in all respect. have a nice day. |
All times are GMT +1. The time now is 09:42 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com