Sıfır Bakiyeli Satırları Silme

1 2
12/11/2022, 14:44

ercansahiner61

KOLAY GELSİN,
EKTE GÖNDERDİĞİM TABLODA SIFIR BAKİYELİ SATIRLARI SİLMEK İSTİYORUM, BUNU "BUL DEĞİŞTİR" YÖNTEMİ İLE YAPTIM VE BUNU MAKROYA ATADIM OLDU ANCAK MAKRO HER ÇALIŞTIRILDIĞINDA SIFIR DEĞERİ İÇERMEYEN EN ÜSTTEKİ SATIRI SİLİYOR. UNU NASIL ÇÖZEBİLİRİM
12/11/2022, 17:55

ercansahiner61

Koşullu satır silmek mümkün mü. Hesap numarası girildiğinde tablodaki koşula uyan satırları silmek gibi
12/11/2022, 22:23

atoykan

Evet mümkün. Örnek kod:
Sub DeleteRowsWithSpecificText()
ActiveCell.AutoFilter Field:=2, Criteria1:="Mid-West"
ActiveSheet.AutoFilter.Range.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).Delete
End Sub
13/11/2022, 00:30

ercansahiner61

[quote='atoykan' pid='188401' dateline='1668281037']
Sub DeleteRowsWithSpecificText()
ActiveCell.AutoFilter Field:=2Criteria1:="Mid-West"
ActiveSheet.AutoFilter.Range.Offset(10).Rows.SpecialCells(xlCellTypeVisible).Delete
End Sub 

[
Teşekkürler ancak bu kod verilerin tamamını siliyor yada filtreleyip gizliyor benim yapmak istediğim SIFIR BAKİYELİ satırların Silinmesi işlemi,
YADA örneğin Hesap numarası yazmam koşulu ile sadece belirttiğim hesap numaralarının bulunduğu satırlar silinsin.
13/11/2022, 00:38

atoykan

Bu kod hangi parçası ile neyi gizliyor? Allah aşkına yahu bu bizim işimiz profesyoneli olduğumuz işi de bize öğretmeye kalkmayın yahu. Kodda filtreleme var string olarak "Mid-west" içeren satırları filtrele arkasından da bu satırları sil diyor. Sıfır bakiyeye göre uyarlayın kodunuzu.
13/11/2022, 11:45

ercansahiner61

(13/11/2022, 00:38)atoykan yazdı: Bu kod hangi parçası ile neyi gizliyor? Allah aşkına yahu bu bizim işimiz profesyoneli olduğumuz işi de bize öğretmeye kalkmayın yahu. Kodda filtreleme var string olarak "Mid-west" içeren satırları filtrele arkasından da bu satırları sil diyor. Sıfır bakiyeye göre uyarlayın kodunuzu.

atoykan bey haklı olabiilirsiniz, işinizinde uzmanı olabilirsiniz. ancak ben uyguladığımda olmuyor, sizden ricam ekte gönderdiğim çalışma üzerinde yapabilirnseniz memnun olurum.
1 2