Seçili Makroları Çalıştırma

[ozgurpeh]

selam,
bu kodlar benim kodlar zaten..
gelen mesaj ise bu kodlarla birlikte çalıştırılan makrolarınızdan kaynaklanmaktadır. Sizin KENDİ makrolarınızı Makro4 komutu ile çalıştırıyor. Gelen mesaj da Makro4 mesajı. Yani hatayı sizin KENDİ kodlarınızda arayın derim...

beraber çalışan makro aşağıda

Sub Mail_Gonder()
Dim Klasor As String, Ek As String
Dim Uygulama As Object, Mail As Object

Klasor = CreateObject("scripting.filesystemobject").Folderexists("C:\BÖLGELER")


Ek = Replace(Format(Sheets("Data").Range("K1"), "dd.mm.yyyy"), ".", "_")
Sheets(Array("ANK")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\BÖLGELER\KARA\G_" & Ek & ".xls", 1
ActiveWorkbook.Close False
Application.DisplayAlerts = True

Set Uygulama = CreateObject("Outlook.Application")
Set Mail = Uygulama.CreateItem(0)

With Mail
.To = "xxxx@oxxxx.com"
.BCC =""
.Subject = "Güncel"
.Body = ""
.Attachments.Add "C:\BÖLGELER\KARA\D_" & Ek & ".xls"
.Display
.Send
End With
End Sub

 

[sakman26]

kodlarınız beni aşıyor. Bilmediğim konular..
bence konuyu baka bir başlık altında sorun derim. Bilenler cevap verecektir...



Not :

sadece bir adet makro varsa neden birden fazla makro seçimi uygulamasına ihtiyaç vardır???