dosyam autofill hatası veriyor

[nihattt]

Arkadaşlar ekteki programı bu siteden edindiğim öğretici uygulamalar doğrultusunda hazırladım. (Korhan Ayhan'dı örnek aldığım uygulamayı yapan hocamızın adı).

Herşeyiyle dört dört'lük oldu olmasına ama nedense;
Burdan sonrasını örnek vererek söylüyorum. Ekteki dosyada 4 adet kayıt var. Ben kayıtları siliyorum fakat 2 kayıt kaldıktan sonra. 2. kaydıda sildiğim anda autofill hata mesajı veriyor. 2 kayıt kalmayıncaya kadar sorun yok ama 2. kayıdı da silersem sorun veriyor. Nerde değişiklik yapmam gerekiyor kodlarda acaba.

 

[hamitcan]

Dosyanızın VBA şifresini açarsanız belki birileri yardımcı olabilir.

 

[nihattt]

çok özür dilerim

çok pardon unutmuşum. söylediğiniz için tşk ederim. şifreyi kaldırdım incelerseniz sevinirim.

 

[halit3]

evet dosyana sabah bakmıştım şifreli olduğu için boş geçtim


bu kodda değişiklik ve ilave yapıldı

'------------------------------------------------------------------------------------------------
If Range("B65536").End(3).Row > 2 Then
Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(3).Row), Type:=xlFillSeries
End If
'------------------------------------------------------------------------------------------------

 

[nihattt]

son kaydıda silince 1 numara boş atıyor. Bu haliylede güzel ama bunada bi çözüm getirebilse dahada güzel olur yani son kaydı silince listbox boş olsa. Halit bey çok tşk ederim.

 

[Skorpiyon]

Sayın nihattt,

Kodlarınıza aşağıdaki kırmızı satırlar eklenerek revize edilmiştir.
Son kayıt silindiğinde Listbox'ta 1 rakamıda görünmemektedir.



Range("A2:U65536").Sort Key1:=Range("A2"), Order1:=xlAscending
If Range("B2") = "" Then GoTo 10
Range("A2") = 1
10
'------------------------------------------------------------------------------------------------
If Range("B65536").End(3).Row > 2 Then
Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(3).Row), Type:=xlFillSeries
End If
'------------------------------------------------------------------------------------------------

 

[nihattt]

hocam valla şimdi tamamen kusursuz gibi gözüküyor sayenizde. bayramınızı da kutlar tekrar tşk ederim.