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 23-12-2017, 12:34   #11
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

Alıntı:
kduman tarafından gönderildi Mesajı Görüntüle
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.
Hayırlı işler dilerim kolay gelsin...
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-01-2018, 21:18   #12
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
Hayırlı işler dilerim kolay gelsin...
Sayın Cems iyi geceler,
uzun bir aradan sonra tekrar geldim, sizinle en son görüşmemize istinaden bir problemim kalmadı demiştim ama tabi rahat durmuyorum aklıma bir msgbox kutusu geldi, normalde bu mail gönderme kodu eğer ki alıcı kısmında kimse yok ise hata koduna gidiyor ve işlemi sonlandırıyor bu işlem sonlandırmasında uyarı çıkmasını istiyorum kodu ona göre yazdım ama daha sonra maili göndermemesine rağmen diğer msgbox kutusuna gidiyor ve mail gönderilmiş gibi uyarı çıkıyor, bunun çözümü nasıl olabilir acaba?
şimdiden teşekkürler iyi çalışmalar dilerim.

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"), "<>") + 2
DinamikAlan = "D4:" & "J" & 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!.."
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
MsgBox "Dikkat !.. Alıcı Kısmı Boş Olduğu İçin Mail Gönderilemedi!.."
End With
Call x
End Function

Sub x()
MsgBox "Dikkat !.. Mailinizi Otomatik Olarak Gönderdiniz"
MsgBox "Çalışmanızı Kaydetmeyi Unutmayınız !..."
End Sub
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 02:04   #13
saban20152015
 
Giriş: 06/07/2015
Mesaj: 623
Excel Vers. ve Dili:
2003
Varsayılan

Call x kodunu HATA: satırının üzerine alarak deneyin.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Call x
HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
MsgBox "Dikkat !.. Alıcı Kısmı Boş Olduğu İçin Mail Gönderilemedi!.."
End With
End Function
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 06:26   #14
kduman
 
Giriş: 22/12/2017
Şehir: İstanbul
Mesaj: 9
Excel Vers. ve Dili:
Excel 2016- Türkçe
Varsayılan

Alıntı:
saban20152015 tarafından gönderildi Mesajı Görüntüle
Call x kodunu HATA: satırının üzerine alarak deneyin.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Call x
HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
MsgBox "Dikkat !.. Alıcı Kısmı Boş Olduğu İçin Mail Gönderilemedi!.."
End With
End Function
Sayın Saban günaydın,
call x i üste alınca düzgün uyarıyı aldım kod kendini sonlandırdı fakat bu seferde alıcı kısmı dolu olunca maili gönderiyor, işlem bittikten sonra tekrar mail gönderilemedi hatası alıyorum yani tüm msgbox kutuları aktif hale geliyor.
yorumlarınız için şimdiden teşekkürler.
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 08:01   #15
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

Alıcı kısmı boş ise kalan işleme gerek yok ki, işlemden çıkması gerek ..

Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then
Msgbox " Kime göndereceğimi de söyleseydin... "
end if
exit sub

diğer kodlar aynı olarak deneyin, HATA konusu başka konu.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 08:39   #16
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
Alıcı kısmı boş ise kalan işleme gerek yok ki, işlemden çıkması gerek ..

Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then
Msgbox " Kime göndereceğimi de söyleseydin... "
end if
exit sub

diğer kodlar aynı olarak deneyin, HATA konusu başka konu.
Sayın Cems teşekkürler, her zamanki gibi çözdünüz konuyu elinize sağlık
iyi çalışmalar diliyorum üstad...
kduman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-01-2018, 08:53   #17
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

Alıntı:
kduman tarafından gönderildi Mesajı Görüntüle
Sayın Cems teşekkürler, her zamanki gibi çözdünüz konuyu elinize sağlık
iyi çalışmalar diliyorum üstad...
Estağfurullah, kolay gelsin
cems Ç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:52


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden