şarta bağlı hücre temizleme

[yalovam77]

Merhaba aşağıda çalışan bir kod var bu koda şarta bağlı hücre aralığı temizleme eklemek istiyorum oda şöyle K1 hücresi 1 ise c2:c20 aralığını temizleyecek şart sağlanmıyorsa kalacak mümkünmü

Sub Düğme32_Tıklat()
For i = 7 To 20
If Cells(i, "h").Value <> "" Then
Cells(i, "c").Value = Cells(i, "h").Value
End If
Next
End Sub

 

[Ziynettin]

Deneyiniz....

Sub kod()
    deg = [K1]
    If deg = 1 Then
        Range("C2:C20").ClearContents
    Else
        For i = 2 To 20
            If Cells(i, "h").Value <> "" Then
                Cells(i, "c").Value = Cells(i, "h").Value
            End If
        Next i
    End If
End Sub

 

[yalovam77]

teşekkür ederim emeklerinize sağlık