Dosya farklı kaydet işleminde kod çalışması

[pNouma]

Kıymetli Hocalarım merhaba,

Bir excel dosyasını menülerden "Farklı kaydet" yaptıktan sonra; Yeni oluşturulan dosyada:

"Sayfa2" sayasının temizlenmesi nasıl sağlanabilir mi?

Aşağıdaki BeforeSave prosedürü gibi SaveAs prosedürü var mıdır?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Sayfa2.Cells.ClearContents
End Sub

Yardımlarınız için şimdiden teşekkürler,
iyi Pazarlar..

 

[Muzaffer Ali]

Merhaba.
BuÇalışmaKitabı adlı kod sayfasına kopyalayınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Sayfa2.Cells.ClearContents
    Else
        'Normal kayıt
    End If
End Sub

 

[pNouma]

Merhaba.
BuÇalışmaKitabı adlı kod sayfasına kopyalayınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Sayfa2.Cells.ClearContents
    Else
        'Normal kayıt
    End If
End Sub

çok teşekkür ederim Muzaffer Hocam
iyi pazarlar