kopyalama makrosu birlestirilmis hucreler

[qwerty1478]

merhaba arkadaslar
3 sayfalık bir calısmam var kopyalanmıs metini makro ile ilgili alanlara yapıstırıyorum 1 ve 2 sayfada de sıkıntım yok fakat 3. sayfam A2 ile E33 birlesitirilmiş hucreden olusuyor buraya kopylama yapamıyorum birlestirilmiş hucre ıcın koda ne eklemem gerekli yardımcı olabılırmısınız.

Sub tarih()
Sheets("1veri").[a2].PasteSpecial
End Sub
Sub sahıs()
Sheets("2shs").[a2].PasteSpecial
End Sub
Sub olay()
Sheets("3oly").[a2].xlPasteSpecial
End Sub

 

[1ndependent]

Örnek dosya eklerseniz daha hızlı çözüm bulabilirsiniz.

 

[qwerty1478]

Örnek dosya eklerseniz daha hızlı çözüm bulabilirsiniz.

ornek dosyam asagıda 4. sayfada birleşmiş hucreye kopyalanmıs ıcerıgı atarken sıkıntı yasıyorum yardımcı olabilirmisiniz.
https://dosya.co/ktn6i4j7fu6q/ornekk.xlsm.html

 

[Zeki TEOMAN]

Merhaba ,
Dosyanızda veri yok , diyelimki var ,
sizin bahsettiğiniz birleştirilmiş hücre a1 den başlıyor a2 den değil
a1 den başlıyor ise koddaki a2 yerine a1 yazmanız yeterli

 

[qwerty1478]

hocam veriyi herhangi bir txt , word vb dosyasından yada netten kopyaladıgımda ilgili sayfaya yapıstırmasını ıstıyorum a1 olarak yazsam da aynı sıkıntı var sayfa 2 ile 3 de kopyaladıgım metın yazdırıyor sayfa4 sonuc vermıyor.

 

[Zeki TEOMAN]

düzeltme yapıp hemen ekliyorum
Ekteki dosyayı denermisiniz Formül hata vermezse kendi dosyanıza uyarlayabilirsiniz.

 

[Zeki TEOMAN]

Dosyanız ektedir

anladığım kadarı ile birleştirilmiş hücreye veri kopyalanmıyor
şöyle bir çözüm buldum işinize yararmı bilmiyorum ama sayfa 4 deki j1 hücresine kopyalayıp yaptığım basit formül ile birleştirilmiş hücreye verileri çekebilirsiniz , ekteki dosyayı indirebilirsiniz.

Birleştirilmiş hücre

 

[qwerty1478]

tesekurler hocam bu şekilde denemiştim ama kopyladıgım yazı uzun yada farklı biçim olunca j2 j3 k2 satırlarına tasıyor bunları birlestirip denemek istedim ama farklı satırlara kopyaladıgı ıcın butunlugu saglayamadım.

 

[Zeki TEOMAN]

Metni kaydır seçeneği ve üste hizala seçeneği işaretli ise kaydırmaması lazım aslında

Hocam yardımcı olamadım kusura bakmayın iyi geceler

 

[qwerty1478]

ne demek hocam cok tesekur ederım ılgınıze Metni kaydır seçeneği ve üste hizala seçeneği kontrol etmemıstım sabah bakayım 2 yada 3 satır bir kopyalama yaptıgımda bosluk ta varsa bi alt satıra geciyordu. iyi geceler kolay gelsin size