Düşey veriyi yataya yazmak

[k.guclu]

İyi günler arkadaşlar,


Yapmaya çalıştığım olay bir sayfadaki düşey olarak girilmiş verileri başka bir sayfaya yatay olarak düzenli bir şekilde yazmak mümkün mü

Yaptığım bir örneği gönderiyorum.

Üstatlardan orjinal yorumlara açığım.

Saygılarımla.

 

[dEdE]

Merhaba,
Kopyala, Özel Yapıştır, İşlemi Tersine Çevir. Tamam.

 

[k.guclu]

Üstat o dediğini makro ile nasıl yaparız ki?

Ayrıca öyle yaptığımda aradaki boşlukları çıkarıp düzgün bir şekilde sıralar mı?

İlgi ve alakandan dolayı teşekkür ederim çok sağol.

 

[Mx@Raid]

Sub yatayyaz()
Set s1 = Sheets("data")
Set s2 = Sheets("yaz")
s1.Range("B2:B11").Copy s2.Range("a2")
s2.Range("A2:A11").HorizontalAlignment = xlCenter
s2.Range("A2:A11").VerticalAlignment = xlCenter
s2.Range("A2:A11").Orientation = 90
End Sub

yalnız benim bu yaptığım DD ile başlayanlar için geçerli diğerleri içinde işlem yapmanı gerektiriyor. Üstadlar bunu biraz daha formüle ederse kısa kodla daha kolay sonuç almanı sağlar.

 

[k.guclu]

teşekkürler üstadım dediğin gibi profesyonel arkdaşalrdan destek bekliyorum.

Ellerine sağlık üstat tekrardan saol.

Saygılarımla

 

[dEdE]

Merhaba,

Örnek dosyanızdaki birleştirilmiş hücreleri iptal ettim. Eğer çok zorunlu değilse birleştirilmiş hücre kullanmamak lazım. Eğer birleştirilmiş hücre kullanmak zorundaysanız kodları gözden geçirmek gerekecek.

Dosyanız ilişiktedir.
Dosyadaki çözüm belki de ayrı bir başlıkta sorduğunuz sıralama sorusuna gerek bırakmayacak.

Hoşçakalın.

 

[k.guclu]

üstat mükemmel ötesi bişey bu çok sağol. Allah razı olsun.

 

[dEdE]

Rica ederim.
Biraz uğraştırdı ama, işe yaradığına sevindim.
Güle güle kullanın.

 

[k.guclu]

Nedemek yaradımı üstat tamm istediğim gibi saol işin rast gelsin.

 

[memoli79]

emeğinize sağlık Sn. Dede çok faydalı bir paylaşım oldu.