[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 18: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#2)  Enes Recep BAĞ » 03 May 2018 09: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 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8116
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Şartlı satır silme

İleti#3)  batuk9 » 05 May 2018 09: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#4)  batuk9 » 13 May 2018 22: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 14:38
İleti: 360
 
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 » 14 May 2018 01: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5063
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şartlı satır silme

İleti#6)  feraz » 14 May 2018 02: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5063
 
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 12: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#8)  batuk9 » 22 May 2018 11: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#9)  tasad » 22 May 2018 15: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 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Şartlı satır silme

İleti#10)  feraz » 23 May 2018 00: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5063
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Şartlı satır silme

İleti#11)  batuk9 » 24 May 2018 12: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

İleti#12)  batuk9 » 24 May 2018 12: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

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

With Sheets("Sayfa2")

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

Cevap: Şartlı satır silme

İleti#14)  batuk9 » 24 May 2018 12: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 14:38
İleti: 360
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Şartlı satır silme

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

Rica ederim üstad.


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


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe