Hücredeki değere göre başka hücredeki veriyi temizleme

[Tarikkk_]

Merhabalar aşağıdaki makrodaki kodlara göre G sütunu Aktif satır ORTALAMA FİYAT Yazıyorsa H Sütunu Aktif Satırdaki veriyi temizlemek istiyorum. bu şekilde hata alıyorum. yardımlarınızı bekliyorum teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("ALIŞ-SATIŞ").Range("G" & ActiveCell.Row) = "ORTALAMA FİYAT" Then
Worksheets("ALIŞ-SATIŞ").Range("H" & ActiveCell.Row).ClearContents

End If
End Sub

 

[Ziynettin]

Bu şekilde bakınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 7 And Target.Count = 1 Then
        If UCase(Target.Text) = "ORTALAMA FİYAT" Then
            Range("H" & Target.Row).ClearContents
        End If
    End If
End Sub

 

[Tarikkk_]

hocam çok teşekkür ederim işimi gördü ama tamamen bana yabancı bilmediğim kodlar yazdınız . 6-7 aydır özel makro dersleri aldım ufak tefek bazı uygulamalar yaptım ama Ucase Target gibi şeyleri pek kullanmadım. bu makroyu biraz daha geliştirmek istiyorum. yine aşağıdaki kodlara göre
E Sütunu 1 den küçük yani Sıfır yada boş ise ise F G H Sütunlarındaki verinin temizlenmesi mümkünmü ilginizden dolayı şimdiden teşekkür ederim

Private Sub Worksheet_Change(ByVal Target As Range)

    SonSatır = Sheets("ALIŞ-SATIŞ").Cells(Rows.Count, "M").End(3).Row
    For Satır = 6 To SonSatır
        If Worksheets("ALIŞ-SATIŞ").Range("E" & Satır) < 1 Then
            Range("F" & Satır).ClearContents
            Range("G" & Satır).ClearContents
            Range("H" & Satır).ClearContents
        End If
    Next Satır
End Sub