Düşeyara komutu ile ilgili verileri alt alta sıralama

[janvaljan85]

Merhaba Hocam,

Ekte gönderdiğim dosyada tabloya isme göre yapılan projeleri, türü ve tarihi ile ilgili kişilere göre bilgilerin girilmesini istiyorum. Mesela Seçme butonundan Nedim Orul'a ait projelerin tabloya gelmesi gibi. Bunun için düşeyara formülünü kullandığımda sadece 1 adet proje o da en üstekini seçerek getiriyor.

Bu konuda yardımcı olabilir misiniz?

 

[Merhum İdris SERDAR]

.

Formülle isterseniz;

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html

Buraya bakın.


.

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa1 in kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3]) Is Nothing Then Exit Sub
    Dim s2  As Worksheet
    Dim i   As Long
    Dim c   As Range
    Dim Adr As String
    
    Set s2 = Sheets("Sayfa2")
    Range("B15:P24").ClearContents
    i = 14
    With s2.Range("a:a")
        Set c = .Find(Target.Value, LookIn:=xlValues)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                i = i + 1
                Cells(i, "B") = s2.Cells(c.Row, "B")
                Cells(i, "O") = s2.Cells(c.Row, "C")
                Cells(i, "P") = s2.Cells(c.Row, "D")
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
End Sub

 

[janvaljan85]

Merhaba üstadlar,

Söylediğiniz 2 çözümü de denedim ancak başaramadım.

İlk olarak Sayın Yurttaş Hocam,

Gönderdiğin dosyada ilk sayfasında benim problemimin çözümü var. Ancak, formülü aynen kopyaladım. Puan yazan yerlere benim dosyamdaki projelerin olduğu sütunu seçerek koydum. A1:A60 için sayfa 1 deki isimleri, D1 için de sayfa 2 deki isim seçme hücresini koydum. Ancak olmadı. Nerede yanlış yapmış olabilirim?

Sayın Necdet Hocam;

Gönderdiğiniz makroyu ekledim ancak çalışmadı. Nerede yanlışlık yapmış olabilirim?

 

[janvaljan85]

Sayın Necdet Hocam,

Tekrar denedim yazdığınız makroyu. Olmuş gerçekten de. Teşekkür ederim

 

[Necdet]

Merhaba,

B3 hücresi her değiştiğinde çalışacaktır. Tabii ilgili sayfaya kopyalamada bir sorun oluşmadıysa.

 

[Necdet]

Sayın Necdet Hocam,

Tekrar denedim yazdığınız makroyu. Olmuş gerçekten de. Teşekkür ederim

Güle güle kullanınız.