Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 22-12-2017, 17:33   #1
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan Makro Bulunamadı Hatası

Herkese iyi akşamlar,
uzun zamandır uğraştığım bir makroyu tamamlamaya çalışıyorum ama bir yerde tıkandım,
özetlemek gerekirse,
excel sayfam günün belirli bir saatinde otomatik olarak açılacak 5 sn sonra belirlediğim adreslere otomatik olarak mail atacak.
mail atma işlemi manuelde sorunsuz işliyor ama otomatik olarak yapmaya çalıştığımda "bu makro bulanamadı veya devre dışı olabilir" tarzı bir uyarı veriyor, tüm güvenlik ayarlarım en düşükte ne yaptıysam olmadı.
ayrıca onu daha sonra yapacağım o da ayrı bir konu günde sadece 1 defa mail gidecek otomatik olarak, exceli her açtığımda mail gitmesini istemiyorum.
formda gördüm çok eski konularda var ama ne dedilerse yaptım olmadı.
yardımlarınızı bekliyorum.
şimdiden teşekkürler iyi çalışmalar diliyorum.
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 17:37   #2
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 5), "Ay"
End Sub

Private Function Ay()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = WorksheetFunction.CountIf(Range("d:d"), "<>") + 1
DinamikAlan = "d2:" & "k" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "Otomatik maildir lütfen cevap vermeyiniz!.. ...... tarafından Tasarlanmıştır"
With .Item
.To = Cells(2, 2)
.CC = Cells(3, 2)
.Subject = Cells(1, 2)
.bcc = ""
.Send
End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Function
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 18:15   #3
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,706
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

www.dosya.tc
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 19:17   #4
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Alıntı:
cems tarafından gönderildi Mesajı Görüntüle
iyi akşamlar,
dosyayı paylaşım yerine yükledim sayın Cems
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 19:41   #5
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,706
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
kduman tarafından gönderildi Mesajı Görüntüle
iyi akşamlar,
dosyayı paylaşım yerine yükledim sayın Cems
Linki de buraya kopyalamalısınız. Ayrıca

Alıntı:
excel sayfam günün belirli bir saatinde otomatik olarak açılacak 5 sn sonra belirlediğim adreslere otomatik olarak mail atacak
Başka bir açık excel dosyası tarafından çağrılmadığı sürece windowsun zamanlanmış görevleri ile dosya açılabilir. Açıldıktan 5 saniye sonrası için de wait kodu gerekli. İkisi ayrı konu ve ilki sizin ile makinanız arasında bir konu, zamanlanmış görevler konusunu irdeleyin .
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 20:17   #6
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Sayın Cems haklısınız ilki benim bilgisayar ile ilgili onu bir şekilde çözeceğim ama dediğim gibi açıldıktan sonra makroyu çalıştıramadım,
ayrıca günde sadece 1 defa çalışma noktasında da yardımınızı bekliyorum.
şimdiden teşekkür ederim.
dosyanın linki aşağıdadır,

http://s3.dosya.tc/server13/8bvbl5/Makro_Mail.rar.html
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-12-2017, 20:40   #7
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,834
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub workbook_open()
On Error Resume Next
eskitarih = CDate(Range("W1").Value)
If Date <> eskitarih Then Ay
Range("W1").Value = Date
End Sub

Private Function Ay()
    Dim Rky As Object
    yol$ = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=1, To:=2, OpenAfterPublish:=False
    Set Rky = CreateObject("Outlook.Application").CreateItem(0)
    With Rky
        .To = "askmadige342@hotmail.com" '"kayaduman@gursoygrup.com.tr"
        .CC = ""
        .BCC = ""
        .Subject = "iş prg"
        .Body = "ek"
        .Attachments.Add yol$
        .Send
    End With
    Set Rky = Nothing: yol = ""
End Function
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 22-12-2017, 20:43   #8
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,706
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
Private Function Ay()
Dim Rky As Object
yol$ = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".pdf"
Range("C1:L49").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\KASA\Desktop\s.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Set Rky = CreateObject("Outlook.Application").CreateItem(0)
With Rky
.To = "kayaduman@gursoygrup.com.tr"
.CC = ""
.BCC = ""
.Subject = "iş prg"
.Body = "ek"
.Attachments.Add yol$
.Send
End With
Set Rky = Nothing: yol = ""
End Function
sayfa pdf ye çevrildiğinde alan belirtin ve yolu siz düzeltin , şu an bu kodları deneme şansım yok sadece mantık yürütebildim
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 06:48   #9
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Sayın Cems günaydın,
kodlar için teşekkürler ilgilenmeniz yeterli,
ben deneyip bilgi vereceğim size.
iyi günler diliyorum.
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-12-2017, 07:32   #10
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Sayın Cems günaydın,
Allah razı olsun sizden uzun zamandır uğraştığım işi çözdüm sayenizde,ayrıca dediğiniz gibi makronun beklemeli açılması içinde wait komutunu kullandım, şu anda görünen bir problemim kalmadı.
tekrardan teşekkürler,
iyi çalışmalar dilerim.
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:27


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden