[Yardım]  Şartlı satır silme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Şartlı satır silme

İleti#1)  batuk9 » 02 May 2018 16:25

Merhaba arkadaşlar. Ekli dosya da L sütununda A dan Z ye sıralama yapıp alt alta aynı numarayla başlayan ve borç alacak toplamı "yani bakiye" 0 olan satırları silen bir kod gerekli. Şu da olabilir belki O sütununda alt alta aynı sayı varsa(birisi eksi bakiyeli) satırı sil şeklinde de olabilir. Yardımcı olabilir misiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#2)  Enes Recep BAĞ » 03 May 2018 07:26

Kod: Tümünü seç
Sub evn()
    Dim i%
    Range("L1").Select
    son 
= Range("A65536").End(3).Row
    ActiveWorkbook
.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook
.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("L1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook
.Worksheets("Sayfa1").Sort
        
.SetRange Range("A2:P" & son)
        .Header = xlNo
        
.MatchCase = False
        
.Orientation = xlTopToBottom
        
.SortMethod = xlPinYin
        
.Apply
    End With
    
    For i 
= son To 2 Step -1
    If Range
("N" & i) = 0 Then
    Rows
(i).Delete Shift:=xlUp
    End If
    Next i
    MsgBox 
"İşlem tamamlanmıştır.", 64, "EVN"
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8259
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Şartlı satır silme

İleti#3)  batuk9 » 05 May 2018 07:28

Hocam bu kod değil istediğim şey. Sarı işaretleri hücrelerin satırları silinmiş olması gerekiyordu. Alt alta aynı numara ile başlayan isimlerin borç ve alacakları toplamı 0 oluyorsa satırları silecek. Yani bakiye 0 olmayanlar kalmış olacak.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#4)  batuk9 » 13 May 2018 20:22

Arkadaşlar bir el atsanız soruma lütfen.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Şartlı satır silme

İleti#5)  feraz » 13 May 2018 23:32

Deneyiniz.
Kod: Tümünü seç
Sub xyz()

Dim i As Long

    With Sheets("Sayfa2")
   
    .Range("L2:L" & .Cells(Rows.Count, "L").End(3).Row).Sort Key1:=.Range("L2"), Order1:=xlAscending, Header:=xlNo 'Kücükten büyüge
   
        For i = .Cells(Rows.Count, "L").End(3).Row To 2 Step -1
            If IsNumeric(.Cells(i, "O").Value) And IsNumeric(.Cells(i - 1, "O").Value) Then
                 If .Cells(i, "O").Value + .Cells(i - 1, "O").Value = 0 Then
                    .Range(.Cells(i, "O"), .Cells(i - 1, "O")).EntireRow.Delete
                End If
            End If
       Next
    End With
   
i = Empty

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5748
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şartlı satır silme

İleti#6)  feraz » 14 May 2018 00:18

Sıralama mantık hatası yapmışım.

.Range("A2:P" & .Cells(Rows.Count, "L").End(3).Row).Sort Key1:=.Range("L2"), Order1:=xlAscending, Header:=xlNo 'Kücükten

Kod: Tümünü seç
Sub xyz()

Dim i As Long

    With Sheets("Sayfa2")
   
    .Range("A2:P" & .Cells(Rows.Count, "L").End(3).Row).Sort Key1:=.Range("L2"), Order1:=xlAscending, Header:=xlNo 'Kücükten büyüge
   
        For i = .Cells(Rows.Count, "L").End(3).Row To 2 Step -1
            If IsNumeric(.Cells(i, "O").Value) And IsNumeric(.Cells(i - 1, "O").Value) Then
                 If .Cells(i, "O").Value + .Cells(i - 1, "O").Value = 0 Then
                    .Range(.Cells(i, "O"), .Cells(i - 1, "O")).EntireRow.Delete
                End If
            End If
       Next
    End With
   
i = Empty

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5748
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Şartlı satır silme

İleti#7)  batuk9 » 14 May 2018 10:23

Eline sağlık hocam. Bir kaç denemeden sonra tekrar cevap yazacağım.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#8)  batuk9 » 22 May 2018 09:13

Merhaba hocam ekte sayfa3'e uyguladım ama istediğimiz olmadı bir bakar mısınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#9)  tasad » 22 May 2018 13:49

Feraz hocamın kodlarında bir sorun yok.
koddaki sayfa2 yazan yeri sayfa3 yapmalısın.
"O" harflerini "P" harfi ile değişmelisin.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 494
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Şartlı satır silme

İleti#10)  feraz » 22 May 2018 22:17

tasad üstadın dediği gibi yaptım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5748
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şartlı satır silme

İleti#11)  batuk9 » 24 May 2018 10:20

Dediğinizi yapmıştım ama olmamıştı. Şuan denedim sorun yok. Teşekkür ederim ilginize.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#12)  batuk9 » 24 May 2018 10:27

Peki burada sayfa adı yazmak yerine ActiveSheet olarak nasıl kullanabiliriz?
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#13)  feraz » 24 May 2018 10:32

With Sheets("Sayfa2")

With ActiveSheet
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5748
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şartlı satır silme

İleti#14)  batuk9 » 24 May 2018 10:36

Tamam hocam tam da halletmiştim. Teşekkürler.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#15)  feraz » 24 May 2018 10:58

Rica ederim üstad.


Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5748
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 3 misafir

Bumerang - Yazarkafe