- Katılım
- 25 Mart 2019
- Mesajlar
- 30
- Excel Vers. ve Dili
- Excel 2016 , İngilizce
- Altın Üyelik Bitiş Tarihi
- 25-03-2020
Formülleriniz var bunları da belli etmeyelim diyorsanız ama tek tek elle de uğraşamam diyorsanız;
İyi kodlamalar.
Kod:
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.
Son düzenleme: