Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında

burada da value yerine text yapmayı deneyin

---

bu durumda hatalı olur sadece metin değişir ilişkili 1. sütun değişmediğinden sorun çıkar

(06/03/2021, 15:20)berduş yazdı: burada da value yerine text yapmayı deneyin

---

bu durumda hatalı olur sadece metin değişir ilişkili 1. sütun değişmediğinden sorun çıkar

Sorun çıkmadı Berduş Hocam Düzgün çalışıyor şu anda.

text yapınca ilçe adları listelenmiyor
ili tekrar seçmeniz gerekiyor

Alttaki gibi kod değiştirildi.ve IlceAktar 3 '3 sebebi C sütununda aramak icin olarak değiştirildi IlceAktar yerine arama kodunda.

Bu sayede arama yapıncada il secince ilçeler gelir.

Private Sub ComboBox_Sehir_Change()



IlceAktar 2 '2 sebebi B sütununda aramak icin



End Sub

Sub IlceAktar(kacinci As Byte)



    Dim x As Integer, bul As Range, cboSehir As MSForms.ComboBox, sehirAd As String, alan As String



    If kacinci = 2 Then alan = "B:B"

    If kacinci = 3 Then alan = "C:C"



    Set cboSehir = Me.ComboBox_Sehir

    Me.ComboBox_Ilce.Clear

    If cboSehir.Text = "" Then GoTo son

    With Sheets("TANIMLAR")

        Set bul = .Range(alan).Find(cboSehir.Text, , , 1)

        If Not bul Is Nothing Then

            sehirAd = .Cells(bul.Row, 3).Value

            cboSehir.Text = sehirAd

            

            

            If kacinci = 2 Then 'B sütunda aramal icin

                For x = 2 To .Range("A1000").End(xlUp).Row

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

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

                Next

            End If

            

            If kacinci = 3 Then 'C sütunda aramal icin

                For x = 2 To .Range("A1000").End(xlUp).Row

                    If .Range("A" & x).Value = bul.Offset(0, -1).Value Then _

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

                Next

            End If

            

        End If

    End With

son:

    Set bul = Nothing: Set cboSehir = Nothing

    

End Sub

(06/03/2021, 15:48)berduş yazdı: text yapınca ilçe adları listelenmiyor
ili tekrar seçmeniz gerekiyor

Berduş  Hocam bende çalışıyor. Yani ilk aramada çalışyor formu kapatmadan tekrar arama yapınca il gelmiyor. İlginç.

Feraz Hocam yani comboda İl Seçince İlçenin gelmesi olayının bu kadar sorun yaratacağını bilseydim inanın hiç bulaşmazdım. Manuel yazsınlar der geçerdim. Bu nedir ya kaç satır kod yazıldı şu iş için. Çok teşekkür ederim. Şu dosyada bakalım başıma daha neler gelecek. Hayırlısı artık. Konuyu taşıyabilirsiniz. Tekrar teşekkürler.