Açılışta hatırlatma notu

[İsmail Küçükşengün]

Merhaba,

Ekteki dosyada, A sütununda yazılı tarih ve 6 gün öncesine kadar hatırlatma konusundaki yardımlarınıza şimdiden teşekkür edrim.

 

[Ömer]

Merhaba,

Şart satırını,

If Cells(X, 1) <= Date [COLOR=red]And Cells(X, 1) >= Date - 5[/COLOR] Then

Bu şekilde değiştirmeniz yeterli olacaktır.

Aynı şekil de koşullu biçimlendirmedeki formülü,

=VE($A2<=BUGÜN();$A2>=BUGÜN()-5)

gibi değiştirmeniz yeterli olacaktır.

.

 

[İsmail Küçükşengün]

Sayın Ömer,

Kod sayfasını hallettim. Teşekkürler.
Ama koşullu biçimlendirmede formül hatası veriyor. Koşullu biçimlendirmeyi yapamadım.

 

[Ömer]

Eki inceleyiniz..

.

 

[İsmail Küçükşengün]

Çok teşekkür ediyorum.

İyi bayramlar dilerim.

 

[Ömer]

Rica ederim, sizede iyi bayramlar..

.

 

[ofis34]

tarih

Merhaba,

Şart satırını,

If Cells(X, 1) <= Date [COLOR=red]And Cells(X, 1) >= Date - 5[/COLOR] Then

Bu şekilde değiştirmeniz yeterli olacaktır.

Aynı şekil de koşullu biçimlendirmedeki formülü,

=VE($A2<=BUGÜN();$A2>=BUGÜN()-5)

gibi değiştirmeniz yeterli olacaktır.

.

sayın ömer hocam
bu kodu nasıl nereye yazacam yazmam konusunda yardımcı olabilirmisiniz
birde

Option Explicit

Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim X As Long, Satır As Long

Me.Caption = "HATIRLATMALAR"

For X = 2 To Range("A65536").End(3).Row
If Cells(X, 1) >= Date Then
ListBox1.ColumnCount = 2
With ListBox1
.AddItem
.List(Satır, 0) = Format(Cells(X, 1), "dd.mm.yyyy")
.List(Satır, 1) = Cells(X, 2)
Satır = Satır + 1
End With
End If
Next
Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

bu kodu sizin vermiş olduğunuz örnekteki gibi alıp kopyaladım.aynı şekilde kendi çalışmama yapıştırdım fakat olmadı
ben kendi çalışmamda tarihler G sütununda olacak şekilde olacak busütunun ayrıcalığı varmı bu konuda yradımcı olabilirmisiniz.

 

[Ömer]

Merhaba,

Dosyanızla ilgili küçük bir örnek dosya eklermisiniz..

.