Makroyla yapılacagını dusundugum ıcın bu baslıga yazdÃ

[gokhan1]

Merhaba;
Benim A dan başlayıp Z ye kadar giden bir xls dosyam var.ve bu sütünların hepsi "süz" le çalışıyor.Ben gerekli kriterleri seçip süz dedikten sonra ortaya çıkan tablodan da bütün sütünları değilde sadece istediğim sütünları ayrı eten bir sayfada tablo haline getirmesini istiyorum,bu mümkün mü? Yani A dan başlayıp a.b.c.......z ye kadar giden sütünlardan gerekli kriterleri seçip süzdükten sonra sonuç tabloda da sadece a,b,c,e,g,h,ı,r,s,v,w sütünlarından oluşan sonuç bir tablo olsun istiyorum(tabi formüllerde aynen kopyalansın ) çook şey istiyorum sanırım.Mümkünmüdür bu?Eğer mümkünse ve bu makrolarla yapılacaksa göndereceginiz kodu nereye kopyala yapıştır yapmam gerekiyor?
Þimdiden cok teskur ederim

 

[Levent Menteşoğlu]

Elbette sorunuz makroyla yapılabilir,fakat tam çözüm için bir örnek dosya eklemenizde yarar olduğunu düşünüyorum.

 

[cako]

İlgili sayfanızın üzerine bir commanbutton yerleştirin. Butonun kod sayfasına aşağıdaki kodu yapıştırın. Tabi koddaki sayfa ismini ve sütunları kendinize göre uyarlayın.

Range("A1:Z1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets("GenelRapor").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
    Range("D:D,H:H,K:K,M:M,O:O,P:W,X:X").Select
    Range("X1").Activate
    Selection.Delete Shift:=xlToLeft