Thread
:
VBA Code- Copy & Paste in Blank Range
View Single Post
#
3
Posted to microsoft.public.excel.misc
Youlan
external usenet poster
Posts: 18
VBA Code- Copy & Paste in Blank Range
"Don Guillett" wrote:
sub copytonextcol()
mr=5 'row
lastcol=cells(mr,columns.count).end(xltoleft).colu mn+1
Range("D5:D93").copy
cells(mr,lastcol).PasteSpecial Paste:=xlPasteValues
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Youlan" wrote in message
...
Hi,
I'm using Excel 2002
I'm trying to write a code to copy and paste special a range of data in
the
next empty cell. Therefore if cell j5 has data it would start pasting it
in
only k5 and so on. This is what I have so far but its pasting in all the
columns where row 5 is blank:
If Range("j5").Value = " " Then
End If
ActiveWindow.SmallScroll ToRight:=-1
Range("D5:D93").Select
Selection.copy
ActiveWindow.SmallScroll Down:=-123
ActiveWindow.SmallScroll ToRight:=15
ActiveWindow.SmallScroll Down:=-15
Range("j5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
Else
I would greatly appreciate any help with this. Thanks in advance.
Reply With Quote
Youlan
View Public Profile
Find all posts by Youlan