- Katılım
- 14 Kasım 2017
- Mesajlar
- 618
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-01-2024
Arkadaşlar bir makro kodu yazdım kod biraz uzun sanırım bu yüzden makronun çalışması uzun sürüyor. Sormak istediğim makronun çalışmasının uzun sürmesi yazılan kodun uzunluğuyla alakası var mı ? Yoksa kodun içerisinde yanlış yaptığım başka bir şeylerden mi kaynaklanıyor ? Makroyu aşağıda paylaştım. 3 makro da birbirine bağlantılı.
Kod:
Sub Wpkaydet1()
Range("B8:X61").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:00:00"), "mesaj"
End Sub
Kod:
Sub Mesaj()
Range("AI7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("CK7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("EM7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("GO7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("IQ7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("KS7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("MU7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("OW7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("QY7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("TA7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("VC7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("XE7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ZG7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ABI7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ADK7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AFM7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AHO7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AJQ7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ALS7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ANU7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("APW7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("ARY7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AUA7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AWC7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("AYE7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BAG7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BCI7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BEK7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BGM7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BIO7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Range("BKQ7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak gönderebilirsiniz."
Application.OnTime Now + TimeValue("00:00:03"), "mesajsil"
End Sub
Kod:
Sub Mesajsil()
Range("AI7").FormulaR1C1 = ""
Range("CK7").FormulaR1C1 = ""
Range("EM7").FormulaR1C1 = ""
Range("GO7").FormulaR1C1 = ""
Range("IQ7").FormulaR1C1 = ""
Range("KS7").FormulaR1C1 = ""
Range("MU7").FormulaR1C1 = ""
Range("OW7").FormulaR1C1 = ""
Range("QY7").FormulaR1C1 = ""
Range("TA7").FormulaR1C1 = ""
Range("VC7").FormulaR1C1 = ""
Range("XE7").FormulaR1C1 = ""
Range("ZG7").FormulaR1C1 = ""
Range("ABI7").FormulaR1C1 = ""
Range("ADK7").FormulaR1C1 = ""
Range("AFM7").FormulaR1C1 = ""
Range("AHO7").FormulaR1C1 = ""
Range("AJQ7").FormulaR1C1 = ""
Range("ALS7").FormulaR1C1 = ""
Range("ANU7").FormulaR1C1 = ""
Range("APW7").FormulaR1C1 = ""
Range("ARY7").FormulaR1C1 = ""
Range("AUA7").FormulaR1C1 = ""
Range("AWC7").FormulaR1C1 = ""
Range("AYE7").FormulaR1C1 = ""
Range("BAG7").FormulaR1C1 = ""
Range("BCI7").FormulaR1C1 = ""
Range("BEK7").FormulaR1C1 = ""
Range("BGM7").FormulaR1C1 = ""
Range("BIO7").FormulaR1C1 = ""
Range("BKQ7").FormulaR1C1 = ""
End Sub