Helo,
Rwy'n ceisio anfon e-bost yn seiliedig ar newid gwerth celloedd anuniongyrchol (ee> 7), gyda'r atodiad e-bost a chyfeiriad celloedd penodol at y celloedd sydd wedi newid yn fy nghorff postio. Mae'r newid gwerth celloedd anuniongyrchol i lawr yn seiliedig ar y meini prawf. Fodd bynnag, rwy'n cael gwall 424 wrth geisio gosod newidyn i alw'r cyfeiriad cell yn fy e-bost. Allech chi gynorthwyo? Rwy'n teimlo fy mod yn agos.
Dim xRg Fel Ystod
Dim xRgSel Fel Ystod
'Gosod amrediad a tharged
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRgPre Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Gosod xRg = Ystod ("C2: C43")
Gosod xRgPre = xRg.Precedents
Gosod xRgSel = Croestorri(Targed, xRg)
ActiveWorkbook.Save
Os xRg.Value > 7 Yna
Ffoniwch Mail_small_Text_Outlook
ArallOs (Nid yw xRgPre Dim) A (Croesffordd(Targed, xRgPre). Cyfeiriad = Target.Address) Yna
Gorffennwch Os
Gorffennwch Os
Is-End
Is-bost_small_Text_Outlook()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Helo, cell(au)" & xRgSel.Address(Gau, Gau) & _
" yn y daflen waith '" Mae &Me.Name &"' yn 3 diwrnod ar ôl y cymeriant" & vbNewLine & vbNewLine & _
"Adolygwch ac estynwch at yr arweinydd(ion)" & vbNewLine & _
"Diolch"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dyddiau ers cymeriant plwm"
.Corff = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display' neu .Send
Diwedd Gyda
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Diolch!
Rwy'n ceisio anfon e-bost yn seiliedig ar newid gwerth celloedd anuniongyrchol (ee> 7), gyda'r atodiad e-bost a chyfeiriad celloedd penodol at y celloedd sydd wedi newid yn fy nghorff postio. Mae'r newid gwerth celloedd anuniongyrchol i lawr yn seiliedig ar y meini prawf. Fodd bynnag, rwy'n cael gwall 424 wrth geisio gosod newidyn i alw'r cyfeiriad cell yn fy e-bost. Allech chi gynorthwyo? Rwy'n teimlo fy mod yn agos.
Dim xRg Fel Ystod
Dim xRgSel Fel Ystod
'Gosod amrediad a tharged
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRgPre Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Gosod xRg = Ystod ("C2: C43")
Gosod xRgPre = xRg.Precedents
Gosod xRgSel = Croestorri(Targed, xRg)
ActiveWorkbook.Save
Os xRg.Value > 7 Yna
Ffoniwch Mail_small_Text_Outlook
ArallOs (Nid yw xRgPre Dim) A (Croesffordd(Targed, xRgPre). Cyfeiriad = Target.Address) Yna
Gorffennwch Os
Gorffennwch Os
Is-End
Is-bost_small_Text_Outlook()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Helo, cell(au)" & xRgSel.Address(Gau, Gau) & _
" yn y daflen waith '" Mae &Me.Name &"' yn 3 diwrnod ar ôl y cymeriant" & vbNewLine & vbNewLine & _
"Adolygwch ac estynwch at yr arweinydd(ion)" & vbNewLine & _
"Diolch"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Dyddiau ers cymeriant plwm"
.Corff = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display' neu .Send
Diwedd Gyda
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Diolch!