Excell Sayfasında Mesaj Kutusu Getirme

[karakrall01]

Herkese iyi geceler, çalışmış olduğum bir excel kitabıma bir özellik eklemek istiyorum çok baktım ama bir türlü işime yarayacak birşeyler bulamadım; benim istediğim örnek olarak eklemiş olduğum çalışma kitabında belirlemiş olduğum tarihe 2 gün kalan olduğunda excell çalışma sayfamı açtığımda ilk olarak karşıma bir mesaj kutusunun gelmesini istiyorum ".... isimli kişinin 2 günü kalmıştır" tarzında bunu nasıl yapabilirim yardımcı olursanız çok mutlu olurum tekrardan herkese hayırlı geceler diliyorum

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[karakrall01]

Merhaba;
Eki deneyin.
İyi çalışmalar.

teşekkür ederim tamda istediğim bu şekilde birşeydi ayrıca birşey daha sormak istiyorum ;

Sub Autpen()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("ZAMAN_SAYACI")
For i = 2 To s1.Range("g65536").End(xlUp).Row
If s1.Cells(i, "g") >= 1 And s1.Cells(i, "g") <= 2 Then
msg = msg & s1.Cells(i, "a") & "=" & s1.Cells(i, "g") & " Günü Kaldı." & Chr(10)
End If
Next i
MsgBox Prompt:=msg, Buttons:=vbCritical + vbYes, Title:=" U Y A R I"
End Sub

bu kod kısmında bulunan "For i = 2 To s1.Range("g65536").End(xlUp).Row" kısmında bulunan yerde "-G" dizisi içerisinde arama yaptırmak için ayarlamışsınız peki ben bunu örneğin e15-e45 aralığında aratmak istiyorum onu nasıl yapabilirim yani g65536 yerine nasıl bi kod yazabilirim istediğim aralık içerisinde aramasını yapmam için? tekrardan teşekkür ederim sağolunn

 

[muygun]

Merhaba;
kodlardaki;

For i = 2 To s1.Range("g65536").End(xlUp).Row
If s1.Cells(i, "g") >= 1 And s1.Cells(i, "g") <= 2 Then

satırlarını aşağıdaki gibi düzenleyin.

For i = 15 To s1.Range("e45").End(xlUp).Row
If s1.Cells(i, "e") >= 1 And s1.Cells(i, "e") <= 2 Then
msg = msg & s1.Cells(i, "a") & "=" & s1.Cells(i, "e") & " Günü Kaldı." & Chr(10)

İyi çalışmalar.

 

[karakrall01]

Merhaba;
kodlardaki;

For i = 2 To s1.Range("g65536").End(xlUp).Row
If s1.Cells(i, "g") >= 1 And s1.Cells(i, "g") <= 2 Then

satırlarını aşağıdaki gibi düzenleyin.

For i = 15 To s1.Range("e45").End(xlUp).Row
If s1.Cells(i, "e") >= 1 And s1.Cells(i, "e") <= 2 Then

İyi çalışmalar.

Yardımınız için teşekkür ederim. Tam istediğim gibi oldu. Sağolun