ComboBoxta şarlı listeleme

[sdegirmenci]

Merhaba;
Ekteki dosyamda Form üzerinde "Onay no" Combosundan seçim yaptığımda TextBox lara seçilen satır bilgilerini atayabiliyorum. Ancak benim istediğim "Yıl" TextBoxuna hangi yıl yazıldıysa onay numaraları aynı olsa dahi yazılan yılın verilerini alması,
Bu Combonun listeye yalnızca yazılı yılı almasıylada olabilir, Listede olsa dahi diğer yılları dikkate almaması ilede olabilir. Bu konuda yardımcı olabilirseniz çok sevinirim. Saygılarımla.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub onayno_Change()
 
    Dim Sa As Worksheet
 
    Set Sa = Sheets("Arşiv")
    
    If yıl.Text = "" Then MsgBox "Yıl Boş Kalmaz": Exit Sub
        
    With Sa.Range("F:F")
        Set c = .Find(CDbl(yıl.Text), , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                If Sa.Cells(c.Row, "B") = CDbl(onayno.Value) Then
                    adısoyadı.Text = Sa.Cells(c.Row, "C")
                    gidilenyer.Text = Sa.Cells(c.Row, "D")
                    tutar.Text = Sa.Cells(c.Row, "E")
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub
''''''''''''''''''''''''''''''''''''''''''''
Private Sub yıl_Change()
    onayno = ""
    adısoyadı = ""
    gidilenyer = ""
    tutar = ""
End Sub

.

 

[sdegirmenci]

Ömer Hocam merhaba; ilginizden dolayı çok teşekkür ederim. Hemen Programıma uyguladım. Tam istediğim gibi olmuş. İşleriniz kolay gelsin. Saygılarımla