Application.Visible = False
Kayit_Yeri = Environ("USERPROFILE") & "\Desktop\" & cevık & ""
Sayfa1.Copy
Application.Visible = False
With ActiveWorkbook
.SaveAs Kayit_Yeri & bilgitext.Text & ".xlsx"
.Close
End With
MsgBox " Evrak Masaüstüne Oluşturuldu. Oluşturulan Evrağı 1Görev Takip...