Aşağıdaki kodun uygulama alanını sınırlandırmak

[EKREM1661]

Saygıdeğer Arkadaşlar..! (selam ile)

Aşağıdaki kod bir sayfada ber veya obje, biçimler dahil ne varsa temizliyor..
Bunu bir sınır getirebilir miyiz..?

Yani; tüm sayfayı deği de; örneğin A3:Z50 arasını temizlesin..?

__________________________________________________
Private Sub CommandButton1_Click()

'Sub ClearSheet()
On Error Resume Next
Dim Proceed As Long
Proceed = MsgBox("mesaj uyarı metni " _
& vbCrLf & "(mesaj uyarı metni)", vbQuestion + vbYesNo, "Clear Active Sheet")
If Not Proceed = vbNo Then
With Cells
.Clear
.NumberFormat = "General"
.FormatConditions.Delete
.Interior.ColorIndex = xlNone
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
With ActiveSheet
.DrawingObjects.Delete
.AutoFilterMode = False
End With
End If

End Sub


Meşgul etmiş olmaz isem; bu koda bir de satır(12.75) sütun(8,43) standart punto ayarlarına getiren satır ilave edebilirsek daha iyi işimi görecek..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim Proceed As Long
    Proceed = MsgBox("mesaj uyarı metni " _
    & vbCrLf & "(mesaj uyarı metni)", vbQuestion + vbYesNo, "Clear Active Sheet")
    If Not Proceed = vbNo Then
        With [COLOR=red]Range("A3:Z50")[/COLOR]
            .Clear
            .NumberFormat = "General"
            .FormatConditions.Delete
            .Interior.ColorIndex = xlNone
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            .Borders(xlEdgeLeft).LineStyle = xlNone
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlEdgeRight).LineStyle = xlNone
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
            [COLOR=red].EntireRow.RowHeight = 12.75
            .EntireColumn.ColumnWidth = 8.43
[/COLOR]        End With
        With ActiveSheet
            .DrawingObjects.Delete
            .AutoFilterMode = False
        End With
    End If
End Sub

 

[EKREM1661]

Korhan bey..! öncelikle teşekkür ediyorum.. Herşey güzel... ilk 2 sıradaki metinleri silmiyor, orası tamam..
Ancak nedense ilk satırda çalıştırmış olduğum nesne (butonu) da silip götürdü.. Yani nesne yönünüde sınırlandırmak gerekecek..