AccessTr.neT

(19/04/2021, 17:50)berduş yazdı: [ -> ].Cells(Guncelle, 3) = ComboBox_FirmaUnvani.Value bu kodda ComboBox_FirmaUnvani change olayı tetiklenip bütün verileri ilk haline döndürüyor ki aslında olmaması gerek sonuçta değişen bir şey yok bu olayın tetiklenmemesi lazım sebebini anlamadım @feraz hocam çözüm bulabilir

@berduş hocam çözümü buldum ve neden böyle yapıyor ilk defa karşılaştım.Resimdeki rowsourceyi silip  Private Sub UserForm_Initialize() koduna alttakini ekledim düzeldi.Dosyanın son düzenlenmiş halinide ekledim daha önceki mesajlardaki iff olaylarınıda ekledim kayıt ekle ve güncelle için.

Dim sonTabloSatr As Long

    With ThisWorkbook.Sheets("Ana_Sayfa")

        sonTabloSatr = .ListObjects("Tablo1").Range.Columns(1).Cells.Find("*", _

                        SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row

        If sonTabloSatr > 1 Then ComboBox_FirmaUnvani.List = .Range("C2:C" & sonTabloSatr).Value

    End With

Konu çözülmüştür.Dosyanın son hali.

 

  If sonTabloSatr = 2 Then

            ComboBox_FirmaUnvani.AddItem .Range("C2").Value

        ElseIf sonTabloSatr > 2 Then

            ComboBox_FirmaUnvani.List = .Range("C2:C" & sonTabloSatr).Value

        End If