Birleştirilmiş Hücreleri kopyalayıp alt alta yapıştırma

[unozdemir]

Arkadaşlar Merhaba,
Belki çok basit bir soru olacak ama yardımlarınıza ihtiyacım var.
Ekli dosyada C sütununda birleştirilmiş hücrelerde sayılar var, bunları kopyalayıp E sütununa yapıştırmak istiyorum fakat alt alta olmalı. Çünkü binlerce sayı var, aralarında boşluk olmasın istiyorum.
Yardımlarınız için teşekkürler.

 

[apocalyt]

formüllü çözüm için e2 hücresine kopyalayıp aşağıya çekin...

=DOLAYLI("c"&SATIR(G1)*2)


makrolu çözüm için module kopyalayıp çalştırın..

Sub daylight()
y = 1
For x = 2 To [c100000].End(3).Row Step 2
y = y + 1
Cells(y, "e") = Cells(x, "c")
Next x
End Sub

 

[unozdemir]

apocalyt, çok teşekkür ederim, sorunum çözüldü.
Fakat buradaki G1 in mantığını anlayamadım, farklı bir yerde kullanmak istesem G1 yerine ne yazmalıyım, kısaca mantığını yazabilir misiniz.

 

[apocalyt]

=satır() formülü hücresinin bulunduğu satırın numarasını verir..g1 in satır numarası 1 olduğundan sonuç olarak satır(g1) formülü 1 sonucunu üretir..siz oraya a1 de c1 de veya z1 hücresinide yazabilrisiniz..satırı 1 olan bir hücre gerekliydi g1 yazdım..şimdi oraya niye direk 1 yazmadınız diyebilirsiniz? o formülü aşağıya çektiğiniz zaman formüldeki g1 değeri bir sonraki gücrede g2 bir sonrakinde g3 diye ilerlicek ve formülün ürettiği sayı 1 2 3 şeklinde artıcak..asıl amaç buydu..tam anlatamadım ama dolaylı formülünün kullanımını biliyorsanız o formülle birlikte daha net bişey oluşur ..

 

[unozdemir]

anladım gibi..
Biraz kurcalayarak çözebilirim.
Dolaylı formül kullanmamıştım hiç.
Teşekkür ederim ilginiz için.
İyi çalışmalar.