range sınıfı clearcontents hatası

[mbldn]

arkadaşlar merhaba;
bu hata ve düzeltilmesi konusunda yardımcı olabilir misiniz?
neden kaynaklanır, nerelere bakmam lazım, nasıl düzeltmem gerekir. :S
teşekkürller

 

[Vedat Özer]

Selamlar,


Dosyanızdaki hatanın nerden kaynaklandıgı bilmemiz için örnek olarak dosya eklemeniz,
konunun daha iyi çözümlenmesi ile sonuçlanır,

 

[mbldn]

örnek olarak aşağıdaki kod dizininde hata alıyorum
Private Sub ComboBox1_click()
Set s1 = Sheets("Ürün Listesi")
Set s2 = Sheets("urunveri")
s1.Range("A6:Aj65536").ClearContents
s1.Range("d6:d65536").ClearContents
For sats = 2 To s2.Cells(65536, "A").End(xlUp).Row
If s2.Cells(sats, "a") Like ComboBox1 Then
s = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(s, "A") = s2.Cells(sats, "a")
s1.Cells(s, "B") = s2.Cells(sats, "b")
s1.Cells(s, "C") = s2.Cells(sats, "c")
s1.Cells(s, "E") = s2.Cells(sats, "E")
s1.Cells(s, "F") = s2.Cells(sats, "F")
s1.Cells(s, "G") = s2.Cells(sats, "G")
s1.Cells(s, "H") = s2.Cells(sats, "H")
s1.Cells(s, "I") = s2.Cells(sats, "I")
s1.Cells(s, "J") = s2.Cells(sats, "J")
s1.Cells(s, "K") = s2.Cells(sats, "K")
s1.Cells(s, "L") = s2.Cells(sats, "L")
s1.Cells(s, "M") = s2.Cells(sats, "M")
s1.Cells(s, "N") = s2.Cells(sats, "N")
s1.Cells(s, "O") = s2.Cells(sats, "O")
s1.Cells(s, "P") = s2.Cells(sats, "AJ")
End If
Next
End Sub


ve burada hata alıyorum

Private Sub ComboBox2_Change()
Set s2 = Sheets("urunveri")
Sheets("urunveri").Range("aj6:aj250").ClearContents
If ComboBox2.Value = Sheets("urunveri").Range("p4") Then
Sheets("urunveri").Range("aj6:aj250").Value = Sheets("urunveri").Range("p6250").Value
Else

 

[truvali27m]

örnek olarak aşağıdaki kod dizininde hata alıyorum
Private Sub ComboBox1_click()
Set s1 = Sheets("Ürün Listesi")
Set s2 = Sheets("urunveri")
s1.Range("A6:Aj65536").ClearContents
s1.Range("d6:d65536").ClearContents
For sats = 2 To s2.Cells(65536, "A").End(xlUp).Row
If s2.Cells(sats, "a") Like ComboBox1 Then
s = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(s, "A") = s2.Cells(sats, "a")
s1.Cells(s, "B") = s2.Cells(sats, "b")
s1.Cells(s, "C") = s2.Cells(sats, "c")
s1.Cells(s, "E") = s2.Cells(sats, "E")
s1.Cells(s, "F") = s2.Cells(sats, "F")
s1.Cells(s, "G") = s2.Cells(sats, "G")
s1.Cells(s, "H") = s2.Cells(sats, "H")
s1.Cells(s, "I") = s2.Cells(sats, "I")
s1.Cells(s, "J") = s2.Cells(sats, "J")
s1.Cells(s, "K") = s2.Cells(sats, "K")
s1.Cells(s, "L") = s2.Cells(sats, "L")
s1.Cells(s, "M") = s2.Cells(sats, "M")
s1.Cells(s, "N") = s2.Cells(sats, "N")
s1.Cells(s, "O") = s2.Cells(sats, "O")
s1.Cells(s, "P") = s2.Cells(sats, "AJ")
End If
Next
End Sub


ve burada hata alıyorum

Private Sub ComboBox2_Change()
Set s2 = Sheets("urunveri")
Sheets("urunveri").Range("aj6:aj250").ClearContents
If ComboBox2.Value = Sheets("urunveri").Range("p4") Then
Sheets("urunveri").Range("aj6:aj250").Value = Sheets("urunveri").Range("p6250").Value
Else

Merhaba,bence ilk önce clearcontents kullanmayın önce aralığı seçin sonra clearcontents komutunu verin.

Private Sub ComboBox1_click()
Set s1 = Sheets("Ürün Listesi")
Set s2 = Sheets("urunveri")
[COLOR="Red"]s1.Range("A6:Aj65536;d6:d65536").Select
Selection.ClearContents[/COLOR]

For sats = 2 To s2.Cells(65536, "A").End(xlUp).Row
If s2.Cells(sats, "a") Like ComboBox1 Then
s = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(s, "A") = s2.Cells(sats, "a")
s1.Cells(s, "B") = s2.Cells(sats, "b")
s1.Cells(s, "C") = s2.Cells(sats, "c")
s1.Cells(s, "E") = s2.Cells(sats, "E")
s1.Cells(s, "F") = s2.Cells(sats, "F")
s1.Cells(s, "G") = s2.Cells(sats, "G")
s1.Cells(s, "H") = s2.Cells(sats, "H")
s1.Cells(s, "I") = s2.Cells(sats, "I")
s1.Cells(s, "J") = s2.Cells(sats, "J")
s1.Cells(s, "K") = s2.Cells(sats, "K")
s1.Cells(s, "L") = s2.Cells(sats, "L")
s1.Cells(s, "M") = s2.Cells(sats, "M")
s1.Cells(s, "N") = s2.Cells(sats, "N")
s1.Cells(s, "O") = s2.Cells(sats, "O")
s1.Cells(s, "P") = s2.Cells(sats, "AJ")
End If
Next
End Sub

 

[mbldn]

hocam bu şekilde de denedim ama hata aldım :S
dosya öyle ki kapatıp açıyorum hata veriyor
kapatıp açıyorum hata yok
hatayı bazen veriyor anlamadım

 

[truvali27m]

hocam bu şekilde de denedim ama hata aldım :S
dosya öyle ki kapatıp açıyorum hata veriyor
kapatıp açıyorum hata yok
hatayı bazen veriyor anlamadım

Farkındaysanız eğer örnek dosya yüklemediğiniz için uzmanlardan bir cevap gelmemiş size ;-),size tavsiyem bundan sonra soru sorarken sorunuzu da örnek dosyayla desteklemeniz.Hata veren satırı zaten belirtir VBE penceresinde ona göre çözüm bulunur.