Çoklu sütun aktarma

[Yesilyurtlu]

Uzmanlarım;
Sayfa2 de bulunan D,E,F,G,H sütunlarında ki verileri ,Sayfa3 de bulunan C,D,E,F,G sütunlarına aktarmak için yardımcı olabilir misiniz?
"sütunlar 3:200 arasındadır"

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Makro1()
    Sheets("Sayfa2").Range("D:H").Copy Sheets("Sayfa3").Range("C1")
End Sub

 

[Yesilyurtlu]

Necdet abi;
kod "Cant execute code in break mode" hatası veriyor
Bakabilmeniz Mümkün mü?

 

[mustafakoker]

Sub Makro1()
    Sheets("Sayfa2").Range("D:H").Copy Sheets("Sayfa3").Range("C1")
End Sub

Sayın Necdet Hocamın verdiği kodlar çalışıyor

Ekli Örneği inceleyiniz

 

[Yesilyurtlu]

sayın mustafakoker;
ben becerememiştim. Örnek dosya ile desteklediğiniz için teşekkür ederim.
Hem necdet hocamın hem de sizin ellerinize sağlık

 

[mustafakoker]

sayın mustafakoker;
ben becerememiştim. Örnek dosya ile desteklediğiniz için teşekkür ederim.
Hem necdet hocamın hem de sizin ellerinize sağlık

Rica ederim Hocamızın Sayesinde Bizde Birşeyler Öğrenmeye Çalışıyoruz

İşinizi Gördüyse ne mutlu bize

 

[xxozixx]

Merhaba, örnek yukarıda bahsedilen çalışmada benim çok işime yarayacak, Benim tam işime yaraması için excellden iyi anlayan arkadaşlarımdan rica edyorumm. Sayfa2 den Sayfa3 aktarma yaparken, bir kaç sütunun yerlerini değiştirerekde aktarma yapabilir miyiz. Yani sayfa2 D VE F sütunu aktardığımızda E, G, D, F VE H şeklinde gelecek şekilde aktarma yapabilir miyiz.

 

[xxozixx]

Yani aktarırken sütunların yerlerinide değiştirerek aktarabilir miyiz.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod yapısını kullanabilirsiniz.

Kırmızı renkli adresleri dilediğiniz gibi değiştirebilirsiniz.

Sub AKTAR()
    Sheets("Sayfa2").Range("[COLOR=red]E:E[/COLOR]").Copy Destination:=Sheets("Sayfa3").Range("[COLOR=red]D:D[/COLOR]")
    Sheets("Sayfa2").Range("[COLOR=red]F:F[/COLOR]").Copy Destination:=Sheets("Sayfa3").Range("[COLOR=red]G:G[/COLOR]")
    'Bu şekilde dileğiniz kadar çoğaltabilirsiniz...
End Sub

 

[xxozixx]

Korhan bey, çok tşk ederim kod çalışıyor. Yalnız benim istediğim şu
böyle satır satır yazma yerine bir satırda tercihimizi bitirme işi olamaz mı.

 

[xxozixx]

Sayfa1 deki B, F, G, H (isteğimize artırma veya eksiltme yapabilme) sütunlarını seç, kopyala, sayfa2 deki A sütununa F sütunu aktar, sonra B sütununa H sütunu aktar, sonra C sütununa B sütunu aktar, sonra da D sütununa G sütunu aktar şeklinde bir bir veya iki satır kod ile halledebilir miyiz.

 

[Korhan Ayhan]

Merhaba,

Sütunlar farklı yerlere gideceği için en basit olarak önerdiğim şekilde yapabilirsiniz.

 

[xxozixx]

Merhaba, tşk ederim Korhan bey. Vermiş olduğunuz kod çok işime yarayacak bundan emimim. farklı ve kısa bir yol varsa bunu öğrenmek istemiştimm. Ahh keşke olsaydı.

 

[Korhan Ayhan]

Merhaba,

İfadelerinizden anladığım kadarıyla fazla sayıda sütun kopyalama işlemi yapacaksınız. Eğer doğru anladıysam döngü ile belki uygulamak istediğiniz kodlar kısaltılabilir.

 

[xxozixx]

Merhaba, aynen öyle korhan bey,
Ben üst yönetime istatistikler hazırlıyorum sürekli olarak, aldığğım verilerde çok sayıda sütunlar mevcut bulunmaktadır.
Ben bunları senin verdiğin komuta göre alt alta yazmak istersem, başı ile sonunu birbirinden kopma olayı yaşarım. yani çok şaşırırım. Bir iki defada denedimm, aynen dediğim oldu. Bundan dolayı tercih ettiğim sütun verilerini, yine sırasını da terciğime göre diğer sayfaya kopyalasın istiyorum.
Bunu yaparkenden kodları satır satır yazmak yerine, bir ikir satır komut dizesinin içerisinde seçeceğimi sütunları ve belirteceğim sütuna göre diğer sayfaya aktarmasını istiyorum. saygılarımla...

 

[Korhan Ayhan]

Merhaba,

Bu işlem için fonksiyonel bir form hazırlanabilir. Küçük bir örnek dosya ekleyip hangi sütunların nerelere aktarılacağını belirtirseniz yardımcı olabilirim.

 

[Korhan Ayhan]

Merhaba,

Ben bir örnek dosya hazırladım.

Dosya açıldıktan sonra F12 tuşuna basarakta aktarım işlemi yapabileceğiniz formu açabilirsiniz. Dilerseniz butona tıklayarakta formu açabilirsiniz.

Form üzerindeki işlem adımlarını takip edip verilerinizi hızlıca diğer sayfalara aktarabilirsiniz.

Çalışma örnek olması açısından hazırlanmıştır. İhtiyaca göre düzenlemeler yapılabilir.

 

[xxozixx]

Merhaba Korhan bey, yeni bakma fırsatım oldu. Çok Çok tşk ederim istediğim böyle birşeydi. Sözkonu makroda seçimi tabloya ekle dediğimizde bir sınır var mı (aktarılacak sütun sayısında).
Birde eğer mümkün ise Seçilen listedeki BİLGİLERİ sayfa2 BİLGİLERİ AKTAR dediğiizde formu temizlemesin.hani yanlış sütun seçmiş olursak tekrar baştan düzeltmek için girmeyelim. Ayrı bir buton ile formu temizlesek olur mu.
Şimdidien emekleriniz için çok çok tşk ederim.

 

[xxozixx]

Merhaba Korhan bey,
Eğer yukarıda dediğimide yapabilirseniz, inan mükemmel olacak.

 

[Korhan Ayhan]

Merhaba,

3-4 gündür nette olan bağlantı problemlerinden dolayı foruma giriş yapamıyordum.

Üstteki mesajımdaki dosyada gerekli değişiklikleri yaptım. Tekrar denermisiniz.