Abey alttaki gibide hata verirse pes artıkyani

Sub IlceAktar()

    Dim x As Integer, cboSehir As MSForms.ComboBox, i As Integer, sonn As Integer

    Static sayac As Integer

    

    sayac = sayac + 1

    Set cboSehir = Me.ComboBox_Sehir

    

    If cboSehir = "" Then GoTo son

    With Sheets("TANIMLAR")

        sonn = .Range("A1000").End(xlUp).Row

        If sayac > 1 Then GoTo son

        Me.ComboBox_Ilce.Clear

        For x = 2 To sonn

            If CLng(.Range("A" & x).Value) = CLng(cboSehir.Value) Then _

            Me.ComboBox_Ilce.AddItem (.Range("D" & x).Value)

        Next

        

        For i = 2 To sonn

            If CLng(.Cells(i, 2).Value) = CLng(cboSehir.Value) Then

                cboSehir.Value = .Cells(i, 3).Value

                Exit For

            End If

        Next

    End With

son:

    sayac = 0

    Set cboSehir = Nothing

End Sub

offici komple kaldırdım ve 2016 yükledim
aynı hatayı verdi ben bu işten hiç bir şey anlamadım

(02/03/2021, 21:30)feraz yazdı: cboSehir.Value = sehirAd

.value yeeine .Text yazılınca konu çözülmüştür.

hocam IlceAktar yordamındaki If cboSehir ="" Then GoTo son satırı da aşağıdaki gibi değişmeli bence; kaydet dedikten sonra açılır kutular boşaldığında bende hata verdi

    If Len(cboSehir & "") < 1 Then GoTo son

(03/03/2021, 11:29)berduş yazdı: hocam IlceAktar yordamındaki If cboSehir ="" Then GoTo son satırı da aşağıdaki gibi değişmeli bence; kaydet dedikten sonra açılır kutular boşaldığında bende hata verdi

    If Len(cboSehir & "") < 1 Then GoTo son

Doğrudur abey.Dün bağlandığımda .text yapınca Sayfaya aktarma kodundaki comboyu temizleme kundaki .value yi .text yapmıştım hata vermemişti.
Bende neden hepsi .value olsa bile hatasız çalışıyor o da ilginç bir durum zaten normali böyleydi.Ve diğer combolar .value onlarda hata vermiyor dizlerinkinde beşki combo ayarında sorun vardır.