Copying a range to clipboard
Application.ScreenUpdating = False
Application.Goto Reference:="R9C16:R110C16" 'P9
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Application.Goto Reference:="R9C20:R110C20" 'T9
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
set rng = Range(Range("T9"),Range("T111").End(xlup))
rng.copy
Range("B4").Select
Application.ScreenUpdating = True
End Sub
--
Regards,
Tom Ogilvy
"Richard" wrote in message
...
Sub Send2Application()
Could someone lend a hand here please.
I'm copying the range P9:P110 to T9
The range will include some cells with nothing in them
that is:- no formulas or text.
Then I want to extract from T9:T110 JUST the cells that
have data. (It will be text data)
These cells are then copied to the clipboard for pasting
into another application.
I keep getting many blank cells at the bottom which I
don't want.
How do I just get the cells with text in them.
Thanks,
Richard
This is my code
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.Goto Reference:="R9C16:R110C16" 'P9
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Application.Goto Reference:="R9C20:R110C20" 'T9
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Selection.Copy
Range("B4").Select
Application.ScreenUpdating = True
End Sub
|