hücre değeri ...kg altına düşünce email gönder

Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
selam arama yaptım ama benim istediğim tarzda bir formül yoktu.
benim yapmak istediğim ekli dosyada görünen kalan stok 25 kg kalınca ürün ismi ile beraber otomatik olarak " x ürün 25 kg kalmıştır " şeklinde bir email göndermesi hiç sormadan.. benim bulduğum kod bu şekilde
Sub Mail_Outlook_Express()
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "xxxx@xxxxxxxxxxx.com"
Recipientcc = ""
Recipientbcc = ""
Subj = "Important message"
msg = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Sub
Genişletmek için tıkla ...
yukardaki kodda a1 hücresi değiştiği zaman makroları çalıştırdığımızda meil gönderiyor.
sabahtan beri uğraşıyorum çözemedim zahmet olmazsa.
 
Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
konuyu yanlış başlığa falanmı açtım bilmeden
 
C

cebir

Katılım
13 Aralık 2007
Mesajlar
93
Excel Vers. ve Dili
excel 2003
Merhaba..

Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, [f4:f65000]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = 25 Then


MsgBox ActiveCell.Offset(0, -6).Value & " ADLI ÜRÜN 25 KĞ KALMIŞTIR "
End If "

Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "xxxx@xxxxxxxxxxx.com"
Recipientcc = ""
Recipientbcc = ""
Subj = "Important message"
msg = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End If
End Sub


deneyin..

seçim enter tuşu yön ü yukardan aşağı ise,

If Intersect(Target, [f4:f65000]) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0).Value = 25 Then


MsgBox ActiveCell.Offset(-1, -5).Value & " ADLI ÜRÜN 25 KĞ KALMIŞTIR "
 
Son düzenleme:
Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
sn cebir kardeşim.
uğraşın için teşekkür ederim. büyük ölçüde işime yarayacak. yalnız ufak teferruatlar kaldı.

1- mesagbox çıkmaması lazım.
2- kalan kg 25 ve a&#351;a&#287;&#305;s&#305; olmas&#305; laz&#305;m ( kodun ba&#351;&#305;na k&#252;&#231;&#252;k ( < ) i&#351;areti koydum ama yine olmad&#305; )
3- meil i hi&#231; sormadan g&#246;ndermesi laz&#305;m (malum yapt&#305;&#287;&#305;m&#305;z a&#231;&#305;&#287;a &#231;&#305;k&#305;yor ozaman )
4- mesaj g&#246;vdesinde eksilen &#252;r&#252;nlerin isimleri va kg si g&#252;r&#252;nmeli.

e&#287;er bunlarda yard&#305;mc&#305; olursan dile benden ne dilersen.

sayg&#305;lar&#305;mla.
 
Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "xxxx@xxxxxxxxxxx.com"
Recipientcc = ""
Recipientbcc = ""
Subj = "Important message"
msg = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
msg = WorksheetFunction.Substitute(msg, vbNewLine, "%0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Sub
Genişletmek için tıkla ...
message box olayı halledildi.
 
C

cebir

Katılım
13 Aralık 2007
Mesajlar
93
Excel Vers. ve Dili
excel 2003
merhaba.
&#246;yle de&#287;i&#351;rirseniz 25 k&#287; &#305;n &#252;st&#252; de olsa mail g&#246;nderir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [f4:f65000]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value <=25 Then


Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "xxxx@xxxxxxxxxxx.com"
Recipientcc = ""
Recipientbcc = ""
Subj = "Important message"
msg = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed"
msg = WorksheetFunction.Substitute(msg, vbNewLine, "&#37;0D%0A")
HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc _
& "&" & "bcc=" & Recipientbcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"

End If

End Sub

&#351;eklinde deneyin..mesaj vermeden 25 ve 25 in alt&#305;nda mail g&#246;nderir.
&#351;u b&#246;l&#252;m&#252; de silin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
..
End Sub
 
Son düzenleme:
Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
u&#287;ra&#351;&#305;n i&#231;in te&#351;ekk&#252;r yaln&#305;z
f h&#252;cresine yaz&#305;lan ne olursa meil at&#305;yor.
outlook yine a&#231;&#305;l&#305;yor.
ve mesaj g&#246;vdesi yine ( msg = "Hi there" & vbNewLine & vbNewLine & _
"Cell A1 is changed" ) &#351;eklinde eksileni vermiyor.
yani san&#305;rsam bu k&#305;s&#305;mda de&#287;i&#351;meli ( HLink = HLink & "body=" & msg ) body b&#246;l&#252;m&#252; eksilen &#252;r&#252;n ve kg olarak g&#246;z&#252;kmeli.
alta yazm&#305;&#351; oldu&#287;un bu k&#305;sm&#305; silin olay&#305;n&#305; anlamad&#305;m. oray&#305; silince zaten yapt&#305;&#287;&#305;m&#305;z hi&#231; bir &#351;ey &#231;al&#305;&#351;m&#305;yor.
 
Y

yeniaslan

Katılım
22 Haziran 2007
Mesajlar
58
Excel Vers. ve Dili
tr 2010
Altın Üyelik Bitiş Tarihi
28/12/2022
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, [f5:f8]) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0).Value >= 25 Then


' MsgBox ActiveCell.Offset(-1, -5).Value & " ADLI &#220;R&#220;N 25 K&#286; KALMI&#350;TIR "

Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Dim msg As String
Recipient = "sevkiyat@ekonetbranda.com"

Subj = "Boya Stok"
msg = ActiveCell.Offset(-1, -5).Value & " adl&#305; &#252;r&#252;n " & ActiveCell.Offset(-1, 0) & " Kg kalm&#305;&#351;t&#305;r "

msg = WorksheetFunction.Substitute(msg, vbNewLine, "&#37;0D%0A")

HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg

ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"

End If
End Sub

e mail ' in mesaj g&#246;vdesine g&#246;md&#252;m.

ama her t&#305;klamada her de&#287;i&#351;iklikte g&#246;nderiyor.
&#231;al&#305;&#351;ma sayfas&#305; kapat&#305;ld&#305;&#287;&#305; zaman eksilenleri g&#246;nderme i&#351;ini yapamad&#305;m.

l&#252;tfen yard&#305;m....
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst