Verileri Şarta bağlı olarak dönüştürmek veya silmek

[Feylosof]

Değerli hocalarım iyi geceler;
Detayını örnek dosya üzerinde açıklamaya çalıştım zira bu kısımda anlatması kolay olmayacak. Özetle bazı şarta uygunluk durumuna göre değer değiştirecek veya silecek.
Bu konuda desteğinizi bekliyorum . Şimdiden teşekkürler.

 

[YUSUF44]

Normalde aşağıdaki makro istediklerinizi yapıyor ama verdiğiniz şartlarda eksiklik olduğu için tam olarak dosyanızdaki tablo oluşmuyor. Çünkü şartlarınız 50'nin altında ve üstünde olmasına rağmen tablonuzda 50 olan değerler var. 50 olması halinde ya da B ve C sütunlarının boş olması halinde ne olacağını belirtmemişsiniz. Ayrıca açıklamalarınızda A sütunundan itibaren belirtmenize rağmen verileriniz B sütununda başlıyor. Ben kodları B sütunundan başlayacak şekilde ayarladım:

Sub degis_sil()
son = Cells(Rows.Count, "B").End(3).Row
For sat = 2 To son
    If Cells(sat, "B") < 50 Then
        For sut = 4 To 12
            If Cells(sat, sut) < 50 Then
                Cells(sat, sut) = "X"
            ElseIf Cells(sat, sut) > 50 Then
                Cells(sat, sut).ClearContents
            End If
        Next
    ElseIf Cells(sat, "B") > 50 And Cells(sat, "C") < 50 Then
        Cells(sat, "C") = "X"
        Range("D" & sat & ":L" & sat).ClearContents
    ElseIf Cells(sat, "B") > 50 And Cells(sat, "C") > 50 Then
        Range("C" & sat & ":L" & sat).ClearContents
    End If
Next
End Sub

 

[Feylosof]

Sayın @YUSUF44 hocam evet ben de farkettim 50 ye eşit ve büyük olmalı. Diğeri de 50 den küçük o şekilde sanırım sorun çözülmüş olur. Yardımlarınız için çok teşekkür ederim.
Akşam evde esas dosya üzerinde uygulama yapıp size bilgi vereceğim.