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 17-05-2017, 09:41   #1
esperavan
Altın Üye
 
Giriş: 16/05/2017
Şehir: ANKARA
Mesaj: 7
Excel Vers. ve Dili:
Excel 2016
Varsayılan Hücre değerine göre mail gönderimi

Merhaba,

Aşağıdaki şekilde mail gönderimi için makrom var. Bunu manuel değilde hücre değerine göre mail gönderimi olsun istiyorum. Mail gönderimi için seçili alanın hazır olduğunda E1 hücresine "Mail gönder" yazacak şekilde formülleme yapacağım. Mail gönderiminin de E1 hücresinde "Mail gönder" yazısını gördüğü anda mailin otomatik olarak gönderilmesini istiyorum. Makroda nasıl bir değişiklik yapmam lazım, yardımcı olur musunuz? Teşekkür ederim.


Sub Dikdörtgen1_Tıklat()

ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = "....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With

End Sub
esperavan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 09:49   #2
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 369
Excel Vers. ve Dili:
excel2013
Varsayılan

Sub Dikdörtgen1_Tıklat()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("e1")="Mail gönder" then
ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = "....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With
End If

End Sub
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 09:55   #3
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 369
Excel Vers. ve Dili:
excel2013
Varsayılan

kırmızı yeri silin ve mavi olanları ekleyip denermisiniz.
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 10:49   #4
esperavan
Altın Üye
 
Giriş: 16/05/2017
Şehir: ANKARA
Mesaj: 7
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Teşekkür ederim yanginci34.

Denedim fakat çalışmadı. Dikdörtgen kutuya Makro ata alanından makroyu yazmıştım. Yine aynı alanda yazdığınız silme ve eklemeleri yaptım fakat çalışmadı.
esperavan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 11:30   #5
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 369
Excel Vers. ve Dili:
excel2013
Varsayılan

Sizin kodunuz olduğu gibi kalsın ve sayfanın kod bölümübe aşağıdaki kodu ilave edip denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("e1")="Mail gönder" then
Call Dikdörtgen1_Tıklat
End If
End Sub
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 13:22   #6
esperavan
Altın Üye
 
Giriş: 16/05/2017
Şehir: ANKARA
Mesaj: 7
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Teşekkür ederim. İstediğim şekilde mail gönderimi yapıldı. Kodu aşağıdaki şekilde düzenledim.
Peki buna sınır koymamız mümkün mü? Formülü başlatır başlatmaz 30 mail gitti seri olarak. Kontrol edilerek mail atılması gereken alan 1 dk arayla yenileniyor ve şartlar uygunsa mail atılması isteniyor. Bu makronun E1 hücresini 60 sn ara ile kontrol ettirmemiz mümkün mü? Veya tekrar aynı maili atmasını engelleyecek başka bir fikriniz var mıdır? Tşk.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("E1") = "Mail gönder" Then

ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = ".....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With

End If

End Sub
esperavan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 13:59   #7
yanginci34
Altın Üye
 
Giriş: 06/07/2010
Şehir: istanbul
Mesaj: 369
Excel Vers. ve Dili:
excel2013
Varsayılan

Benim yardım edebileceğim bu kadar sizin istediğiniz benim için biraz güç gözüküyor ama zaman buldukça deneme yanılma yöntemi ile birşeyler yapmaya çalışacağım herhangi bir çözüme ulaşırsam size dönüş yaparım.
yanginci34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-05-2017, 08:58   #8
esperavan
Altın Üye
 
Giriş: 16/05/2017
Şehir: ANKARA
Mesaj: 7
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Teşekkür ederim. Bende ontime komutunu kullanarak yapmayı deniyorum ama yapamadım hala.

http://www.excel.web.tr/f182/030-ont...eo-t86739.html
esperavan Ç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 10:31


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden