[Yardım]  Süzme yapılan verileri aktarma

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Süzme yapılan verileri aktarma

İleti#1)  ttahir » 30 Ekm 2018 11:44

Merhaba sayın üstadlarım;
Yine yardımınıza ihtiyacım var. Ekteki dosyada gelişmiş süzme yapıp yaptığım süzme işlemi sonucunu başka sayfaya aktarmak istiyorum. Problem ekteki dosyada detaylı olarak yazıyor.
Yardımlarınızı bekler saygılarımı sunarım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ttahir
Siteye Alışmış
 
Adı Soyadı:Tahir M. Tahiroğlu
Kayıt: 25 Şub 2013 19:29
Konum: hatay
Meslek: teknik ressam
Yaş: 34
İleti: 126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Süzme yapılan verileri aktarma

İleti#2)  Ali ÖZ » 31 Ekm 2018 13:07

Merhaba,
Durum Filtre sayfasında mükerrer isimler mevcut,hangisine neye göre veri gelecek ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9671
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Süzme yapılan verileri aktarma

İleti#3)  ttahir » 02 Kas 2018 07:28

Merhaba Ali Bey;
Öncelikle alakanıza teşekkür ederim. Durum filtre kısmında mükerrer isimler olmayacak. Ben onları silmeyi unutmuşum.
Kullanıcı avatarı
ttahir
Siteye Alışmış
 
Adı Soyadı:Tahir M. Tahiroğlu
Kayıt: 25 Şub 2013 19:29
Konum: hatay
Meslek: teknik ressam
Yaş: 34
İleti: 126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Süzme yapılan verileri aktarma

İleti#4)  ttahir » 06 Kas 2018 07:13

Konu günceldir
Kullanıcı avatarı
ttahir
Siteye Alışmış
 
Adı Soyadı:Tahir M. Tahiroğlu
Kayıt: 25 Şub 2013 19:29
Konum: hatay
Meslek: teknik ressam
Yaş: 34
İleti: 126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Süzme yapılan verileri aktarma yardım

İleti#5)  ttahir » 16 Kas 2018 15:25

Yardım eden olursa çok sevinirim.
Kullanıcı avatarı
ttahir
Siteye Alışmış
 
Adı Soyadı:Tahir M. Tahiroğlu
Kayıt: 25 Şub 2013 19:29
Konum: hatay
Meslek: teknik ressam
Yaş: 34
İleti: 126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: Süzme yapılan verileri aktarma

İleti#6)  ttahir » 02 Mar 2019 09:39

Lütfen yardım edin. Benim için çok önemli.
Saygılarımla..
Kullanıcı avatarı
ttahir
Siteye Alışmış
 
Adı Soyadı:Tahir M. Tahiroğlu
Kayıt: 25 Şub 2013 19:29
Konum: hatay
Meslek: teknik ressam
Yaş: 34
İleti: 126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Süzme yapılan verileri aktarma

İleti#7)  veyselemre » 02 Mar 2019 12:40

Tarihler arasında normal filtreleme ;
Kod: Tümünü seç
Sub filtre()
    Set s1 = Sheets("Günlük Araç Durumu")
    Set s2 = Sheets("Durum Filtre")
    son = s1.Cells(Rows.Count, 2).End(3).Row
    veri = s1.Range("B6:F" & son).Value
    ReDim liste(1 To son, 1 To 5)
    basTar = s2.[D3]
    sonTar = s2.[D4]
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(veri)
            tar = veri(i, 5)
            If tar >= basTar And tar <= sonTar Then
                ky = veri(i, 1)
                If Not .exists(ky) Then
                    say = say + 1
                    .Item(ky) = say
                    liste(say, 1) = say
                    liste(say, 2) = ky
                End If
                sira = .Item(ky)
                Select Case veri(i, 4)
                Case "Lastik": liste(sira, 3) = liste(sira, 3) + 1
                Case "Kademe": liste(sira, 4) = liste(sira, 4) + 1
                Case "Mazot": liste(sira, 5) = liste(sira, 5) + 1
                End Select
            End If
        Next i
    End With
    s2.Range("a6:e" & Rows.Count).ClearContents
    If say > 0 Then
        s2.[a6].Resize(say, 5).Value = liste
    Else
        MsgBox "Uygun kayıt bulunamadı..."
    End If
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 358
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Sogou ve 1 misafir

Bumerang - Yazarkafe