Aktif hücreden başlayarak yapıştırma makrosu

[Zahir]

Selam arkadaşlar.

Sabit sayılardan oluşan grup sayılarım var. Onları makro ile aktif hücreden başlayarak aşağıya doğru yapıştırmak istiyorum. Aynı zamanda belli bir kalıbıda var bu rakamların. Örneğin aşağıya doğru alt alta 3 sayı sonra boşluk sonra aşağıya doğru 5 sayı gibi. Ekteki dosyada bu sayılar gurubundan bir kısmını yazdım. Formülle yaptım ama 250 sayfam var ve makinam çok kasıldı bunun yerine makro ile yapmak istiyorum. İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Merhaba
Sorunuz ve örnek dosyanız isteğinizle ilgili net bilgiler içermiyor...

 

[Zahir]

Peki kusura bakmayın o zaman çok basite indirgeyeyim.
Örneğin sayılarım 12, 32,45,boş hücre, 55 olsun.
Aktif hücre olarakta D8 seçili.
Buna göre makroyu çalıştırdığımda;
D8 hücresine 12,
D9 hücresine 32,
D10 hücresine 45,
D11 hücresine boş,
D12 hücresine 55 yazmalı.

umarım açıklayabilmişimdir.

 

[Zahir]

Şu arkadaşınıza yardım edecek kimse yokmu arkadaşlar. Soru anlaşılır değilmi acaba, yanımda ki arkadaş yap artık şunu diye başımın etini yiyorda

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kod işinizi görür umarım...

Sub dagit()
ActiveCell = 12
ActiveCell.Offset(1, 0) = 32
ActiveCell.Offset(2, 0) = 45
ActiveCell.Offset(3, 0) = ""
ActiveCell.Offset(4, 0) = 55
End Sub

 

[Zahir]

Evet % 100 işimi gördü çok teşekkür ederim. Kolay gelsin.

 

[Ayhan Ercan]

Evet % 100 işimi gördü çok teşekkür ederim. Kolay gelsin.

Rica ederim.
İyi çalışmalar....