Satır silme

[1903emre34@gmail.com]

Merhaba,

(Aşağıdaki kod, başka konuda alıntıdır)

Yevmiye madde numaraların altında farklı yevmiye kayıtları bulunmaktadır, örneğin 1 numaralı yevmiye madde numarasında 791,753,190,319 başka yevmiye numarası olan (2) ise, 319,791,753,190, benim istediğim aynı yevmiye madde numarasında ana hesap kodları olan 319,791,753,190 ve 319,791,753,190, 319,791,190, 319,753 var ise satırlarda silinmesi için aşağıdaki kodlarda nasıl değişiklik yapabiliriz?


Sub ozel_hesap_sil()
sonsatir = Cells(Rows.Count, "A").End(3).Row
buldu = False
For i = sonsatir To 1 Step -1
hesap = Cells(i, "C").Value
yevmiye = Cells(i, "B").Value
If i = sonsatir Then
eskiyevmiye = yevmiye
sayozel = 0
saynormal = 0
altsatir = i
End If

If yevmiye <> eskiyevmiye Then
If saynormal = 0 Then
For j = altsatir To i + 1 Step -1
Rows(j).Delete
Next j
altsatir = i
Else
altsatir = i
End If
i = i + 1
sayozel = 0
saynormal = 0
GoTo son
End If

If hesap = 893 Or hesap = 393 Or hesap = 891 Or hesap = 191 Then
sayozel = sayozel + 1
Else
saynormal = saynormal + 1
End If
son:
eskiyevmiye = yevmiye

Next i
End Sub

 

[Asri]

Merhaba,

(Aşağıdaki kod, başka konuda alıntıdır)

Yevmiye madde numaraların altında farklı yevmiye kayıtları bulunmaktadır, örneğin 1 numaralı yevmiye madde numarasında 791,753,190,319 başka yevmiye numarası olan (2) ise, 319,791,753,190, benim istediğim aynı yevmiye madde numarasında ana hesap kodları olan 319,791,753,190 ve 319,791,753,190, 319,791,190, 319,753 var ise satırlarda silinmesi için

Ben birşey anlamadım. Neden aynı kodları tekrar tekrar yazdınız.
Örnek sonuç sayfası ve sonuç sayfasını oluşturmak için kuralları adım adım yazar mısınız?

 

[1903emre34@gmail.com]

Merhaba,

Silinmesini istediğimiz ana hesap;
791,
319,
753,
190
Yukarıdaki aynı yevmiye madde numarasınde birlikte bulunursa satırlardan silinmesi;

Yukarıdaki kodlar sayfa 1'de çalışmadı; dosya ekte gibidir.

Sayfa1'de renkli olmayan hücreler satırların silinmesi istediğimiz,

sayfa2 ; istenen sayfa

 

[Asri]

Merhaba,

Silinmesini istediğimiz ana hesap;
791,
319,
753,
190
Yukarıdaki aynı yevmiye madde numarasınde birlikte bulunursa satırlardan silinmesi;

Yukarıdaki kodlar sayfa 1'de çalışmadı; dosya ekte gibidir.

Sayfa1'de renkli olmayan hücreler satırların silinmesi istediğimiz,

sayfa2 ; istenen sayfa

Aşağıdaki şekilde deneyiniz.

Sub ozel_hesap_sil()
   Sheets("Sayfa1").Select
   
   silstr = ",791,319,753,190,"
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   silme = False
   basla = 0
   For i = sonsatir To 1 Step -1
     hesap = Cells(i, "C").Value
     yevmiye = Cells(i, "B").Value
     If i = sonsatir Then
        eskiyevmiye = yevmiye
        basla = i
     End If
     If yevmiye <> eskiyevmiye Then
        If silme = False Then
           For j = basla To i + 1 Step -1
             Rows(j).Delete
           Next j
        End If
        basla = 0
     End If
     
     If silme And yevmiye = eskiyevmiye Then
        GoTo son
     Else
        silme = False
     End If
     
     If basla = 0 And yevmiye <> eskiyevmiye Then
        basla = i
     End If
          
     If InStr(silstr, "," & hesap & ",") > 0 Then
        A = A
     Else
        silme = True
     End If
son:
     eskiyevmiye = yevmiye
   Next i
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, sorunsuz çalışıyor