Koşula Göre Veri Alarak Liste Oluşturma Formül Yardımı

[Believing]

Sayın Uzman arkadaşlar,

"A1" hücresine bir oda numarası yazıldığında, " ARIZA KAYITLARI" sayfasında "A" sütunundaki oda numarası koşuluna göre, "F" sütunundaki kayıtların tamamının listesini almak istiyorum. Sitedeki örnekleri inceledim ama bir sonuca ulaşamadım. Benim çok kıymetli olan yardımlarınız ve çözüm önerilerinizi rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Örnek Dosya Link;
http://s3.dosya.tc/server18/4qdsqe/Kosula_Gore_Liste.rar.html

 

[Muzaffer Ali]

Merhaba.

1034 adlı sayfayı sağ tıklatıp kod görüntüle seçin.
Aşağıdaki kodları açılan sayfaya kopyalayın.

1034 adlı sayfanın A1 hücresinde bir değişiklik olduğunda kodlar çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bak As Range
    Dim Say As Long
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Range("A2:B" & Rows.Count).ClearContents
    With Worksheets("ARIZA KAYITLARI")
        For Each Bak In .Range("A3:A" & .Cells(Rows.Count, "A").End(3).Row)
            If Bak = Target Then
                Say = Say + 1
                Cells(Say + 1, "B") = Bak(1, "F")
                Cells(Say + 1, "A") = Say
            End If
        Next
    End With
    Application.EnableEvents = True
End Sub

 

[Believing]

Sayın Dalgalikur,

Konuya gösterdiğiniz ilgi ve yardımınız için size çok teşekkür ederim.
Formül ile yapmaya çalıştım, eğer formül ile olursa da çok makbule geçecektir.
Hayırlı Cumalar.

Saygılarımla.
Ömer Ali ÜZÜMCÜ

 

[turist]

Sayın Uzman arkadaşlar,

"A1" hücresine bir oda numarası yazıldığında, " ARIZA KAYITLARI" sayfasında "A" sütunundaki oda numarası koşuluna göre, "F" sütunundaki kayıtların tamamının listesini almak istiyorum. Sitedeki örnekleri inceledim ama bir sonuca ulaşamadım. Benim çok kıymetli olan yardımlarınız ve çözüm önerilerinizi rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Örnek Dosya Link;
http://s3.dosya.tc/server18/4qdsqe/Kosula_Gore_Liste.rar.html

Dosyanız Formül ile eklidir.

 

[Believing]

Sayın Turist,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[turist]

Sayın Turist,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Sağ olun, iyi çalışmalar.

 

[excel12312]

Sağ olun, iyi çalışmalar.

iyi akşamlar ,

Bu kodda nasıl bir değişiklik yapar isem , makroyu kopyaladığım A1 hücresi yerine başka bir sayfanın A1 hücresine baktırabilirim sorguyu ? Örnegin "Veri" sayfası. Yardımcı olabilir misiniz , teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bak As Range
Dim Say As Long
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("A2:B" & Rows.Count).ClearContents
With Worksheets("ARIZA KAYITLARI")
For Each Bak In .Range("A3:A" & .Cells(Rows.Count, "A").End(3).Row)
If Bak = Target Then
Say = Say + 1
Cells(Say + 1, "B") = Bak(1, "F")
Cells(Say + 1, "A") = Say
End If
Next
End With
Application.EnableEvents = True
End Sub