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

1 2 3 4 5 6 7
06/03/2021, 15:20

berduş

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:36

Oğuz Türkyılmaz

(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.
06/03/2021, 15:48

berduş

text yapınca ilçe adları listelenmiyor
ili tekrar seçmeniz gerekiyor
06/03/2021, 16:32

feraz

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, 16:55

Oğuz Türkyılmaz

(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ç.
06/03/2021, 17:09

Oğuz Türkyılmaz

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.
1 2 3 4 5 6 7