tüm sütunları tek bir sutuna taşıma

[selims73]

İyi çalışmalar,

size bir sorum olacaktı. benim bir excel tablom var. A sütunununda 1980den
2005' e kadar yıllar var. sütunlarda ise ülkeler ve bu ülkelere ait
enflayon rakamları var. Benim istediğim ülkelere ilişki tüm değerleri tek
bir sütunda toplamak (örneğin B Sütununda). böylece tek bir sütunda tüm
ülkelerin değerlerini göeceğim ve bir araştırmada kullanacağım. bana bu
konuda yardımcı olabilirseniz sevinirim

 

[Recep İpek]

Öncelikle aramıza hoşgeldiniz.

B kolonunda verilerinizi nasıl görmek istiyorsunuz?
Örnek verebilirseniz sorunuz daha anlaşılır olacaktır.

 

[selims73]

b sütunundan sonraki tüm sütunlardakii tüm değerlerin aynen b sütunun altına gelmesini istiyorum. şöyle açıklayabilirm belki; c sütununu kes yapıştır ile b sütununun altına kopyalanmasını istiyorum. ardından d sütununun ve diğer sütunların
yardımlarınız için şimdiden teşekkürler

 

[Skorpiyon]

Sayın selims73,

Örnek dosyayı inceleyiniz. İstediğiniz böyle bir şey mi acaba ?

Saygılarımla...

 

[selims73]

Tüm sütunları tek sütuna taşıma

iyi çalışmalar;
sizin yollamış olduğunuz dosya da bir düğme vardı ancak ben onu çalıştıramadım. Bu durum sanırım benim hiç makro bilmememden kaynaklanıyor.

Sizlere ekli dosya da mevcut durum ve istenen durumların bullunduğu bir çalışma kitabı yolluyorum. belki oradan nasıl bir şey yapmak istediğim daha iyi anlaşılı. Ancak Ben bu örnek dosyada sadece 5 ülkenin verilerini girdim. Benim asıl çalıştığım dosyada 170 kadar ülke var. Ayrıca sizden bir ricam olacak. bu durum bir makro ile çözülecek ise, bu makronun nasıl çalıştırılacağını da yazarsanız sevinirim. çünkü bilgisayarım makroları sertifika ve imza olmadığı gerekçesi ile devre dışı bırakıyor.
yardımlarınız için teşekkürler.

 

[veyselemre]

Araçlar>Seçenekler>Güvenlik>Makro Güvenliği orta olarak ayarlayın.
Aşağıdaki kodları bir modüle kopyalayıp, çalıştırın.

Sub test()
    son = [a65536].End(3).Row
    For x = 3 To [a1].End(xlToRight).Column
        Range("a2:a" & son & "," & Range(Cells(2, x), Cells(son, x)).Address).Copy _
                [a65536].End(3).Offset(1)
    Next x
End Sub

 

[Skorpiyon]

Sayım selims73,

Sayın veysememre'nin de belirtiği üzere, Güvenlik Seviyenizi aşağıya çekmeniz gerek. Aksi takdirde Excel üzerinde hiçbir makro çalışmayacaktır.

Araçlar>Makro>Güvenlik>Orta veya Düşük olarak ayarlayınız.

Düğmeye bastığınızda verilerinizin sıralandığını göreceksiniz.

Saygılarımla...

Not : Bu komutlar ile C sütunundan başlamak üzere 256. sütuna kadar işlem yapabilirsiniz.