Copy > Paste Special ... Kodun kısaltması

[tamer42]

Merhabalar,

M sütununda yer alan "0011122" yada "0000345" gibi verilerin önündeki (solundaki) sıfırların atılması için aşağıdaki kodu hazırladım.
Önce boş bir hücreye "1" yazıyorum, sonra copy >>> Paste Special... >>> Values*Multiply
olarak,

buradaki kodların kısaltmasını nasıl yapabilirim, Örn: Herhangi bir hücreye "1" yazmadan.

'
    Range("AA1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("AA1").Select
    Selection.Copy
  
    Range("M1:M2000").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

bu konuda yol gösterecek arkadaşlara şimdiden teşekkürler...
İyi Çalışmalar.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu deneyin.

Sub sayi()
for i=1 to 2000
    cells(i,13)=cells(i,13)*1
next i
end sub

 

[veyselemre]

Range("m1:m2000").Value = Range("m1:m2000").Value



Şeklinde deneyin.

 

[Seyit Tiken]

Örnek kodu kendinize uyarlayınız.

Sub Düğme1_Tıklat()
For a = [a6500].End(3).Row To 1 Step -1
Cells(a, 2) = Val(Cells(a, 1))
Next
End Sub