Hücre içerisin makro ile temizleme

[ogrencı4]

Merhaba elimde bir dosya var .bu dosyada benden her gün için içerisini silmesini istediler hazırlarım fakat hücre biçimlerini bir türlü düzeltemiyorum
birleştirilmiş hücreler ve renklendirmeler olacak. sil dediğimde belirlenen hücreler silinecek ve standar kenarlıkların gelmesi lazım.
bir icmal sayfasında buton olacak bütün ay içi verilerin temizle ,standart cizği ve biçimlerini düzenlemesi lazım.
yardım alabilirsem çok Memnun olurum.

 

[YUSUF44]

Aşağıdaki kodları bir modüle ekleyip dosyanızdaki düğmelere sağ tıklayın ve makro ata diyerek açılan listeden temizle makrosunu seçin. içmal sayfasında çalıştırdığınızda tüm sayfaları, diğer sayfalarda çalıştırdığınızda ise sadece o sayfayı temizler:

Sub temizle()
If ActiveSheet.Name = "içmal" Then
    uyar = MsgBox("Tüm günlere ait sayfalardaki bilgiler ve biçimlendirmeler temzilenecektir! Emin misiniz?", vbYesNo)
    If uyar = vbYes Then
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> ActiveSheet.Name Then
                With Sheets(i).[C4:AC10]
                    .ClearContents
                    .UnMerge
                    .Interior.Color = xlNone
                    .Font.Name = "Calibri"
                    .Font.Size = 10
                    .Borders.LineStyle = 1
                    .BorderAround 0, xlThick
                End With
                With Sheets(i).[Y4:Y10]
                    .Borders(xlEdgeTop).LineStyle = xlNone
                    .Borders(xlEdgeBottom).LineStyle = xlNone
                    .Borders(xlInsideHorizontal).LineStyle = xlNone
                End With
            End If
        Next
    Else
        Exit Sub
    End If
Else
    uyar = MsgBox("Bu sayfadaki bilgiler ve biçimlendirmeler temzilenecektir! Emin misiniz?", vbYesNo)
    If uyar = vbYes Then
        With ActiveSheet.[C4:AC10]
            .ClearContents
            .UnMerge
            .Interior.Color = xlNone
            .Font.Name = "Calibri"
            .Font.Size = 10
            .Borders.LineStyle = 1
            .BorderAround 0, xlThick
        End With
        With ActiveSheet.[Y4:Y10]
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With

    Else
        Exit Sub
    End If
End If
End Sub

 

[ogrencı4]

Aşağıdaki kodları bir modüle ekleyip dosyanızdaki düğmelere sağ tıklayın ve makro ata diyerek açılan listeden temizle makrosunu seçin. içmal sayfasında çalıştırdığınızda tüm sayfaları, diğer sayfalarda çalıştırdığınızda ise sadece o sayfayı temizler:

Sub temizle()
If ActiveSheet.Name = "içmal" Then
    uyar = MsgBox("Tüm günlere ait sayfalardaki bilgiler ve biçimlendirmeler temzilenecektir! Emin misiniz?", vbYesNo)
    If uyar = vbYes Then
        For i = 1 To Sheets.Count
            If Sheets(i).Name <> ActiveSheet.Name Then
                With Sheets(i).[C4:AC10]
                    .ClearContents
                    .UnMerge
                    .Interior.Color = xlNone
                    .Font.Name = "Calibri"
                    .Font.Size = 10
                    .Borders.LineStyle = 1
                    .BorderAround 0, xlThick
                End With
                With Sheets(i).[Y4:Y10]
                    .Borders(xlEdgeTop).LineStyle = xlNone
                    .Borders(xlEdgeBottom).LineStyle = xlNone
                    .Borders(xlInsideHorizontal).LineStyle = xlNone
                End With
            End If
        Next
    Else
        Exit Sub
    End If
Else
    uyar = MsgBox("Bu sayfadaki bilgiler ve biçimlendirmeler temzilenecektir! Emin misiniz?", vbYesNo)
    If uyar = vbYes Then
        With ActiveSheet.[C4:AC10]
            .ClearContents
            .UnMerge
            .Interior.Color = xlNone
            .Font.Name = "Calibri"
            .Font.Size = 10
            .Borders.LineStyle = 1
            .BorderAround 0, xlThick
        End With
        With ActiveSheet.[Y4:Y10]
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With

    Else
        Exit Sub
    End If
End If
End Sub

HOCAM ELLERİNİZE SAĞLIK ÇOK TEŞEKÜRLER.