aynı değerli satır silme

[igultekin2000]

iyi günler; kullanmakta olduğum makroda güncelleme gerekiyor. Şöyle ki;C SÜTUNNDAKİ CARİ KODA 'da göre F ve G hücreleri eşitse , eşit satırları borç - alacak olarak satır bazında siliyor. ANCAK makro kıyaslamayı yaparken ALACAK sütununa bakarak BORÇ sütununu kıyaslıyor. bunu iki durum içinde yani borç -alacak ve alacak - borç şekline nasıl çevirebilirim. kullandığım makro

Sub AYNI_SATIR_SIL()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
son = Cells(Rows.Count, 1).End(3).Row
Columns("K:L").Insert Shift:=xlToRight
    For s = 2 To son
        Cells(s, "K") = Cells(s, "C") & Cells(s, "F") & Cells(s, "G")
    Next
    With Range("L2:L" & son)
        .Formula = "=COUNTIF($K$2:$K$" & son & ",K2)": .Value = .Value
    End With
    For sat = son To 2 Step -1
        If WorksheetFunction.IsEven(Cells(sat, "L").Value) = True Then Rows(sat).Delete Shift:=xlUp
    Next
     Columns("K:L").Delete Shift:=xlToLeft
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İŞLEM TAMAMLANDI"
End Sub

iyi çalışmalar

 

[Ömer BARAN]

Merhaba.

İlk For...Next döngüsü içerisinde yer alan, aşağıda kırmızı renklendirdiğim satırı silip yerine mavi renkli iki satırı ekleyin.
İstenilenin gerçekleşmeme nedeni, F veya G sütununda BOŞ olarak gördüğünüz hücrelerin boş DEĞİL 0 (sıfır) değeri içermesi.
.

[COLOR="Red"]        Cells(s, "K") = Cells(s, "C") & Cells(s, "F") & Cells(s, "G")[/COLOR]

[COLOR="Blue"]        If Cells(s, "F") > 0 Then Cells(s, "K") = Cells(s, "C") & Cells(s, "F")
        If Cells(s, "G") > 0 Then Cells(s, "K") = Cells(s, "C") & Cells(s, "G")[/COLOR]

 

[igultekin2000]

kod işlem hatası veriyor

Merhaba.

İlk For...Next döngüsü içerisinde yer alan, aşağıda kırmızı renklendirdiğim satırı silip yerine mavi renkli iki satırı ekleyin.
İstenilenin gerçekleşmeme nedeni, F veya G sütununda BOŞ olarak gördüğünüz hücrelerin boş DEĞİL 0 (sıfır) değeri içermesi.
.

[COLOR="Red"]        Cells(s, "K") = Cells(s, "C") & Cells(s, "F") & Cells(s, "G")[/COLOR]

[COLOR="Blue"]        If Cells(s, "F") > 0 Then Cells(s, "K") = Cells(s, "C") & Cells(s, "F")
        If Cells(s, "G") > 0 Then Cells(s, "K") = Cells(s, "C") & Cells(s, "G")[/COLOR]

Resimdeki gibi işlemde hata verdi.
değişik versiyonlar denedim ancak henüz başarılı olamadım.