Autofill ile ilgili hata

[emk35]

Selamlar,
Excell'i sitemiz sayesinde öğreniyorum. Emeği geçen herkese Teşekkürlerimi sunuyorum.

Sn. Korhan AYHAN'ın userform oluşturma derslerinden birini kendime uyarlayarak oluşturdum. gayet faydalı ve başarılı oldu. Kendisine teşekkürlerimi sunuyorum. Sadece otofill kısmında "Range sınıfının autofill yöntemi başarısız" diye mesaj alıyorum. Kodun otofill kısmı şu şekilde:

' - Kayıt silme işleminde sıra numarası düzeni bozulacağı için verileri sıralayarak yeniden sıra numarası veriyoruz.
Range("A2:I65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
If Range("b2") > 0 Then
Range("a2") = 1
End If
Range("A2").AutoFill Destination:=Range("A2" & Range("B65536").End(3).Row), Type:=xlFillSeries



Bu kodun son satırında, sayfadaki tek satırı silince hata veriyor.
İlgilerinize teşekkürler...

 

[hamitcan]

Dosyanızı incelemek gerekiyor.

 

[emk35]

Dosyanızı incelemek gerekiyor.

Musait oldugum ilk anda yükleyeceğim.. Daha once de soylediğim gibi kodu Sn. Korhan AYHAN'ın sitedeki userform olusturma ile ilgili bir çalışmasından aldım. Ama şu an link veremiyorum.

 

[emk35]

dosyayı ekledim. dosyada açıklama da mevcut.

İlgilenen herkese şimdiden teşekkürler...

 

[hamitcan]

İlgili satırı aşağıdaki ile değiştirin.

Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(3).Row), Type:=xlFillSeries

 

[emk35]

Sn. Hamitcan, ilginiz için teşekkürler.

Zaten kodun aslı sizin yazdığınız gibi idi. "A2:A" bölümüdeki A yı ben; sayfanın a1 hücresinde bulunan "S. NO" yazısını da sildiği için kaldırmıştim.

Yani bu haliyle a1 hücresindeki girdiyi silmesini nasıl engelleyebiliriz?

 

[emk35]

Ve ayrıca formun kayıt sil bölümünde bulunan hücre biçimlendirme ile de ilgilenirseniz sevinirim...

 

[emk35]

Sn. Hamitcan,
kodu sizin yazdığınız gibi düzelttim. ama bu sefer de formumuzda iki girdi bulunduğu zaman en üstte olanı yani sayfamızda 1. satırda bulunan satırı sildiğimizde yine kodda aynı satırda hata alıyoruz.

ben mi bir yerde hata yaptım bilmiyorum. ilginize tekraren teşekkürler...

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

 

[emk35]

Sn. Ayhan ilginize teşekkürler..

formda 1 den fazla girdi bulunduğu zaman en üstteki yani sayfadaki 1 numaralı satırı sildiğimizde yine hata mevcut.

ayrıca otomatik s. no verme işlemi de silme işleminden sonra düzenli çalışmıyor.

 

[Korhan Ayhan]

Üstteki mesajımdaki dosyayı güncelledim. Tekrar deneyiniz.

 

[emk35]

Sn. Ayhan ilginize teşekkürler..

formda 1 den fazla girdi bulunduğu zaman en üstteki yani sayfadaki 1 numaralı satırı sildiğimizde yine hata mevcut.

 

[emk35]

sadece 2 girdi mevcutken en üsttekini silince hata veriyor. 3 girdi olduğunda en üstteki girdiyi silebiliyoruz.

 

[Korhan Ayhan]

Tekrar deneyiniz.

 

[emk35]

Sn. Ayhan ,
ilginize teşekkürler. işlem tamamdır. emeğinize sağlık.

insan excelle ilgilendikçe bir derya olduğunu anlıyor. ama sıfırdan başlayarak 1.5, 2 ay gibi kısa sürede zamanım el verdiğince sitemiz sayesinde gelişme kaydettim Sizlerin sayesinde..

teşekkürler excel.web.tr