Sayfa İçeriği temizle

[sedat2161]

Hayırlı sabahlar. İyi çalışmalar. Ekte gönderdiğim dosyamda tek buton ile istediğim sayfanın içeriğini temizlemek istiyorum. Örneğin a ve d sayfalarının içerği temizlenmesi gerekiyor. Yardımcı olursanız çık seviniririm.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub sayfatemizle()
sayfa = InputBox("Temzilenecek sayfayı yazınız" & Chr(10) & Chr(10) & "Sayfa adını birebir aynı yazmalısınız." & Chr(10) & "Büyük küçük harf duyarlıdır")
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfa Then
        Sheets(i).[B2:M30].ClearContents
        bul = "bulundu"
        MsgBox sayfa & " sayfası temizlendi!"
        Exit Sub
    End If
Next
If bul <> "bulundu" Then
    MsgBox sayfa & " adlı sayfa dosyada bulunmamaktadır.", vbCritical
End If
End Sub

 

[sedat2161]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub sayfatemizle()
sayfa = InputBox("Temzilenecek sayfayı yazınız" & Chr(10) & Chr(10) & "Sayfa adını birebir aynı yazmalısınız." & Chr(10) & "Büyük küçük harf duyarlıdır")
For i = 1 To Sheets.Count
    If Sheets(i).Name = sayfa Then
        Sheets(i).[B2:M30].ClearContents
        bul = "bulundu"
        MsgBox sayfa & " sayfası temizlendi!"
        Exit Sub
    End If
Next
If bul <> "bulundu" Then
    MsgBox sayfa & " adlı sayfa dosyada bulunmamaktadır.", vbCritical
End If
End Sub

İlginiz için teşekkür ederim. Sayfa adlarını koda yazarak içeriği temizlemek acaba mümkün olurmu. İyi çalışmalar

 

[YUSUF44]

Aşağıdaki kodlar A ve B sayfalarının belirtilen hücrelerini temizler:

Eğer belirtilen sayfa dosyada yoksa hata verir:

Sub sayfatemizle()
        Sheets("A").[B2:M30].ClearContents
        Sheets("B").[B2:M30].ClearContents
End Sub

 

[yanginci34]

Yusuf Hocam cevaplamış ama alternatif olarak userformlu hali denermisiniz.

 

[sedat2161]

Aşağıdaki kodlar A ve B sayfalarının belirtilen hücrelerini temizler:

Eğer belirtilen sayfa dosyada yoksa hata verir:

Sub sayfatemizle()
        Sheets("A").[B2:M30].ClearContents
        Sheets("B").[B2:M30].ClearContents
End Sub

Çok teşekkür ederim. İyi Çalışmalar

Yusuf Hocam cevaplamış ama alternatif olarak userformlu hali denermisiniz.

Çok teşekkür ederim. İyi Çalışmalar

 

[yanginci34]

Rica ederim kolay gelsin.

 

[Necdet]

Merhaba,

Yanıtları tam olarak incelemedim ama alternatif olsun.

Ctrl Tuşuna basılı iken seçtiğiniz Sheetleri silmek için aşağıdaki kodları deneyiniz.

Sub SecSil()
    
    Dim Sh  As Worksheet

    For Each Sh In ActiveWindow.SelectedSheets
        Sh.Cells.ClearContents
    Next Sh
        
End Sub