Kod son iki kayıtta hata veriyor

[Mustafa MUTLU]

B sütununu alfabetik sıraya alıyor.
3 ve daha fazla veri varsa Sorunsuz çalışıyor
Ancak verileri silerken 2 veri kalınca hata veriyor.

Range("A2:B65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & Range("B65536").End(3).Row), Type:=xlFillSeries

Hata : AutoFill yöntemi başarısız

Teşekkürler...

 

[halit3]

kodun başına bunu eklermisiniz.

If Range("A65536").End(3).Row <= 2 Then: Exit Sub

 

[Mustafa MUTLU]

kodun başına bunu eklermisiniz.

2. Kaydı sildiğimde
2. kayıt siliniyor 1. kayıt silinmemiş ama listbox boş görünüyor.

 

[halit3]

2. Kaydı sildiğimde
2. kayıt siliniyor 1. kayıt silinmemiş ama listbox boş görünüyor.

iki nolu mesajdaki kodu denedinizmi.?

If Range("A65536").End(3).Row <= [COLOR=red]2 [/COLOR]Then: Exit Sub

burada kırmızı renkli iki sayısını değiştirerek deneyiniz.
üç yapın dört yapın deneyiniz.

 

[Mustafa MUTLU]

If Range("A65536").End(3).Row <= 2 Then: Exit Sub

2 yerine 2 yazdığımda kalan 1 kayıt listboxta görünmüyor. => 2. Kayıt Siliniyor (Sorun Yok)
2 yerine 3 yazdığımda kalan 2 kayıt listboxta görünmüyor. => 3. Kayıt Siliniyor (Sorun Yok)
2 yerine 4 yazdığımda kalan 3 kayıt listboxta görünmüyor. => 4. Kayıt Siliniyor (Sorun Yok)


Kod normal çalışıyor,
Ancak sil tuşundan sonra kalan kayıtları listbox a yüklemiyor.

Kayıt kodda yazılı rakamdan fazla olunca sorun olmuyor.

 

[halit3]

If Range("A65536").End(3).Row <= 2 Then: Exit Sub

2 yerine 2 yazdığımda kalan 1 kayıt listboxta görünmüyor. => 2. Kayıt Siliniyor (Sorun Yok)
2 yerine 3 yazdığımda kalan 2 kayıt listboxta görünmüyor. => 3. Kayıt Siliniyor (Sorun Yok)
2 yerine 4 yazdığımda kalan 3 kayıt listboxta görünmüyor. => 4. Kayıt Siliniyor (Sorun Yok)


Kod normal çalışıyor,
Ancak sil tuşundan sonra kalan kayıtları listbox a yüklemiyor.

Kayıt kodda yazılı rakamdan fazla olunca sorun olmuyor.

örnek dosyanı ekle bir bakalım kod üzerinden bir sonuca varamıyacağız herhalde

 

[Mustafa MUTLU]

Ekledim İlgine teşekkür ediyorum..

 

[halit3]

Ekledim İlgine teşekkür ediyorum..

bu bölümü

    If Range("A65536").End(3).Row <= 2 Then: Exit Sub
    Range("A2:C65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("A2") = 1
    Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries

aşağıdaki ile değiştiriniz.

  If Range("A65536").End(3).Row > 2 Then
    Range("A2:C65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("A2") = 1
    Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
    End If

 

[Mustafa MUTLU]

Teşekkür ederim.
Sorunum çözüldü...

 

[halit3]

İyi çalışmalar