Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin.

Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. (/konu-excel-vba-formdaki-bilgilerde-degisiklik-yapildiysa-guncellesin.html)

Sayfalar: 1 2 3

RE: Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - feraz - 20/04/2021

(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

Re: Excel Vba Formdaki Bilgilerde Değişiklik Yapıldıysa Güncellesin. - feraz - 20/04/2021

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