Hücredeki Veriye Göre Veri Listeleme

[pisagor26]

Değerli arkadaşlar (üstatlar) öncelikle teşekkür etmek istiyorum benim gibi acemi kişilere sıkılmadan yardımlarınızdan dolayı.
Ekte yer alan çalışmada sayfa 2 de seçilen ilçe ismine göre Sayfa 1 den o ilçeye ait okul bilgilerin tablo halinde aktarılmasını istiyorum.
Yardımlarınız için teşekkür ediyorum...Saygılarımla...

 

[Ömer BARAN]

Merhaba.
Alt taraftan Sayfa2'nin 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.
İlçe seçimi yaparak sonucu gözlemleyiniz.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
Range("A5:A" & [B65536].End(3).Row).UnMerge
Range("A5:D" & [B65536].End(3).Row).ClearContents
    ilk = WorksheetFunction.Match(Target, Sheets("Sayfa1").Range("B:B"), 0)
    son = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("B:B"), Target) + ilk - 1
Sheets("Sayfa1").Range("B" & ilk & ":D" & son).Copy
Sheets("Sayfa2").[B5].Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
With Range("A5:A" & [B65536].End(3).Row)
    .Formula = "=ROW()-4"
    .Value = .Value
End With
Target.Activate
End Sub[/FONT]

 

[Ömer BARAN]

Tekrar merhaba.
Formül ile çözüm isterseniz aşağıdaki şekilde sonuç alırsınız.
--Sayfa1'de E3 hücresine aşağıdaki formülü uygulayın ve liste boyunca kopyalayın (yardımcı sütun)

=EĞER(B3=Sayfa2!$C$1;MAK(Sayfa1!$E$2:E2)+1;"")

--Sayfa2 B5 hücresine aşağıdaki formülü uygulayın ve sağa ve boş sonuç elde edinceye kadar da aşağı doğru kopyalayın.

=EĞER(SATIR()-4>MAK(Sayfa1!$E:$E);"";İNDİS(Sayfa1!$B$3:$D$68;KAÇINCI(SATIR()-4;Sayfa1!$E$3:$E$68;0);SÜTUN()-1))

--Sayfa2 A5 hücresine aşağıdaki formülü uygulayın ve aşağı doğru boş sonuç elde edinceye kadar kopyalayın.

=EĞER(B5="";"";SATIR()-4)

 

[pisagor26]

Cok tesekkur ediyorum...

 

[Ömer BARAN]

Cok tesekkur ediyorum...

Estağfurullah, sorun değil.

Satır yüksekliklerini değiştirmek yerine hücre birleştirmeleri yapmanız, eninde sonunda sorun yaşamanıza neden olabilir.

Gereksiz hücre birleştirmelerinden kaçınmanızı öneririm.
.