Excel Makro Ders Tablosunda Fizik Hariç Herşeyi Sil

Sub sıl0()
Application.ScreenUpdating = False
Adres = Application.InputBox("Hücre adresini yazınız.Örn A1:D10 gibi", "Hücre Adresi")
    If Adres = "" Or Adres = False Then
    MsgBox "İptal edildi"
    Exit Sub
    End If
sil = Application.InputBox("Lütfen kalacak veriyi giriniz", "Kayit Kutusu")
If sil = False Then
Exit Sub
End If
If MsgBox("Bilgiler silinecek", vbOKCancel + vbQuestion, "Accept/Reject") = vbCancel Then
    MsgBox "İptal edildi"
    Exit Sub
End If
For Each hucre In ActiveSheet.Range(Adres)
If IsError(hucre.Value) = True Then
    Range(hucre.Address) = ""
   
    ElseIf Range(hucre.Address) <> sil Then Range(hucre.Address) = Empty
    End If
Next
Application.ScreenUpdating = True
End Sub

Kaynak: Excel.web.tr

Bir cevap yazın

This site uses Akismet to reduce spam. Learn how your comment data is processed.