Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
37
3665

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

#37
Eğer sıralamayı resimdeki yapsaydınız bu kadar sorun olmazdı.Yinede değiştirdim denersiniz olursa böyle kullanın abey.
Kodlarda alttaki gibi oldu.Bu sayede şehirler Comboboxunun sütun sayısı 4 yerine 1 olmuş oldu.Zeten mantıklısıda bu normalde.
Kayıt ekleme kodunda deneyemedim.
Kısaca Şehir adı başta olsa herşey kolay olurdu diğer sıralamalar önemli değil.

[Resim: do.php?img=10783]

Sub IlleriAktar()

Dim x As Byte
x = Sheets("TANIMLAR").Range("A100").End(xlUp).Row
ComboBox_Sehir.ColumnCount = 1
ComboBox_Sehir.ColumnWidths = "120"
ComboBox_Sehir.RowSource = "TANIMLAR!A2:A" & x

End Sub

Sub IlceAktar()
    Dim x As Integer, bul As Range, cboSehir As MSForms.ComboBox, sehirAd As String
    Dim shTanimlar As Worksheet, son As Integer
    Dim aranan As String
    Set shTanimlar = ThisWorkbook.Sheets("TANIMLAR")
    Dim dic As Object: Set dic = CreateObject("Scripting.dictionary")
   
    With shTanimlar
        son = .Range("B" & Rows.Count).End(xlUp).Row
        For x = 2 To son
            aranan = CStr(.Cells(x, 1).Value)
            If Not dic.exists(aranan) Then
                dic.Add aranan, .Cells(x, 4).Value
            End If
        Next
    End With
   
    Set cboSehir = Me.ComboBox_Sehir
    Me.ComboBox_Ilce.Clear
    If cboSehir.Text = "" Then GoTo son
    With shTanimlar
        Set bul = .Range("a:a").Find(cboSehir.Text, , , 1)
        If Not bul Is Nothing Then
                For x = 2 To son
                    If Val(.Range("C" & x).Value) = Val(dic(CStr(bul.Value))) Then _
                            Me.ComboBox_Ilce.AddItem (.Range("B" & x).Value)
                Next
            End If
    End With
son:
    Set bul = Nothing: Set cboSehir = Nothing: Set dic = Nothing: Set shTanimlar = Nothing
   
End Sub
.rar WİNPERAX.rar (Dosya Boyutu: 92,85 KB | İndirme Sayısı: 3)
Cevapla
#38
(06/03/2021, 17:09)Oğuz Türkyılmaz yazdı: 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.
Rica ederiz,kolay gelsin.
Konu taşınmıştır.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task