Hata uyarısı

[İsmail Küçükşengün]

Merhabalar;

Çalışma kitabımdaki userform ile, listedeki kayıtları arşive göndermek için
ilgili butona bastığımda, " '1004' Range sınıfının ClearConteants yöntemi başarısız" diye uyarı çıkıp, bu sefer liste sayfasıyla ilgisi olmayan giriş sayfasındaki:
Private Sub ComboBox1_Click()
satir = ComboBox1.ListIndex + 1
Set s1 = Sheets("liste")
Set s2 = Sheets("giriş")
s2.Range("B1:b500").ClearContents
s2.Range("C1:b500").ClearContents
s2.Range("D1:b500").ClearContents
'sut = s1.Cells(satir, 256).End(xlToLeft).Column
For X = 1 To 50 'sut
s2.Cells(X + 2, 2) = s1.Cells(satir, X) 'X=1 DE giriş(3,2)yani (3,B)=liste(satir,1)
s2.Cells(X + 2, 3) = s1.Cells(satir, X + 50) 'X=1 DE giriş(3,3)yani (3,C)=liste(satir,51)
s2.Cells(X + 2, 4) = s1.Cells(satir, X + 100) 'X=1 DE giriş(3,4)yani (3,D)=liste(satir,101)
Next
End Sub
çıkıyor. Hata olarak ta altı çizgili satırı gösteriyor.
Fakat aktarmayı da yapıyor.
Düzeltmek için ne yapılmalıdır.?
Şimdiden Teşekkürler.

 

[Kemal Demir]

[vb:1:6274841ef2]Yukarıdaki ibareye Böle Denermisiniz.

Private Sub ComboBox1_Click()
satir = ComboBox1.ListIndex + 1
Set s1 = Sheets("liste")
Set s2 = Sheets("giriş")
s2.Range("B1:d500").ClearContents
'sut = s1.Cells(satir, 256).End(xlToLeft).Column
For X = 1 To 50 'sut
s2.Cells(X + 2, 2) = s1.Cells(satir, X) 'X=1 DE giriş(3,2)yani (3,B)=liste(satir,1)
s2.Cells(X + 2, 3) = s1.Cells(satir, X + 50) 'X=1 DE giriş(3,3)yani (3,C)=liste(satir,51)
s2.Cells(X + 2, 4) = s1.Cells(satir, X + 100) 'X=1 DE giriş(3,4)yani (3,D)=liste(satir,101)
Next
End Sub [/vb:1:6274841ef2]

Aslında Dosyanızı ataçlasaydınız İçeriğine bakarak cevaplamak daha sağlıklı olabilir diye dusundum.Umarım Sorun Budur Diğe Düşünüyorum

 

[İsmail Küçükşengün]

Sayın Rakkas;
İlgine teşekkür. Dosya ektedir.

 

[Kemal Demir]

Sn.kucuksengun,

Bu konuda Size Sağlıklı Bir Cevap veremediğim için Üzgünüm.

 

[Merhum İdris SERDAR]

s2.Range("D1:b500").ClearContents

s2.Range("C1:b500").ClearContents şeklinde deneyin. Yani D1'i C1 yapın.

Böyle yapınca da bir üstündeki satırın aynısı oluyor. Bu nedenle en iyisi s2.Range("D1:b500").ClearContents satırını silin.