seçilen koşula uyan tüm verileri ilgili sayfaya aktarmak

[mustafa7691]

sn dostlar bu konu ile ilgili tüm başlıkları gezmeme rağmen çözüm bulamadım.genel liste sayfasından ilçe adı seçerek o ilçeye ait olan bütün veri satırlarinı ilçe sayfasına aktarabilmek istiyorum.bu mümkün bir şey ise ekte dosyam var yardımcı olur yada yol gösterirseniz memnun olurum saygılarımla

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim KRİTER As Variant
    Dim S1 As Object
    Set S1 = Sheets("LİSTE")
    S1.Select
    KRİTER = Application.InputBox("Lütfen kriter giriniz.", "KRİTER SEÇİMİ")
    If KRİTER = "" Or KRİTER = False Then Exit Sub
    [E3].AutoFilter Field:=4, Criteria1:="*" & KRİTER & "*"
    If [E65536].End(3).Row = 1 Then
    [E3].AutoFilter Field:=4
    MsgBox "Aradığınız kritere göre veri bulunamamıştır.", vbInformation
    Exit Sub
    End If
    If SAYFA(CStr(KRİTER)) Then
    Range("E4:K" & [E65536].End(3).Row).Copy Sheets(CStr(KRİTER)).[E4]
    [E3].AutoFilter Field:=4
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
    Else
    [E3].AutoFilter Field:=4
    MsgBox "Aktarım yapılacak sayfa bulunamamıştır.", vbExclamation
    End If
    Set S1 = Nothing
End Sub
 
Function SAYFA(SAYFAADI As String) As Boolean
    On Error Resume Next
    SAYFA = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function

 

[mustafa7691]

sn Korhan Ayhan teşekkür ederim ilginize.kodu denedim aktarma işlemini listeden yapıyor ama liste sayfasındaki seçilen kriter dışındaki verileride siliyor.yani söke seçerek aktar dediğimde söke verilerini söke sayfasına atıyor ancak liste sayfasındada söke dışındaki verileri yok ediyor.eğer bunuda çözebilirsek ki ben liste sayfasındaki verilerin kaybolmasınıda istemiyorum sorunumuz hallolacak yinede teşekkür ve saygılarımla

 

[mustafa7691]

aslında daha dikkatli inceleyince silmediğini gördüm.ama olay biraz daha karışık.textboxlarda süzme kodu ile çakışarak sayfada seçilen kritere göre bir süzme yapıyor.tekrar textboztan süzme yapıp onuda tekrar geri aldığınızda orjinal sayfa çıkıyor.ama ilk aktarmada açıklamaya çalıştığım gibi garip bir hadise oluyor.ve sayfanın şeklide baya bi bozuluyor.Yani aslen ben bunu şu bilgimle çözebileceğimi sanmıyorum sn hocam.ama sonuçta sizin kodunuz anladığım kadarıyla çalışıyor.

 

[Kemal Demir]

İyi geceler,

Korhan hocam cevaplamıs ama alternatif olması açısında bende dosyamı eklemek istedim.

Formatında biraz değişiklik yaptım.(Kusura bakmayınız)

Umarım faydalı olmusumdur.

NOT:istediğiniz field'a göre filtre almanızı sağlamaktadır.

 

[mustafa7691]

Sn Rakkas bey aslında buda çok güzel ve biraz uğraşır ve başarırsam kullanabilirim.sorunum şu ki liste sayfasındaki süzme fonksiyonlarınıda tüm il bazında değerlendirme yapmak verileri silmek yada değiştirmek veya yeni personel girmek için kullanmam gerekiyor.ama sizin çalışmanızda aslında benim beklentimin üzerinde olmuş gerçekten.şimdi benim çözmem gerekense liste sayfasında herhangi bir değişiklik yapıldığında sizin tasarlamış olduğunuz sayfaya otomatik olarak aldırma şansımız olurmu.saygılarımla

 

[Kemal Demir]

Sn Rakkas bey aslında buda çok güzel ve biraz uğraşır ve başarırsam kullanabilirim.sorunum şu ki liste sayfasındaki süzme fonksiyonlarınıda tüm il bazında değerlendirme yapmak verileri silmek yada değiştirmek veya yeni personel girmek için kullanmam gerekiyor.ama sizin çalışmanızda aslında benim beklentimin üzerinde olmuş gerçekten.şimdi benim çözmem gerekense liste sayfasında herhangi bir değişiklik yapıldığında sizin tasarlamış olduğunuz sayfaya otomatik olarak aldırma şansımız olurmu.saygılarımla

İyi geceler,

Tam olarak anlayamadım sayfa uzerınde konusabilirsek yardımcı olmaya çalışırım.

Umarım faydalı olabilmişimdir.

 

[mustafa7691]

hocam sizin sayfanızla ben biraz çalışayım ve sanırım işimi görecek hale getirebilirim.biraz uğraşmadanda her şeyi sizlere yollamak sanırım ayıp olacak.sorunum olursa tekrar dosyamla açıklayarak yardım talep ederim.çok çok teşekkürler ve saygılarımla iyi geceler

 

[Korhan Ayhan]

Selamlar,

Aktarma işlemi yapılırken en hızlı çözüm olarak filtreleme yöntemini kullanmak istedim. Filtreleme sırasında satırlar gizlendiği için sayfa yapısı bozulmuş gibi görünmektedir. Aslında işlem döngü ilede yapılabilir. Fakata veri sayınız arttıkça döngü ile aktarma işlemide yavaşlayacaktır. Bu sebeple tercih etmedim.

Üstteki mesjımdaki koda aktarım işlemi bittikten sonra süzme işlemini kaldıran kod ekledim. Bu şekilde sayfa yapısı tekrar eski haline geldiğinden belki işinize yarayabilir.

 

[assenucler]

Sayın mustafa7691 ve hocalarım;

Acaba, rica etsem son halini siteye yükler misiniz? Ben hocalarımın kodlarını nereye koyacağımı bilemiyorum. Bir benzer çalışmamda kullanmak istiyorum.

İlginiz için teşekkürler. Hayırlı ramazanlar.

 

[mustafa7691]

şu haliyle tamamlanmadı ama tamamlandığında elbetteki bu başlık altına eklerim.

sizede hayırlı ramazanlar.

 

[mustafa7691]

sn Korhan Ayhan ilginize teşekkürler.aradaki mesajınızı dolayısı ile kod değişikliğinizi geç farkettim.evet şimdi gerçekten işimi görecektir.teşekkürlerimle ve saygılarımla