Girilen sayı kadar makro ile hücre seçme, kopyalama

[horozmen90]

Merhabalar. 

Öncelikle belirtmen gerekir ki, Excel'de makro oluşturma konusunda yeni sayılırım.

Sayfa1'in B sütununda 1'den 100 kadar bilgiler var.
Bu bilgileri makro ile Sayfa2'nin D sütununa kopyalamak istiyorum.
Makroyu oluşturuyorum ve bu makroyu bir düğmeye atıyorum. Makroyu çalıştırdığımda Sayfa1'in B sütunundaki bilgileri Sayfa2'deki D sütununa kopyalıyor. Makro1'in kod sayfasında aşağıdaki kodlar yazıyor.

Sub Makro1()
Range("B1:B10").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("D1").Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
Range("D1").Select
End Sub

Ancak bu makro her defasında ilk 10 kişiyi kopyalıyor.
Ben Sayfa1'in A1 hücresine değer girmek ve bu değere göre kopyalama yapmak istiyorum.
Örneğin;
A1 hücresine 15 sayısı girilip makro çalıştırıldığında B1:B15 hücrelerinin
A1 hücresine 24 sayısı girilip makro çalıştırıldığında B1:B24 hücrelerinin seçilip Sayfa2'ye kopyalanmasını yapabilir miyim?

Ve bu makroyu düğmeye bağlayıp, düğmeye tıkladığımda çalıştırabilir miyim?

İlginize şimdiden teşekkürler.

[Bülent Öztürk]

Merhaba Eren Bey,

Şu kodları dener misiniz?

Kod: [Seç]

sayi = Sheets("Sayfa1").Range("A1").Value   ' Sayi girilen hücre
Sheets("Sayfa2").Range("D1:D65530").ClearContents  'Sayfa2'nin D1:D65530 aralığını temizle
Range("B1:B" & sayi).Copy Sheets("Sayfa2").Range("D1") 'Belirtilen alanı seç, sayfa2'nin D'ine yapıştır
Application.CutCopyMode = False  'Kopyalama modunu iptal et