Girilecek Koşula Göre Tüm Satırı Silme - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html) +--- Konu Başlığı: Girilecek Koşula Göre Tüm Satırı Silme (/konu-girilecek-kosula-gore-tum-satiri-silme.html) |
Girilecek Koşula Göre Tüm Satırı Silme - ercansahiner61 - 28/11/2022 öncelikle daha öncede buna benzer işlemlerde yardımcı oldunuz teşekkür ederim. bu kez tablomda değişiklik oldu alt taloya verileri üst kısımdan girerek yapmaya çalıştım. Koşul olarak gireceğim "HESAP NUMARASI" na göre hesabın bulunduğu tüm satırları sildirmek istiyorum. HESAP NO koşulunu girdiğimde sorun çıkarmıyor seçilen hesaba ait satırları siliyor, ancak hesap numarası girilmeden herhangi bir şekilde (ESC-CANCEL-X) ile makrodan çıkıldığında tablo üst düzenini bozuyor ve üst kısmındaki birkaç satırı ve verileri siliyor ve bozuyor, bununla ilgili çalışmayı ekte gönderdim, yardımlarınız için şimdiden teşekkür ediyorum. RE: Girilecek Koşula Göre Tüm Satırı Silme - mozuer - 13/12/2023 Dener misiniz...
Sub Hesapnoilevadtelihesapsil()Dim lr As Integer Dim Message, Title, Default, MyValue Dim blnExt As Boolean blnExt = False Message = "SİLİNMESİNİ İSTEDİĞİNİZ HESAP NO GİRİNİZ :" Title = "HESAP NO SİLME" ' Set title. Default = "xxx" ' Set default. MyValue = InputBox(Message, Title, Default) If StrPtr(MyValue) = 0 Then blnExt = True ElseIf (MyValue = Default) Then blnExt = True End If If blnExt = True Then Exit Sub lr = Cells(Rows.Count, 3).End(xlUp).Row For i = lr To 10 Step -1 If Cells(i, 3) = MyValue Then Rows(i & ":" & i).EntireRow.Delete Next i Range("B2").Select End Sub |