Makro ile belirli bir aralıkta "tek tek" kopyalama işlemi

[isac]

Merhaba

Öncelikle Nazik yardımlarınız için şimdiden çok teşekkür ederim.

çalışmamda sayı üret fonksiyonu mevcut ve bu sayede elde ettiğim katsayıları bazı hesaplamalarda kullanıyorum.

amacım bu sonucun olduğu hücrenin "değer"ini birçok kez (en az 1000-2000) kez alt alta kopyalamak. her kopyalama anında katsayı değişiyor, dolayısıyla sonucun olduğu hücre değişiyor ve en nihayetinde dolayısıyla yapıştırdığım hücre değişmiş oluyor. bu işlemde de asıl amaç ; mesela 1000 kez deney yapmak, fakat sonuçları kaydedebilmek.

örneğin işlem aşağıdaki süreci meydana getirmeli. (mouse ile her sağ tıklayıp yapıştırma yaptığımda değerler zaten değişiyor bu arada onunla ilgili sorunum yok)
"a1 " hücresini kopyala
"b1 " hücresine değeri olarak yapıştır

"a1 " hücresini kopyala
"b2 " hücresine değeri olarak yapıştır
.
.
.
.

"a1 " hücresini kopyala
"b1000 " hücresine değeri olarak yapıştır.


tekrar teşekkür ederim ve saygılarımı sunarım.

 

[ÖmerFaruk]

Range("A1").Copy

Sub Deney()
    Son = Range("B" & Rows.Count).End(xlUp).Row + 1
    If Range("B1") = "" Then Son = 1
    Range("A1").Copy
    Range("B" & Son).PasteSpecial xlPasteValues
End Sub

'Örnek olup hücre referanslarını kendinize göre uyarlayınız
'Eğer B1 hücreniz başlık satırı ise IF satırını silebilirsiniz