Soru Hücreye Girilen Veriyi Anımsamak

Katılım
7 Şubat 2021
Mesajlar
434
Excel Vers. ve Dili
2010, Türkiye
Hocam ilk seçimden sonra ki seçimlerde veriler listboxa gelmiyor
 
Katılım
7 Şubat 2021
Mesajlar
434
Excel Vers. ve Dili
2010, Türkiye
Sayın Suskun asıl dosyamda sıkıntı verdi.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
UserForm2 nin "UserForm_Initialize" kodlarını aşağıdakilerle değiştirip deneyiniz.
Kod:
Private Sub UserForm_Initialize()

    Dim c As Range, Adr As String
    
    Set S1 = Sheets("VERİ GİRİŞİ")
    Set S2 = Sheets("TAZMİNATBEDELLERİ")

    Set c = S2.[C11:C1000].Find("*" & ActiveCell & "*")
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            ListBox1.AddItem S2.Cells(c.Row, "C")
            Set c = S2.[C11:C1000].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If

End Sub
 
Katılım
7 Şubat 2021
Mesajlar
434
Excel Vers. ve Dili
2010, Türkiye
Ömer hocam çok teşekkür ederim. Ellerinize sağlık. Tekrar hayırlı bayramlar. Samsun'dan selamlar
 
Üst