PasteSpecial value . . . . very urgent

[Legacy 246103]

Hi,

This code was meant to populate 110 rows. Now, I want a code to populate 15000 cells. If I write in this manner, it says the code is too long to execute. Please suggest an alternative. . This is super urgent.

---------------------------------------------------------------------
Sub AjantaWall()
'
' LD Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.ScreenUpdating = False
Range("F3").Copy
Range("M2").PasteSpecial Paste:=xlValues
Range("M3").PasteSpecial Paste:=xlValues
Range("M4").PasteSpecial Paste:=xlValues
Range("M5").PasteSpecial Paste:=xlValues
Range("M6").PasteSpecial Paste:=xlValues
Range("M7").PasteSpecial Paste:=xlValues
Range("M8").PasteSpecial Paste:=xlValues
Range("M9").PasteSpecial Paste:=xlValues
Range("M10").PasteSpecial Paste:=xlValues
Range("M11").PasteSpecial Paste:=xlValues
Range("M12").PasteSpecial Paste:=xlValues
Range("M13").PasteSpecial Paste:=xlValues
Range("M14").PasteSpecial Paste:=xlValues
Range("M15").PasteSpecial Paste:=xlValues
Range("M16").PasteSpecial Paste:=xlValues
Range("M17").PasteSpecial Paste:=xlValues
Range("M18").PasteSpecial Paste:=xlValues
Range("M19").PasteSpecial Paste:=xlValues
Range("M20").PasteSpecial Paste:=xlValues
Range("M21").PasteSpecial Paste:=xlValues
Range("M22").PasteSpecial Paste:=xlValues
Range("M23").PasteSpecial Paste:=xlValues
Range("M24").PasteSpecial Paste:=xlValues
Range("M25").PasteSpecial Paste:=xlValues
Range("M26").PasteSpecial Paste:=xlValues
Range("M27").PasteSpecial Paste:=xlValues
Range("M28").PasteSpecial Paste:=xlValues
Range("M29").PasteSpecial Paste:=xlValues
Range("M30").PasteSpecial Paste:=xlValues
Range("M31").PasteSpecial Paste:=xlValues
Range("M32").PasteSpecial Paste:=xlValues
Range("M33").PasteSpecial Paste:=xlValues
Range("M34").PasteSpecial Paste:=xlValues
Range("M35").PasteSpecial Paste:=xlValues
Range("M36").PasteSpecial Paste:=xlValues
Range("M37").PasteSpecial Paste:=xlValues
Range("M38").PasteSpecial Paste:=xlValues
Range("M39").PasteSpecial Paste:=xlValues
Range("M40").PasteSpecial Paste:=xlValues
Range("M41").PasteSpecial Paste:=xlValues
Range("M42").PasteSpecial Paste:=xlValues
Range("M43").PasteSpecial Paste:=xlValues
Range("M44").PasteSpecial Paste:=xlValues
Range("M45").PasteSpecial Paste:=xlValues
Range("M46").PasteSpecial Paste:=xlValues
Range("M47").PasteSpecial Paste:=xlValues
Range("M48").PasteSpecial Paste:=xlValues
Range("M49").PasteSpecial Paste:=xlValues
Range("M50").PasteSpecial Paste:=xlValues
Range("M51").PasteSpecial Paste:=xlValues
Range("M52").PasteSpecial Paste:=xlValues
Range("M53").PasteSpecial Paste:=xlValues
Range("M54").PasteSpecial Paste:=xlValues
Range("M55").PasteSpecial Paste:=xlValues
Range("M56").PasteSpecial Paste:=xlValues
Range("M57").PasteSpecial Paste:=xlValues
Range("M58").PasteSpecial Paste:=xlValues
Range("M59").PasteSpecial Paste:=xlValues
Range("M60").PasteSpecial Paste:=xlValues
Range("M61").PasteSpecial Paste:=xlValues
Range("M62").PasteSpecial Paste:=xlValues
Range("M63").PasteSpecial Paste:=xlValues
Range("M64").PasteSpecial Paste:=xlValues
Range("M65").PasteSpecial Paste:=xlValues
Range("M66").PasteSpecial Paste:=xlValues
Range("M67").PasteSpecial Paste:=xlValues
Range("M68").PasteSpecial Paste:=xlValues
Range("M69").PasteSpecial Paste:=xlValues
Range("M70").PasteSpecial Paste:=xlValues
Range("M71").PasteSpecial Paste:=xlValues
Range("M72").PasteSpecial Paste:=xlValues
Range("M73").PasteSpecial Paste:=xlValues
Range("M74").PasteSpecial Paste:=xlValues
Range("M75").PasteSpecial Paste:=xlValues
Range("M76").PasteSpecial Paste:=xlValues
Range("M77").PasteSpecial Paste:=xlValues
Range("M78").PasteSpecial Paste:=xlValues
Range("M79").PasteSpecial Paste:=xlValues
Range("M80").PasteSpecial Paste:=xlValues
Range("M81").PasteSpecial Paste:=xlValues
Range("M82").PasteSpecial Paste:=xlValues
Range("M83").PasteSpecial Paste:=xlValues
Range("M84").PasteSpecial Paste:=xlValues
Range("M85").PasteSpecial Paste:=xlValues
Range("M86").PasteSpecial Paste:=xlValues
Range("M87").PasteSpecial Paste:=xlValues
Range("M88").PasteSpecial Paste:=xlValues
Range("M89").PasteSpecial Paste:=xlValues
Range("M90").PasteSpecial Paste:=xlValues
Range("M91").PasteSpecial Paste:=xlValues
Range("M92").PasteSpecial Paste:=xlValues
Range("M93").PasteSpecial Paste:=xlValues
Range("M94").PasteSpecial Paste:=xlValues
Range("M95").PasteSpecial Paste:=xlValues
Range("M96").PasteSpecial Paste:=xlValues
Range("M97").PasteSpecial Paste:=xlValues
Range("M98").PasteSpecial Paste:=xlValues
Range("M99").PasteSpecial Paste:=xlValues
Range("M100").PasteSpecial Paste:=xlValues
Range("M101").PasteSpecial Paste:=xlValues
Range("M102").PasteSpecial Paste:=xlValues
Range("M103").PasteSpecial Paste:=xlValues
Range("M104").PasteSpecial Paste:=xlValues
Range("M105").PasteSpecial Paste:=xlValues
Range("M106").PasteSpecial Paste:=xlValues
Range("M107").PasteSpecial Paste:=xlValues
Range("M108").PasteSpecial Paste:=xlValues
Range("M109").PasteSpecial Paste:=xlValues
Range("M110").PasteSpecial Paste:=xlValues
Range("M111").PasteSpecial Paste:=xlValues




Application.ScreenUpdating = True


Range("A1").Select


End Sub


Thanks
Arunabha

 

[Hamburgler]

Does this help?

 Range("M2:M15000").Value = Range("F3").Value

 

[dermie_72]

try:

Sub AjantaWall()
'
' LD Macro
'
Dim PSV
PSV = Range("F3").Value
With Range("M2:M1500")
    .Value = PSV
End With
End Sub

 

[Legacy 246103]

With this code it pastes same value for the defined range.
But in F3 cell I have a Rand() function which pulls a different number every time it does a paste special on respective cells. My earlier prolonged code does the same. I want 15000 different numbers each time the code does pastes special.

 

[dermie_72]

that information would have been useful in the first post.

Try this code instead

Sub AjantaWall()
'
For I = 2 To 15000 Step 1
    Cells(I, 13).Value = Range("F3").Value
Next I
End Sub

 

[Rick Rothstein]

With this code it pastes same value for the defined range.
But in F3 cell I have a Rand() function which pulls a different number every time it does a paste special on respective cells.

And what, you think we would have been able to figure that out based you your initial message?

I want 15000 different numbers each time the code does pastes special.

Give these two code lines a try...

Range("M2:M15001").Formula = "=RAND()"
Range("M2:M15001").Value = Range("M2:M15001").Value

Note: You do not need anything in cell F3 for this code to work.

 

[mikerickson]

No loop is needed.

Range("M2").Resize(15000,1).Value = Range("F3").Value

 

[sgmpatnaik]

Hi

Firstly welcome to forum, glad you are here

please try the below code

Sub AjantaWall()
'
' LD Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.ScreenUpdating = False
Range("F3").Copy
Range("M2:M15000").PasteSpecial(xlPasteValues)
Range("A1").Select
Selection.Clear
End Sub

Hope it is solve your problem, other wise please inform

Thanks

SP

 

[sgmpatnaik]

oops

already our masters replied i didn't notice them

 

[Legacy 246103]

Woohoooooooo. . . . .

Yes. .Yes. .Yes. .Yes. .Yes. .Yes. .Yes. .Yes. .

You have solved my problem.......THANK A TON....

Can you please explain a bit how to read the code for understanding.....I am an infant in VBA