Yatay Yapıştır

[alitolga2000]

Merhabalar,
iki sütunluk aşağı doğru uzayan verileri
A - B
C - D
E - F
G - H
.......
bunları kopyaladığım zaman
ilgili sayfaya bitişik şekilde her sütuna gelecek şekilde
a - b - c - d - e - f - g - h .....
nasıl yapıştırabilirim.
kopyalanacak yeri ve yapıştırılacak yeri ben seçeceğim buton vs. bastığımda sadece yapıştıracak.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub nn2()
    kopyala = InputBox("Kopyalanacak alanı girin, Örn:A1:B4")
    yapistir = InputBox("Yapıştırılacak hücreyi girin, Örn:A1")
    Range(yapistir).Select
    For Each hucre In Range(kopyala)
    Selection.Offset(, c) = hucre.Value
    c = c + 1
    Next
End Sub

 

[alitolga2000]

İstediğim tam buydu sağolun ama,
Bunlar farklı kitaplarda o yüzden elle seçmem lazım.

 

[hamitcan]

Ekteği örneği inceleyin.

 

[alitolga2000]

Bunlar harika inanın süpersiniz.
Fakat benim kopyalayacağım hücre sayısı 47000 nin üstüne bunlarda düzensiz yerlerde tektek bakmam zor olur bunun başka yolunu yazabilirmisiniz?
Sağolun..

 

[hamitcan]

Satır olarak girdiğiniz 47000 veriyi sütunlara mı dağıtmak istiyorsunuz?

 

[alitolga2000]

Aynen sizin yaptığınız gibi
hepsi f g sütununda ama satırlardaki bilgilerin kimi
f12:g40 - f67:g96 : f121:g128 vs. bunun gibi 3 dosyam var ve çorba gibi karışık.

 

[hamitcan]

Belli bir standardı yok ise, dediğinizi yapmak zor.

 

[alitolga2000]

Sağolun yinede dediğimi zaten bir seferlik yapıcaktım.
Sağlık olsun o kadar uğraşmaya değmez 1 kere kullanacağım bir şey için.
tekrar teşekkürler.