• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

dosya yoksa mesaj versin

  1. M

    Çözüldü Dosya yoksa mesaj versin?

    Merhaba üstadlar, Sub verial() On Error Resume Next Application.ScreenUpdating = False Set syf1 = ThisWorkbook.Sheets("DATA1") dsy = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\RAPOR.xlsx" Workbooks.Open dsy Set dsy = ActiveWorkbook Set syf2 =...
Geri
Üst