EXCELDE satırları silme makrosu

[toprakd]

Excelde satırları silme konu kullandım kod ;

Sub auto_close()
Range("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

tam olarak bu kod; boş olan satırlarımı sildi aynı zamanda yarısı boş yarısı dolu olan satırlarımı da silmedi tamda istediğim gibi, ama excelin içindeki fiş toplamı ( excel tarafından otomatik fiyatların toplayan işlemler ) de silindi, nasıl toplamları silmeden satırları silebilirim

 

[Orion1]

A1:A10 arasını seçer.

Range("A1:A10").Select

 

[toprakd]

hocam bu konularda çok iyi değilim bu kodun üstüne nasıl yazabilirim acaba biraz açarmısın ?

 

[Orion1]

hocam bu konularda çok iyi değilim bu kodun üstüne nasıl yazabilirim acaba biraz açarmısın ?

Buyurun.

Sub auto_close()
[B][COLOR="Red"]Range("A1:A10").Select[/COLOR][/B]
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

 

[toprakd]

hocam run time error 2004
method range of object _global failed diye bi hata alıyorum

 

[Orion1]

hocam run time error 2004
method range of object _global failed diye bi hata alıyorum

4 nolu mesajı düzelttim.
oradan tekrar kopyalayınız.

 

[toprakd]

hocam şuanlık çok güzel görünüyor çok teşekkür ederim

 

[Orion1]

hocam şuanlık çok güzel görünüyor çok teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[toprakd]

hocam

Sub auto_close()
Range("A1:A10459").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

yapıyorum çünkü bu kadar satır var ama yinede excelin fiş toplamını götürüyor

 

[Orion1]

hocam

Sub auto_close()
Range("A1:A10459").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub

yapıyorum çünkü bu kadar satır var ama yinede excelin fiş toplamını götürüyor

Toplama satırı kaçıncı satırda?

 

[toprakd]

her arada 500 e yakın toplama satırı var hocam

 

[toprakd]

hocam aralarında 500 e yakın satırda

 

[Orion1]

her arada 500 e yakın toplama satırı var hocam

Kaç arada var.
ilk ara kaçıncı satırda,2nci ara kaçıncı satırda,3ncü ara kaçıncı satırda?

 

[toprakd]

2 12 21 30 47 56 63 64 65 66 gibi gidiyo

 

[Orion1]

2 12 21 30 47 56 63 64 65 66 gibi gidiyo

örnek dosyanızı link verirmisiniz?

 

[toprakd]

http://s5.dosya.tc/server2/hmho29/agustos__1_d.xls.html
hocam bunun gibi 12 tane daha var dahada olucak ileride eğer çözerseniz çok yararlı olucak işimde

 

[Orion1]

bu likte virüs var diyor,antivirüs programım.açmıyor.

 

[toprakd]

hocam bitdefender 2016 total kullanıyorum virüs olma ihtimali yok belki bi haka ile karşılaştı
başka bi siteye daha yükledimordan bakın http://dosya.co/023aeikedf8v/agustos__1_d.xls.html

 

[Orion1]

Dosyanız Aşağıdaki linktedir.

DOSYAYI İNDİR

Sub sil59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sonsat To 5 Step -1
    If WorksheetFunction.CountA(Range("A" & i & ":E" & i)) = 0 Then
        Range("A" & i & ":E" & i).Delete xlUp
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Silme işlemi tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub