Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Makro Bulunamadı Hatası (http://www.excel.web.tr/showthread.php?t=169176)

cems 23-12-2017 13:34

Alıntı:

kduman tarafından gönderildi (Mesaj 922892)
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...

kduman 03-01-2018 22:18

Alıntı:

cems tarafından gönderildi (Mesaj 922927)
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: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

saban20152015 04-01-2018 03:04

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


Kod:

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


kduman 04-01-2018 07:26

Alıntı:

saban20152015 tarafından gönderildi (Mesaj 924423)
Call x kodunu HATA: satırının üzerine alarak deneyin.


Kod:

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.

cems 04-01-2018 09:01

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.

kduman 04-01-2018 09:39

Alıntı:

cems tarafından gönderildi (Mesaj 924443)
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...

cems 04-01-2018 09:53

Alıntı:

kduman tarafından gönderildi (Mesaj 924454)
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 :)


Saat 16:20

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.