İşletme Numarasına Göre Listeleme

[harziyan]

Merhaba dostlar;
Sayfa1'deki listeden Sayfa3'deki gibi işletme numarasına göre özet bir liste oluşturmak istiyorum. İşletme numarasını seçtiğimde, o işletmeye ait verilerin listelenmesini istiyorum.
Önizleme resimleri;
Sayfa1:

Sayfa3:


Yardımlarınız için şimdiden teşekkürler.

 

[Korhan Ayhan]

Sayfa3 B3 hücresine aşağıdaki DİZİ formülü uygulayın.

Formülü yan hücrelere kopyalayın. Son olarak 3. satırı kopyalayıp alt satırlara yapıştırın.

=EĞERHATA(İNDİS(Sayfa1!$A$1:$G$10000;KÜÇÜK(EĞER(Sayfa1!$A$1:$A$10000=$B$1;SATIR(Sayfa1!$A$1:$A$10000));SATIRSAY(A$3:A3));SÜTUN(B$1));"")

 

[tahsinanarat]

Dosyanız ekte

İşletme numaralarını veri doğrulamada teke düşürmek için sayfa2 ye tekrarsızları getiren bir makro koydum. Dosyanız ekte incelermisiniz

 

[Ömer BARAN]

Merhaba.

Diğer cevapları denemedim, ihtiyacınız görülmüşse veya
(konuyu FONKSİYONLAR bölümüne açmışsınız ama)
makro ile çözüm isterseniz benim cevabım alternatif olsun.

Alt taraftan Sayfa3 adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.

Artık Sayfa3 B1 hücresindeki veri doğrulama listesinden seçim yaptığınızda istediğiniz listeleme gerçekleşecektir.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Call listele
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Target.Select
[B]End Sub[/B]

[B]Sub listele()[/B]
Set S1 = Sheets("Sayfa1"): Set S3 = Sheets("Sayfa3")
S1.Range("A1:G1").AutoFilter Field:=1, Criteria1:=S3.[B1].Value
If S3.[A65536].End(3).Row > 2 Then S3.Range("A3:F" & S3.[A65536].End(3).Row).ClearContents
S1.Range("B1:G" & S1.Cells(65536, 1).End(3).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=S3.[A2:F2]
S3.Columns("A:F").AutoFit
[B]End Sub[/B][/FONT]

 

[harziyan]

Çok çok teşekkür ederim arkadaşlar, sonuç tam istediğim gibi olmuş, ellerinize sağlık.

 

[Ömer BARAN]

Çok çok teşekkür ederim arkadaşlar, sonuç tam istediğim gibi olmuş, ellerinize sağlık.

İyi günler dilerim.