Soru Hücreye Girilen Veriyi Anımsamak

[Hsn55]

Hocam ilk seçimden sonra ki seçimlerde veriler listboxa gelmiyor

 

[Suskun]

Dosyayı inceleyin.

 

[Hsn55]

Sayın Suskun asıl dosyamda sıkıntı verdi.

 

[Ömer]

UserForm2 nin "UserForm_Initialize" kodlarını aşağıdakilerle değiştirip deneyiniz.

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

 

[Hsn55]

Ömer hocam çok teşekkür ederim. Ellerinize sağlık. Tekrar hayırlı bayramlar. Samsun'dan selamlar