Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Selecting Range of Copied Text
I've copied some text in the clipboard and then using the macro below
copy each item into a separate row. Sub CommandButton2_Click() Dim MyData As New DataObject Dim strClip As String On Error GoTo NotText MyData.GetFromClipboard strClip = MyData.GetText Range("A1").Select ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _ False Rows("2:2").Select Selection.Copy Sheets("Results").Select Application.Goto Reference:="R1C1" Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.Goto Reference:="R1C1" ActiveCell.FormulaR1C1 = " " + ActiveCell.FormulaR1C1 ' Range("B1").Select NotText: 'don't want anything to happen if the clipboard is empty End Sub Next I need to select the pasted text as a range and to copy =IF(ISNUMBER(VALUE(LEFT((A1),FIND(" ",TRIM(A1))))),VALUE(LEFT((A1),FIND (" ",TRIM(A1)))),1) into the second column of each row and this in the 3rd column =TRIM(MID(TRIM(A1),FIND(" ",TRIM(A1)),LEN(A1))) I'm tryng to use Set MyRange = Range((Cells(xlFirstRow, xlFirstCol)), (Cells (xlLastRow, xlLastCol))) MyRange.Copy Destination:=Sheets("Sheet2").Range("B4") |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
colour format text when copied from text box | Excel Programming | |||
Range to be copied changes | Excel Programming | |||
Custom Text Box In A Form For Selecting A Range! | Excel Discussion (Misc queries) | |||
Copied range. Help please!! | Excel Programming | |||
copied cell range | Excel Programming |