Kopyala farklı kaydet makrosunda formüllerin kopyalanmaması

[fikretac]

Asağıdaki makroda sayfayı kopyalayıp farklı kaydediyorum. Sayfadaki formüller yerine sadece degerleri kopyalamasi icin nasıl bir ekleme yapabiliriz... tsk ederim...

Sub kaydet()
Klasor = ThisWorkbook.Path & "\"
Dosya_Adi = Worksheets("miatlı").Range("F13").Value 'kayıt adı
Sayfa_Adı = Worksheets("aylık").Range("F13").Value 'kaydedilecek sayfa
Sheets("aylık").Unprotect Password:="55"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare))
If uzanti = ".xlsx" Then
FileFormatNum = 51
ElseIf uzanti = ".xlsm" Then
FileFormatNum = 52
ElseIf uzanti = ".xls" Then
FileFormatNum = -4143
ElseIf uzanti = ".xlsb" Then
FileFormatNum = 50
End If
Sheets(Array("aylık")).Copy
ActiveWorkbook.SaveAs Klasor & Dosya_Adi & uzanti, FileFormat:=FileFormatNum
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Sheets("aylık").Protect Password:="55"
End Sub

 

[necati]

Merhaba,

Sub kaydet()
Klasor = ThisWorkbook.Path & "\"
Dosya_Adi = Worksheets("miatlı").Range("F13").Value 'kayıt adı
Sayfa_Adı = Worksheets("aylık").Range("F13").Value 'kaydedilecek sayfa
Sheets("aylık").Unprotect Password:="55"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare))
If uzanti = ".xlsx" Then
FileFormatNum = 51
ElseIf uzanti = ".xlsm" Then
FileFormatNum = 52
ElseIf uzanti = ".xls" Then
FileFormatNum = -4143
ElseIf uzanti = ".xlsb" Then
FileFormatNum = 50
End If
Sheets(Array("aylık")).Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs Klasor & Dosya_Adi & uzanti, FileFormat:=FileFormatNum
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Sheets("aylık").Protect Password:="55"
End Sub

 

[fikretac]

Tsk ederim elinize saglik