Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
inserting special character in a cell as a macro
I'm trying to copy 5600 items and I need to use a macro to save some time.
I have a column with numbers represented as text. For example 01234 as text. the cell adjacent to it is a city ie. Los Angeles I'm trying to use a macro so the first cell is #01234 - Los Angeles. Can someone help me to figure out this macro. |
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
inserting special character in a cell as a macro
=#01234&" - "&b2
or in b3 =b1&" - "&b2 -- Don Guillett SalesAid Software "johnnyboy" <u26492@uwe wrote in message news:66240833078dd@uwe... I'm trying to copy 5600 items and I need to use a macro to save some time. I have a column with numbers represented as text. For example 01234 as text. the cell adjacent to it is a city ie. Los Angeles I'm trying to use a macro so the first cell is #01234 - Los Angeles. Can someone help me to figure out this macro. |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
inserting special character in a cell as a macro
Sub ConcatenateMe()
Dim lastrow As Long, r As Long Dim num1 As String Dim num2 As String lastrow = Cells(Rows.Count, "A").End(xlUp).Row For r = lastrow To 1 Step -1 If Cells(r, "A") < "" Then Cells(r, "A").Select num1 = Selection.Value num2 = Selection.Offset(0, 1).Value End If With ActiveCell .Value = "#" & num1 & " - " & num2 End With Next r End Sub hth Vaya con Dios, Chuck, CABGx3 "johnnyboy" wrote: I'm trying to copy 5600 items and I need to use a macro to save some time. I have a column with numbers represented as text. For example 01234 as text. the cell adjacent to it is a city ie. Los Angeles I'm trying to use a macro so the first cell is #01234 - Los Angeles. Can someone help me to figure out this macro. |
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
inserting special character in a cell as a macro
Here is a macro with choices.
Sub Add_Text() Dim cell As Range Dim moretext As String Dim thisrng As Range On Error GoTo endit whichside = InputBox("Left = 1 or Right =2") Set thisrng = Range(ActiveCell.Address & "," & Selection.Address) _ .SpecialCells(xlCellTypeConstants, xlTextValues) moretext = InputBox("Enter your Text") If whichside = 1 Then For Each cell In thisrng cell.Value = moretext & cell.Value Next Else For Each cell In thisrng cell.Value = cell.Value & moretext Next End If Exit Sub endit: MsgBox "only numbers or formulas in range" End Sub Gord Dibben MS Excel MVP On Mon, 11 Sep 2006 17:18:28 GMT, "johnnyboy" <u26492@uwe wrote: I'm trying to copy 5600 items and I need to use a macro to save some time. I have a column with numbers represented as text. For example 01234 as text. the cell adjacent to it is a city ie. Los Angeles I'm trying to use a macro so the first cell is #01234 - Los Angeles. Can someone help me to figure out this macro. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
error when running cut & paste macro | Excel Worksheet Functions | |||
Inserting a button into a cell and linking it to a macro | Excel Discussion (Misc queries) | |||
Conditional Format as a MACRO | Excel Worksheet Functions | |||
Possible Lookup Table | Excel Worksheet Functions | |||
GET.CELL | Excel Worksheet Functions |