+- 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ığı: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında (/konu-range-sinifinin-delete-yontemi-basarisiz-hatasi-hakkinda.html)
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 06/03/2021
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
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 06/03/2021
(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.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - berduş - 06/03/2021
text yapınca ilçe adları listelenmiyor
ili tekrar seçmeniz gerekiyor
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - feraz - 06/03/2021
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 SubSub 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 SubRE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 06/03/2021
(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ç.
RE: Range Sınıfının Delete Yöntemi Başarısız Hatası Hakkında - Oğuz Türkyılmaz - 06/03/2021
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.