sayfa kaydetme hk

Private Sub CommandButton5_Click() On Error Resume Next Application.ScreenUpdating = False Sheets("sözlesme").Visible = True Sheets("sözlesme").Select Sheets("sözlesme").Copy With ActiveSheet.UsedRange .Copy .PasteSpecial xlPasteValues End With...