Verileri Birleştirilmiş yere yapıştırmak

[batmaz619]

Merhaba arkadaşlar.Benim bir listem var mesela a1 den a400 e kadar isimler var.Diğer bir listemde de 1 stün 5 satırla birleştirilmiş. yani b2 b3 b4 b5 birleştirilmiş. ben istiyorumki a1 den a400 e kadar olanı direk kopyala yapıştır ile b stunundaki yerlere yapıştırayım.a1 mesela b2 b3 b4 b5 b6 olan yere direk yapışsın.a2 ise b7 b8 b9 b10 olan yere oto yapışsın.Muhtemelen makro ile olacak.Makro da bilmem öğrenmekte istiyorum ama makro kodu da olsa yardımcı olur musunuz çok basit bir işlem gibi görünüyor siz değerli uzman arkadaşlara.

 

[batmaz619]

Veya işi tersine düşünürsek mesela ben 1.sayfamdaki bir veriyi 5 satır ile birleştirip diğer sayfamdaki yere yapıştırınca sorun olmuyor ama tek tek 400 adet veriyi ayrı ayrı 5 satır şekline getirmekte uğraştırıyor.Özel kodla bunu yapabiliyorsak hepsini 5 stunla birleştirilmiş şeklini direk yapıştırabilirim diğer sayfadaki birleştirilmiş boş alana.

 

[batmaz619]

Arkadaşlar yok mu yardımcı olacak

 

[PLİNT]

Arkadaşlar yok mu yardımcı olacak

Merhaba
Örnek dosya ekleyip link verirseniz; www.upturkey.com

 

[batmaz619]

http://www.upturkey.com/download.php?file=433%F6rnek.rar
Hocam buyrun.İstediğim 1.sayfadakileri toplu seçip kopyalayıp 2.sayfadaki birleşmiş alana yapıştırmak her bir isim 1 birleşmiş alana yapışsın istiyorum.Özel makro vb. ne ise yapabilirmiyiz.

 

[PLİNT]

http://www.upturkey.com/download.php?file=433%F6rnek.rar
Hocam buyrun.İstediğim 1.sayfadakileri toplu seçip kopyalayıp 2.sayfadaki birleşmiş alana yapıştırmak her bir isim 1 birleşmiş alana yapışsın istiyorum.Özel makro vb. ne ise yapabilirmiyiz.

Merhaba
Dosyanıza göre kopyalamaya gerek yok gibi ama ikisinide deneyin.
http://www.upturkey.com/download.php?file=824Kopya Xl0.zip

[SIZE="2"]Sub KOPYALA()
b = 2
Sheets("Sayfa2").Select
For a = [COLOR="Red"]4[/COLOR] To Sheets("Sayfa1").Cells(Sheets("Sayfa1").Rows.Count, 1).End(xlUp).Row
Sheets("Sayfa1").Cells(a, 1).Copy
Sheets("Sayfa2").Cells(b, 2).Select
ActiveSheet.Paste
b = b + 5
Application.CutCopyMode = False
Next
End Sub[/SIZE]

[SIZE="2"]Sub YAZ()
b = 2
For a = [COLOR="red"]4[/COLOR] To Sheets("Sayfa1").Cells(Sheets("Sayfa1").Rows.Count, 1).End(xlUp).Row
Sheets("Sayfa2").Cells(b, 2).Value = Sheets("Sayfa1").Cells(a, 1).Value
b = b + 5
Next
End Sub[/SIZE]

 

[batmaz619]

Hay Allah razı olsun abi.Çok çok teşekkür ederim. Bir de B1 leri C2 ye yapıştırmayı da çözerim makro kodu mantığından deneyeyim.Çok çok saolun abi