Helló,
Közvetett cellaérték-változás (pl. > 7) alapján próbálok e-mailt küldeni, az e-mail melléklettel és a kimenő levelem törzsében a megváltozott cellákra vonatkozó konkrét cella hivatkozással. A közvetett cellaérték változást a kritériumok alapján csökkentettem. Azonban 424-es hibaüzenetet kapok, amikor olyan változót próbálok beállítani, amely meghívja a cella címét az e-mailembe. Tudna segíteni? Úgy érzem, közel vagyok.
Dim xrg mint tartomány
Dim xRgSel As Range
' Állítsa be a hatótávolságot és a célt
Private Sub Worksheet_Change (ByVal Target mint Range)
Dim xRgPre As Range
On Error Resume Next
Ha Target.Cells.Count > 1, akkor lépjen ki a Sub-ból
Set xRg = Tartomány("Q2:Q43")
Állítsa be az xRgPre = xRg.Precedents
Beállítás xRgSel = Metszéspont(cél, xRg)
ActiveWorkbook.Save
Ha xRg.Value > 7 Akkor
Hívja a Mail_small_Text_Outlook alkalmazást
ElseIf (Not xRgPre is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Then
Ha véget
Ha véget
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp mint objektum
Dim xOutMail mint objektum
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xOutMail = xOutApp.CreateItem(0)
xMailBody = "Sziasztok, cellák" & xRgSel.Address(False, False) & _
" a "" munkalapon és a Me.Name & "" 3 nappal a bevitel után" & vbNewLine & vbNewLine & _
"Kérjük, tekintse át, és forduljon a vezető(k)hez” & vbNewLine & _
"Köszönöm"
On Error Resume Next
Az xOutMail segítségével
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Az ólombevitel óta eltelt napok száma"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Megjelenítés 'vagy .Küldés
Vége
Hiba történt GoTo 0
Állítsa be az xOutMail = Semmit
Állítsa be az xOutApp = Semmit
End Sub
Köszönjük!
Közvetett cellaérték-változás (pl. > 7) alapján próbálok e-mailt küldeni, az e-mail melléklettel és a kimenő levelem törzsében a megváltozott cellákra vonatkozó konkrét cella hivatkozással. A közvetett cellaérték változást a kritériumok alapján csökkentettem. Azonban 424-es hibaüzenetet kapok, amikor olyan változót próbálok beállítani, amely meghívja a cella címét az e-mailembe. Tudna segíteni? Úgy érzem, közel vagyok.
Dim xrg mint tartomány
Dim xRgSel As Range
' Állítsa be a hatótávolságot és a célt
Private Sub Worksheet_Change (ByVal Target mint Range)
Dim xRgPre As Range
On Error Resume Next
Ha Target.Cells.Count > 1, akkor lépjen ki a Sub-ból
Set xRg = Tartomány("Q2:Q43")
Állítsa be az xRgPre = xRg.Precedents
Beállítás xRgSel = Metszéspont(cél, xRg)
ActiveWorkbook.Save
Ha xRg.Value > 7 Akkor
Hívja a Mail_small_Text_Outlook alkalmazást
ElseIf (Not xRgPre is Nothing) And (Intersect(Target, xRgPre).Address = Target.Adress) Then
Ha véget
Ha véget
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp mint objektum
Dim xOutMail mint objektum
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Állítsa be az xOutMail = xOutApp.CreateItem(0)
xMailBody = "Sziasztok, cellák" & xRgSel.Address(False, False) & _
" a "" munkalapon és a Me.Name & "" 3 nappal a bevitel után" & vbNewLine & vbNewLine & _
"Kérjük, tekintse át, és forduljon a vezető(k)hez” & vbNewLine & _
"Köszönöm"
On Error Resume Next
Az xOutMail segítségével
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Az ólombevitel óta eltelt napok száma"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Megjelenítés 'vagy .Küldés
Vége
Hiba történt GoTo 0
Állítsa be az xOutMail = Semmit
Állítsa be az xOutApp = Semmit
End Sub
Köszönjük!