-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
kayıt ismi
-
M
Çözüldü kayıt ismi
On Error Resume Next Application.Visible = False Kayit_Yeri = Environ("USERPROFILE") & "\Desktop\" & KAYIT & "" Sayfa36.Copy Application.Visible = False With ActiveWorkbook .SaveAs Kayit_Yeri & "RAPOR" & ".xlsx" .Close End With MsgBox " Evrak Masaüstüne Oluşturuldu...", vbInformation, ""...- mustafa070707
- Konu
- kayıt ismi
- Cevaplar: 3
- Forum: Genel VBA Makro Soruları