Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: horozmen90 - 12 Mart 2012, 20:36:49

Başlık: Girilen sayı kadar makro ile hücre seçme, kopyalama
Gönderen: horozmen90 - 12 Mart 2012, 20:36:49

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.

Başlık: Ynt: Girilen sayı kadar makro ile hücre seçme, kopyalama
Gönderen: Bülent Öztürk - 13 Mart 2012, 20:21:05

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