Birleştirilmiş Hücreye Kopyalama

[kadir78]

Sayfa1 A1 hücresinden, Sayfa2 B1 hücresine makro kodları ile kopyalama işlemini gerçekleştirebiliyorum. Fakat Sayfa2 B1 hücresi eğer birleştirlmiş bir hücre ise (B2 ve B3 birleştirilmiş şekilde) kopyalama yapmıyor ve 400 hatasını veriyor. Kısaca birleştirilmiş hücrelere Makro kodlarıyla kopyalama işlemini gerçekleştiremedim. Yardımcı olursanız sevinirim. İyi günler.

Not: Kodlar aşağıdaki gibidir.

Worksheets("Sayfa1").Range("A1").Copy Worksheets("Sayfa2").Range("B2")

 

[Saban Sertkaya]

Deneyiniz...

Sheets("Sayfa1").[A1].Copy Sheets("Sayfa2").[B2:B3]

 

[kadir78]

Üstad, aşağıdaki kodlarla olayı çözdüm fakat bir sorun var


Worksheets("Data").Range("A1").Copy
Worksheets("1.Sayfa").Range("A1").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False

benim istediğim kopyalanan hücreye ek olarak yazı ile kopyalamak mümkünmüdür. kısacası aynı anda hem hücreyi ve yazıyı birleştirerek hedef hücreye kopyalama yapılabilirmi. örnek olarak: kopyalanan hücrenin içerinde 12345 rakamları var bu hücreyi başka bir hücredeki abc kelimeleri ile birleştirip 12345abc gibi kopyalama yapılabilirmi.

 

[Saban Sertkaya]

Sorunuzu anlamadım.

 

[Saban Sertkaya]

Bu noktada örnek bir dosya eklemeniz ve dosya üzerinden ne yapmak istediğinizi anlatmanız daha uygun olacaktır sanırım.

Veya alttaki kodu inceleyerek kendinize uyarlamaya çalışınız.
Sayfa1 A1 hücresinde 123 yazıyor, B1 hücresinde abc yazıyor. A1 ile B1'deki değerler beraberce;
Sayfa2'de B2:B3 birleştirilmiş hücresine yapıştırılıyor.

a = Sheets("Sayfa1").[A1] & Sheets("Sayfa1").[B1]
Sheets("Sayfa2").[B2] = a

 

[kadir78]

Tam da istediğim buydu. Çok teşekkür ederim. Elleriniz dert görmesin İnşallah.

 

[Saban Sertkaya]

Rica ederim. Yardımcı olabildiysek ne mutlu bize.