Macro Kaydı

[sitkicelebi]

Herkese iyi forumlar
Arkadaşlar şöyle bir macro kaydına ihtiyacım var.

Belirtilen hücre 0 ise o hücreyi Delete yapacak.
Mesela, A50 hücresi nin değeri 0 ise, ilgili macro gitsin ve A50 için "Delete" yapsın ve içeriği tamamen silsin. Yok eğer A50 de bir rakam veya bir ifade var ise olduğu gibi bıraksın.

Bilgisi olan arkadaşların cevapları içim şimdiden teşekkür ederim.

Herkese hayırlı günler.

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub delete_yap()
If Cells(50, "a") = "0" Then Cells(50, "a") = ""
End Sub

Kodlarını yerleştirin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam aşağıdaki kod'u kullanabilirsiniz.
Kod'u ilgili sayfnın kod bölümüne yapıştırın ve bir sayfaya ekleyeceğiniz bir düğmeye bu kod'u bağlayın.

Sub SIFIRSİL()
son = [A65536].End(3).Row
    For a = 2 To son
        If Cells(a, 1) = 0 Then
        Cells(a, 1) = ""
        End If
    Next
End Sub