!!Günü gelmek üzere olan tarihi excel i açmadan bildirecek ve ilgililere mail atacak

[ebrugkcn]

Bir önceki açtığım aynı konu kilitli idi ne yapacağımı şaşırdım yardım edin lütfen...

Merhaba çok acil bir kod yazmam gerekiyor, sitenizi yeni buldum ve bayıldım artık buradayım.

Excell 2010 İngilizce kullanıyorum

konumla ilgili önceden konular var ama net olarak yapamadım

şunun için ne yapabilirim;

staff name sütunundaki kişilerin en son almış olduğu ilgili eğitimleri F-L arası sütunda görüyoruz. bu sütundaki tarihlerden 2 sene sonra ilgili eğitimi yine almalı bunun için tarih yaklaşmasına 1 hafta kala bunu haber versin ve eğitim tarihine 1 hafta kalanların isimlerini bir kaç kişiye mail atsın.

bunun hem açık kodunu hemde excel e uygulanmış halini gönderir misiniz?

ilginize çok teşekkürler, emeğinize sağlık

 

[Ömer]

Merhaba,

Bu işlemleri yapmak için Exceli açmanız gerekir. Açmadan excel dışında bir exe yazılarak belki yapılabilir fakat bu da benim ilgilendiğim bir konu olmadığı için, bunu araştıracak zamanım yok maalesef.

Eğer açarak da olur derseniz:
G5 hücresi boş ve K4 hücresine N/A yazıyor. Bu durumlarda ne olacak?

.

 

[ebrugkcn]

Merhaba Ömer Bey dökümanın dediğiniz kısımlarını açmamış değilim orjinal dökümanda da buraları aynı şekildedir. Ne yapmalıyım excell de daha önceki açtığınız konulardan şu kodu yazmayı denedim ancak yazdığım kod yalnız hatırlatıcı, hatırlattıktan sonra hatırlattığı kişiye mail atmasını nasıl sağlayacağımı bilemedim..

Sub bildiri_mail()
On Error Resume Next
Dim hcr As Range, sat As Long, var As Boolean
sat = Sheets("sheet1").Cells(65536, "G").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "I").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "K").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "M").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "O").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "Q").End(x1Up).Row
sat = Sheets("sheet1").Cells(65536, "S").End(x1Up).Row

If sat < 4 Then Exit Sub
For Each hcr In Sheets("Sheet1").Range("G4:G" & sat)
For Each hcr In Sheets("Sheet1").Range("I4:I" & sat)
For Each hcr In Sheets("Sheet1").Range("K4:K" & sat)
For Each hcr In Sheets("Sheet1").Range("M4:M" & sat)
For Each hcr In Sheets("Sheet1").Range("O4:O" & sat)
For Each hcr In Sheets("Sheet1").Range("Q4:Q" & sat)
For Each hcr In Sheets("Sheet1").Range("S4:S" & sat)

If Day(hcr.Value) - 7 = Day(Date) And Month(hcr.Value) = Month(hcr.Value) Then

UserForm1.Listbox1.AddItem hcr.Offset(0, -3).Value
var = True
End If
Next
If var = True Then UserForm1.Show
End Sub


USER FORM

Private Sub UserForm_Initialize()
Me.Caption = "EĞİTİM HATIRLATMASI"
Labe11.Caption = "BUGÜN" & Format(Date, "dd.mm.yyyy") & "EĞİTİM HATIRLATMASI"

End Sub

 

[ebrugkcn]

Ayrıca bu kodu da çalıştıramadım