Plakaya göre listeleme

[manisali61]

Arkadaşlar merhaba..
Ekteki dosyamda görüleceği üzere;"yol belgeleri" sayfasında listeli araçlarımın palakalara göre listelenmesini istiyorum.."Plakaya göre listeleme" sayfasında C1 sütununa yazdığım plakaya,o yıl içenisinde alınan yol belgelerinin tarihlerini listelemesini istiyorum..
Şimdiden teşekkürler

 

[leumruk]

Merhaba,
Makrolu çözüm isterseniz aşağıdaki kodu kullanabilirsiniz. Aşağıdaki kodu Plakalara göre listeleme isimli sayfanızın kod bölümüne kopyalayın ve plaka hanesine bir plaka girip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c1]) Is Nothing Then Exit Sub
Set ylb = Sheets("Yol belgeleri")
Set Aralik = ylb.Range("e3:e" & ylb.[e65536].End(3).Row)
    Set Bul = Aralik.Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Bul Is Nothing Then
    [b4:b50].ClearContents: Sat = 4
        Adres = Bul.Address
        Do
        Cells(Sat, "b") = ylb.Cells(Bul.Row, "c")
        Sat = Sat + 1
        Set Bul = Aralik.FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
    MsgBox "İşlem tamam.", vbInformation
    End If
End Sub

 

[manisali61]

Üstadım süper..Çok çok teşekkür ederim.

 

[manisali61]

Yol belgeleri

Üstadım..Konu ile ilgili yeni bir sorum olacak.
Aynı çalışma kitabının bi başka sayfasında yine buradaki arkadaşların yardımı ile bu yol belgelerini aylara göre sıralatabiliyorum..Ama aynı araca aynı ayda birden fazla yol belgesi alındıysa bu plakayı sadece bir kez yazdırıp yanına da parantez içerisinde o ay içerisinde kaç kez(örneğin "3 kez") yol belgesi alındığını yazdırabilir miyiz?
Ayrıca az önceki sorumdaki çizelgeyi kullanırken ufak bir hata gözüme çarptı..Eğer yazdığım plakanın hiç yol belgesi yoksa,ya da yazdığım plaka o listede yoksa az önce yazdığım ve sonuç verdiği liste aynen kalıyor..Bu durumda çizelgeyi boş göstertebilir miyiz?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

"Yol Belgeleri" sayfasındaki "I" sütunu yardımcı sütun olarak kullanılmıştır.

 

[manisali61]

Hocam muhteşem olmuş ama şimdi kızacaksınız..Aynı formülü bendeki orijinal dosyaya kopyalayıp yapıştırıyorum aynı mükemmel sonucu vermiyor.