Makro ile Süz Aktar Yapma

[dmyksl]

Arkadaşlar ekteki Gibi 2000 satırlık tablom var Yapmak İstediğim Bir Öğretmeni Seçeceğim ve o öğretmene ait bir gün seçeceğim ve o gün o öğretmene ait liste yan tarafta yeni bir sheet oluşturularak yazılacak bunu nasıl yaparaım acaba(2 li süzme işini makro ile yapmak istiyorum yani)

 

[YUSUF44]

Aşağıdkai konuda benzer bir soru sormuştunuz, cevap vermiştim ama dönüş yapmadınız. O sorun çözüldü mü?

http://www.excel.web.tr/f48/excel-sayfalama-t153133.html

 

[dmyksl]

Yusuf hocam o cevabı yeni gördüm ama istediğim olmadı onunla bu şekliyle bir butonla nasıl yaparım acaba

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub süz()
son = WorksheetFunction.Max(Cells(Rows.Count, "E").End(3).Row, Cells(Rows.Count, "F").End(3).Row)
    Set s1 = Sheets("Sayfa1")
    s1.Move Before:=Sheets(1)
s1.Range("A2:F" & son).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$F$" & son).AutoFilter Field:=5, Criteria1:=[G1]
    ActiveSheet.Range("$A$2:$F$" & son).AutoFilter Field:=6, Criteria1:=[H1]
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets(2).Columns("A:F").EntireColumn.AutoFit
    Sheets(2).Range("F6").Select
    s1.Select
    ActiveSheet.Range("$A$2:$f$" & son).AutoFilter Field:=5
    ActiveSheet.Range("$A$2:$f$" & son).AutoFilter Field:=6
    Range("C1").Select

End Sub

Bu arada sorduğunuz soruları takip edip dönüş yapmanız, verdiğimiz emeklerin boşa gidip gitmediğini gösteriyor, bundan sonra dikkat ederseniz sevinirim.

 

[muygun]

Merhaba;
Alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[dmyksl]

Hocam deneme yaptınızmı sadece başlıkları atıyor

 

[YUSUF44]

Belirtmeyi unutmuşum, G1 hücresine öğretmeni, H1 hücresine de günü yazdıktan sonra makroyu çalıştırmanız gerekiyor. Kusura bakmayın.

 

[dmyksl]

muygun hocam eline sağlık on numara....

 

[halilyor]

Sayfa ekleme sayfa adlandırma sayfa silme sayfada işlemler vs hepsi bir arada.
yıllar öce yapmış olduğum çalışmadan bir bölüm.

http://s6.dosya.tc/server5/va5ryb/CARI_DENEME.xls.html

 

[dmyksl]

Yusuf44 hocam sizede teşekkür ederim istediğim gibi oldu

 

[halilyor]

Sayfa ekleme sayfa adlandırma sayfa silme sayfada işlemler vs hepsi bir arada.
yıllar öce yapmış olduğum çalışmadan bir bölüm.

vba şifresi: 2500

http://s6.dosya.tc/server5/va5ryb/CARI_DENEME.xls.html

 

[muygun]

Merhaba;

Alıntı:
muygun tarafından gönderildi
Alıntı:
dmyksl tarafından gönderildi
hocam makro süz aktar yapma soruma vermiş olduğunuz cevap için teşekkür ederim. yalnız bunu 3 kritere göre yapma şansım varmı acaba teşekkürler

Merhaba;
Elbette var.
Bunu ilk sorunuzun devamı niteliğinde sorunun olduğu sayfada sorun ki hem alternatif cevaplar oluşsun. hemde 3. kullanıcılar yapılan işlemin hangi isteğe bağlı yapıldığını bilerek kodlardan faydalansın.
İyi çalışmalar.

hocam oraya sorduğumda sayfa görüntülenemiyor diyor tekrar deniyorum gönderemezsem buradan cevaplarmısınız teşekkürler.

Özel mesajınıza istinaden eki deneyin.
Sayfayı görüntüleyememe sorunu için Moderatör arkadaşlarla iletişime geçin.

İyi çalışmalar.

 

[dmyksl]

Muygun hocam birsey daha rica edecegim ogretmen ders gun secme islemini ayri sayaya alsak ve ogretmen secildiginde o ogretmenin girdigi dersler ve girdigi gunler sadece gorunse nasil olur acaba. Userform da olabilir

 

[dmyksl]

muygun hocam bi el atsanız

 

[muygun]

Merhaba;
Doğru mu anladım bilemiyorum ama;
Aslında uygulama istediğinizi yapıyor (ama tek tek öğr.adına çift tıklayarak , yani manuel)
Eki deneyin.
Eklediğim buton şablon1 formatında tüm listeyi öğretmen adına göre tasnifler.
İyi çalışmalar.

 

[dmyksl]

Merhaba;
Doğru mu anladım bilemiyorum ama;
Aslında uygulama istediğinizi yapıyor (ama tek tek öğr.adına çift tıklayarak , yani manuel)
Eki deneyin.
Eklediğim buton şablon1 formatında tüm listeyi öğretmen adına göre tasnifler.
İyi çalışmalar.

Hocam ekteki gibi demiştim size zahmet bakabilirmisiniz

 

[halilyor]

Sayın dmyksl bu çalışmayı kendi çalışmanıza uyarlayabilirsiniz.

Formda açılan takvim ile veri süz ve başka sayfaya kopyala.
çalışmanıza uyarlayın

http://www.dosya.tc/server6/vw4buu/a...pyala.xls.html

 

[muygun]

Merhaba;
Eki tekrar deneyin.
İyi çalışmalar.

 

[dmyksl]

Muygun hocam program sayfasindaki verilere gore gelmesini istemistim yani a ogretmenin sadece girdigi dersler ve o dersecait gunlerin gelmesini istemistim bakabilirmisiniz

 

[muygun]

Muygun hocam program sayfasindaki verilere gore gelmesini istemistim yani a ogretmenin sadece girdigi dersler ve o dersecait gunlerin gelmesini istemistim bakabilirmisiniz

Syn. dmyksl;
Dosyanın önceki hali zaten isteğinizi karşılıyor.
Son gönderdiğim dosyada;
data sayfasında E sütununda herhangi bir Öğretmen adına çift tıklayın.
Sonra SAYFA AÇ butonuna basın.
İlgili hocaya ait dersler ve diğer veriler ilgili sayfaya gitti.
Yok sadece Bir öğretmene ait verileri başka bir sayfaya alacağım diyorsanız. (makroya dahi gerek yok) formülle bu iş halledilir.
Sizin açılır listeden seçim yapacağım dediğiniz olayı zaten 4 sütun için çift tıklama yöntemiyle halletmiştim.
Kısaca dosyada sadece data sayfasının olduğunu varsayarak isteğinizi yeniden tanımlayın.
Çünkü yaptığım bir işi tekrar istediğinizi görünce tablonun çalışmasını anlamadığınızı yada kullanamadığınızı yada benim sorunuzu anlayamadığımı varsayıyorum.

Ekli dosya üzerinde olmasını istediğiniz (gerekirse sayfa ekleyerek) gereken tanımlama yada tarifi yapabilirsiniz.

İyi çalışmalar.