hesap yaparak satır silmek istiyorum

[nickelaj]

merhaba

Ekteki tabloya bir düğme ekleyerek makro çalıştırmak istiyorum. Amaç düğmeye basıldığında hesap yaparak listeden hesaba uymayanların diğer listeye atılması.
bedelin %120 sinden büyük ve %40ından küçük olan isim ve tekliflerin ilk listeden çıkarılması ve sağdaki listeye atılması nasıl mümkün olabilir?

teşekkür ederim.

(daha önce doubleclick ile buraları takip ederek birşeyler yapmıştım fakat hesaplayarak yaptıramıyorum.)

 

[hamitcan]

Sub aktar()
    For i = 1 To 25
    If Cells(i, 3) > [c28] * 1.2 Or Cells(i, 3) < [c28] * 0.4 Then
        c = c + 1
        Cells(c, "k") = Cells(i, 2)
        Cells(c, "l") = Cells(i, 3)
        Range(Cells(i, "b"), Cells(i, "c")).ClearContents
    End If
    Next
        Range("b1:c25").Sort key1:=[c1]
End Sub

 

[nickelaj]

hamitcan tekrar hızlı cevabın ve ilgin için çok teşekkür ederim. bu şekilde yapabiliyorum fakat soldaki listeden onu çıkartamıyorum. listeden çıkartıp alttakileri tekrar yukarı kaydırmak istiyorum.

teşekkürler

 

[hamitcan]

Kodu düzelttim.

 

[nickelaj]

süper oldu. ellerinize sağlık.
benim 15 satırda denediğim sizin 2 satırınızla düzeldi