İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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.
Ç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.