• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ComboBoxta şarlı listeleme

Katılım
30 Kasım 2006
Mesajlar
625
Excel Vers. ve Dili
OFFICE 2003 Türkçe
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.
 

Ekli dosyalar

Merhaba,

Bu şekilde deneyin.

Kod:
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
.
 
Ö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
 
Geri
Üst