sıfırlanan hesapları silme

[pinar6975]

merhaba;

işyerimizde derece muhasebe programı kullanıyoruz..açık hes.ları bu programda ben tutuyorum.yetkililere rapor hazırlamam gerekiyor..yılbaşından kasım sonuna kadar bir liste alıyorum.bir pazarlamacı için yaklaşık 25.000 satırlık bir liste geliyor.bu listenin son sutununda açık kısım diye bir bölüm var.hem sıfırlanan senetler hem henüz tahsil edilmeyen senetler aynı listede.sıfırlanan hesapları silip kalanları vermem gerekiyor.tek tek silmek çok zamanımı aldığı için bunun kısa yoldan nasıl silinmesi gerektiğini öğrenmek istiyorum yardımcı olursanız sevinirim..

 

[Necdet]

Merhaba,

Örnek, basit bir tablo ile sorunuzu desteklerseniz daha çabuk ve hızlı yanıt alırsınız.

 

[pinar6975]

örnek tabloyu ekledim teşekkür ederim

 

[Necdet]

Merhaba,

I sütununda mavi renkli olan ve değeri Sıfır olan satırlar mı silinecek?

 

[pinar6975]

evet I sütunuda bulunan sıfırlanan hesaplar tek satır halinde silinmesi gerekiyor.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilir misiniz?.

Public Sub Sil()
Application.ScreenUpdating = False
For i = [I65536].End(3).Row To 9 Step -1
    If Cells(i, "I") = 0 Then Rows(i).Delete
Next i
End Sub

 

[pinar6975]

fakat benim excelim türkçe

 

[Necdet]

Merhaba Pınar Hanım,

Ben makro önermiştim. Ekteki dosyayı inceleyiniz.
Makro çalıştıktan sonra arada kalan boş satırlara dokunmadım, onlarda silinmesi gerekirse silinebilir.

 

[pinar6975]

özürdilerim ama anlayamadım ben..gönderdiğiniz ekte sıfırlanan hesaplar silinmemiş gözülüyor..ben bir formül istiyorum bu formülü uyguladığımda sıfırlanan hes.silinip sadece bakiye verenlerin kalması gerekiyor tabii mümkünse.
(10.satırdan 35. satıra kadar silinip 36. satır kalmalı..)

 

[Necdet]

Merhaba,

Sanırım sorununuzu anladım, dosyayı açınca bir buton var, ona tıklayınız.

Fonksiyonlarla satır silme işlemi yapılmıyor. Ama dolaylı ve manuel olarak yapılabilir.

 

[pinar6975]

ben butonu bulamadım yine
benden hergün istenecek bir rapor.ı sütunu baz alınarak bakiyesi sıfır olanlar ve boş olan satır silinmeli..en kestirme nasıl yapabilirim acaba?

 

[Necdet]

Ekteki dosyaya bakınız.

 

[pinar6975]

ilk gönderdiğiniz zip dosyasını tekrar açtım tarif ettiğiniz gibi bir buton yok..open office dosyası olarak açılıyor zaten ilk gönderdikleriniz.boş bir kutucuk var ama tıkladığımda hiç bir işlev yapmıyor..
yordum sizi kusura bakmayın

 

[Necdet]

Rica ederim Sayın pinar6975,

Sanırım Open Office de makrolar çalışmıyormuş duyduğum kadarıyla.

Fonksiyonla birşeyler yaptım. İnceler misiniz? K sütununa silinecek ve silinmeyecek diye bir fonksiyon yazdım.

K sütununu Silinecekleri süzdürerek toptan silebilirsiniz. En pratik yol olarak bu aklıma geldi.

K10:

=EĞER(YADA(I10="";I10=0);"Sil";"Silme")
=IF(OR(I10="";I10=0);"Sil";"Silme")

 

[pinar6975]

bu çok karışık olduişin içinden hiç çıkamam..benim pcde mıcrosoft ofisde yüklü open ofisle en başta verdiğiniz kodları uygulayayım en iyisi makro yapmayımı öğrenmeliyim şimdide:S

 

[Necdet]

Sayın pinar6975 çiğnemeden lokma bile yutulmazmış