5 gün önceki veriler için

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

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

Me.Caption = "SİGORTA HATIRLATMALARI"
ListBox1.ColumnWidths = "90;120"
For X = 2 To Range("A65536").End(3).Row
If Cells(X, 1) >= Date And Cells(X, 1) <= Date + 5 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
-----------------
Yukarıdaki kod ile, userformda, tarihten 5 gün sonrakileri listeliyor.
Tarihten (bu günden) 5 gün önceki verileri listelemesi için nasıl bir değişiklik yapılabilir.

Şimdiden teşekkürler.

 

[halit3]

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

Me.Caption = "SİGORTA HATIRLATMALARI"
ListBox1.ColumnWidths = "90;120"
For X = 2 To Range("A65536").End(3).Row
If Cells(X, 1) >= Date And Cells(X, 1) <= Date + 5 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
-----------------
Yukarıdaki kod ile, userformda, tarihten 5 gün sonrakileri listeliyor.
Tarihten (bu günden) 5 gün önceki verileri listelemesi için nasıl bir değişiklik yapılabilir.

Şimdiden teşekkürler.

If Cells(X, 1) >= Date And Cells(X, 1) <= Date + 5 Then

yukarıdaki bölümün yerine aşağıdaki bölümü denermisiniz.

If Cells(X, 1) <= Date And Cells(X, 1) >= Date - 5 Then

Private Sub UserForm_Initialize()
Dim X As Long, Satır As Long
Me.Caption = "SİGORTA HATIRLATMALARI"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "90;120"
For X = 2 To Range("A65536").End(3).Row
If Cells(X, 1) <= Date And Cells(X, 1) >= Date - 5 Then
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

 

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

Teşekkürler.

 

[halit3]

Teşekkürler.

Teşekkürler iyi çalışmalar