Formülleri Değere Dönüştürme

[bilgiconline]

Formülleriniz var bunları da belli etmeyelim diyorsanız ama tek tek elle de uğraşamam diyorsanız;

Sub Formulleri_sil
On Error Resume Next

    Dim sayfa As String
    ActiveSheet.Select
    sayfa = ActiveSheet.Name
    Sheets(sayfa).Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "Formülsüz"

     ActiveSheet.Range("A1:AZ9999") = ActiveSheet.Range("A1:AZ9999").Value

End Sub

İyi kodlamalar.

 

[klop01]

Teşekkürler, deneme yaptım hatasız çalıştı.

 

[klop01]

Kodda geçen
On Error Resume Next
satırı iki yerde var.
Üstteki yanlışlıkla mı yazılmış?

 

[bilgiconline]

Kodda geçen
On Error Resume Next
satırı iki yerde var.
Üstteki yanlışlıkla mı yazılmış?

Evet , üstteki deyimi fazla yazmışım teşekkür ederim dikkatiniz için , şimdi düzeltiyorum .