Hatırlatma (vadeye 5 gün kalanları)

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

Merhaba;

Ekli dosyada vadesine 5 gün kalanların hatırlatılması olayını yapamadım.

Açıklama dosya içindedir.

Şimdiden teşekkürler.

 

[Huseyinkis]

Merhaba;

Ekli dosyada vadesine 5 gün kalanların hatırlatılması olayını yapamadım.

Açıklama dosya içindedir.

Şimdiden teşekkürler.

if fonksiyonunu ekteki gibi değiştirip denermisiniz

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

 

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

Evet. Bu şekilde oldu.

Çok teşekkür ederim.

 

[masuk500]

merhaba
bu hatırlatma olayını başka bir çalışma kitabındaki butona uyarlayabilirmiyiz?

 

[aruda58]

Merhaba

Bu işlemi tarih satırı "o" ve açıklama satırı"a" olacak şekilde uyarlayabilir miyiz?

yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Userforma ait kodu aşağıdaki şekilde değiştirip deneyiniz.

Merhaba

Bu işlemi tarih satırı "o" ve açıklama satırı"a" olacak şekilde uyarlayabilir miyiz?

yardımlarınız için şimdiden teşekkür ederim.

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    
    Me.Caption = "SİGORTA HATIRLATMALARI"
    ListBox1.ColumnWidths = "70;120"
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, "[COLOR=red]O[/COLOR]") <= Date And Cells(X, "[COLOR=red]O[/COLOR]") >= Date - 5 Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, "[COLOR=red]O[/COLOR]"), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, [COLOR=red]1[/COLOR])
                 Satır = Satır + 1
            End With
        End If
    Next
    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

 

[jemalizm]

Merhabalar,

Aşağıdaki Kodu, yan yana aynı hizada olan 2 farklı hücreyi baz alarak listeleyecek şekilde nasıl düzenleriz?

Private Sub UserForm_Initialize()
    Dim X As Long, Satır As Long
    
    Me.Caption = "EMR HATIRLATMALARI"
    ListBox1.ColumnWidths = "70;120"
    For X = 2 To Range("A65536").End(3).Row
        If Cells(X, "z") >= Date And Cells(X, "z") <= Date + 10 Then
            ListBox1.ColumnCount = 2
            With ListBox1
                .AddItem
                .List(Satır, 0) = Format(Cells(X, "z"), "dd.mm.yyyy")
                .List(Satır, 1) = Cells(X, 1)
                 Satır = Satır + 1
            End With
        End If
    Next
    Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

 

[mertekin]

Yardım lütfen

if fonksiyonunu ekteki gibi değiştirip denermisiniz

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

kod değiştirmeme rağmen
eski tarih girildiğinde satır kırmızı oluyor ve sadece o satırı gösteriyor
bir haftalık ödenecek çek listesi alabilsin istiyorum ama nerede hata yaptığımı bulamadım
yazmak zorunda kaldım
yardımlarınız için şimdiden teşekkürler

 

[bornovalı1]

Merhaba;
Kodları kendime uyarlamaya çalıştım ama tek bir satırdan veri alabiliyorum. Devamını getiremedim. Yardımcı olursanız sevinirim.
Benim tablomda tarihler c5 ile o5 arasında almak istediğim bilgilerde c6 ve o6 arasında
Mevcut kodu c5 ten tarihi c6 dan da bilgiyi alacak şekilde uyarladım. Ama sağa doğru yani o hücresine doğru genişletemedim.
Yardımcı olursanız sevinirim. Teşekkürler.



Private Sub UserForm_Initialize()
Dim X As Long, Satır As Long
ListBox1.ColumnWidths = "70;120"
For X = 5 To Range("c6").End(3).Row
If Cells(X, "c") <= Date + 15 Then
ListBox1.ColumnCount = 2
With ListBox1
.AddItem
.List(Satır, 0) = Format(Cells(X, "c"), "dd.mm.yyyy")
.List(Satır, 1) = Cells(6, 3)
Satır = Satır + 1
End With
End If
Next
Call PlayIt("C:\Windows\Media\Tada.wav ", 1)
End Sub

 

[vardar07]

Aşağıdaki satırı

.List(Satır, 1) = Cells(6, 3)

Kırmızı ile belirtilen yerleri inceleyip kendinize göre ayarlayın.

.List(Satır, [COLOR="Red"]1[/COLOR]) = Cells([COLOR="red"]X, "D"[/COLOR])
.List(Satır, [COLOR="red"]2[/COLOR]) = Cells([COLOR="red"]X, "E"[/COLOR])
.List(Satır, [COLOR="red"]3[/COLOR]) = Cells([COLOR="red"]X, "F"[/COLOR])

 

[bornovalı1]

Teşekkür ederim sayın vardar 07 o sorunu sayenizde hallettim.
Takıldığım bir diğer nokta ise bu kod 5 nci satırı kontrol ediyor.Ben 7 ve 14 ncü satırlarda da kontrol etmesini istediğimi nasıl belirtebilirim?