Menu

Help with a simple macro

Search this Thread

Prev

Previous Post

Next Post

Next

#2

Report Post

Posted to microsoft.public.excel.programming

Claus Busch Claus Busch is offline

Claus Busch is offline

external usenet poster

Posts: 3,872

Default

Help with a simple macro

Hi,

Am Thu, 7 Jan 2016 07:08:35 -0800 (PST) schrieb :

Range("O1:O11").Select
Range("O11").Activate
Selection.ClearContents
Range("O1").Select
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Range("O12").Select
Selection.Copy
Range("O30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

why do you paste O12 in multiple cells from O30 downwards?

Try for that part of the code:

Range("O12").Copy
If Len(Range("O30")) = 0 Then
Set Dest = Range("O30")
Else
Set Dest = Cells(Rows.Count, "O").End(xlUp)(2)
End If

Dest.PasteSpecial Paste:=xlPasteValues

Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with simple macro	Sam Commar	Excel Discussion (Misc queries)	3	April 15th 08 04:30 PM
Simple macro	MikeD1224	Excel Discussion (Misc queries)	1	June 9th 07 12:06 AM
Need help with simple macro	garlnnd	Excel Programming	4	October 5th 05 07:22 PM
Simple Macro	Richard[_20_]	Excel Programming	2	March 3rd 04 07:44 PM
Simple macro - help please!!	Micheal	Excel Programming	2	October 24th 03 04:30 PM

All times are GMT +1. The time now is 08:31 PM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement