Çözüldü Listview de tarihi geçen satırı otomatik uyarı

[Bluekaya]

Merhabalar hocalarım teknik1 adında bir excel sayfam var buraya arıza için gelen ürünleri kaydediyorum bir giriş birde çıkış tarihi var istediğim şu
gelen cihazın ilk giriş tarihinden 1 hafta geçince bana o müşterinin adını göstererek uyarı mesajı vermesidir. bunu exceli açınca değilde teknik adlı userform u açtığımda yapmalı. Teşekkür ederim ilgili dosyayı ekliyorum.

kullanıcı adı: kaya
şifre : 58

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[Bluekaya]

hatta o satırı kırmızıyada boyuyabilir.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Renk;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Bluekaya]

Renk;

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam çok teşekkür ederim nereye yapıştırıcam hepsini bu çalışma kitabına yapıştırınca hata verdi

 

[Bluekaya]

nereye koyarsam koyayım resimdeki hatayı veriyor

 

[DataMaestro]

Sayın Bluekaya,

Aynı isimle başlayan birden fazla prosedür "Private Sub UserForm_Activate()" bulunmaktadır.

Saygılarımla,

 

[Refaz]

Userforma kodlara ekleyin.........

 

[Bluekaya]

Userforma kodlara ekleyin.........

hocam ekledim hepsini çakışıyor sanırım

 

[Bluekaya]

Sayın Bluekaya,

Aynı isimle başlayan birden fazla prosedür "Private Sub UserForm_Activate()" bulunmaktadır.

Saygılarımla,

ne yapmalıyım onu hocam ?

 

[Bluekaya]

Userforma kodlara ekleyin.........

teknik adlı userform a mı ?

 

[halily]

işlemi userform açılınca yapmak istemiştiniz Refaz hocam da kodu ona göre yazmış yani kodu teknik adlı userforma yapıştıracaksınız

 

[Bluekaya]

Userforma kodlara ekleyin.........

tamam çözdüm hallettim hocam teşekkür ederim

 

[Bluekaya]

işlemi userform açılınca yapmak istemiştiniz Refaz hocam da kodu ona göre yazmış yani kodu teknik adlı userforma yapıştıracaksınız

hocam iki aynı isimle active kod olunca hata veriyordu ikisini aynı dim altında birleştirdim oldu teşekkür ederim.




Private Sub UserForm_Activate()
Dim i As Long, son As Long, trhSimdi As Date, bas As Date, trh As Date, say As Long, k As Byte

With Me.ListView1
son = .ListItems.Count
If son < 1 Then Exit Sub
For i = 1 To son
If Trim(.ListItems(i).Text) <> "" Then
trh = .ListItems(i).Text
bas = CDate(DateSerial(Year(trh), Month(trh), Day(trh)))
trhSimdi = CDate(DateSerial(Year(Date), Month(Date), Day(Date)))

If DateDiff("d", CDate(bas), CDate(trhSimdi)) * 1 > 7 Then 'Fark
.ListItems(i).ForeColor = vbRed
For k = 1 To 7
.ListItems(i).ListSubItems(k).ForeColor = vbRed
Next
End If
End If
Next
End With

ReDim arr(0)

With Me.ListView1
son = .ListItems.Count
If son < 1 Then Exit Sub
For i = 1 To son
If Trim(.ListItems(i).Text) <> "" Then
trh = .ListItems(i).Text
bas = CDate(DateSerial(Year(trh), Month(trh), Day(trh)))
trhSimdi = CDate(DateSerial(Year(Date), Month(Date), Day(Date)))

If DateDiff("d", CDate(bas), CDate(trhSimdi)) * 1 > 7 Then 'Fark
ReDim Preserve arr(say)
arr(say) = .ListItems(i).SubItems(3)
say = say + 1
End If
End If
Next
If say > 0 Then
MsgBox "Bir hafta gecenler altta>>>" & vbNewLine & vbNewLine & Join(arr, vbNewLine), vbInformation, "Bilgi"
End If
End With



End Sub

 

[Refaz]

Eğer mesaj ve renk olarak birleştirip çalıştıracaksanız ayarlarım kodu birazdan.

 

[Refaz]

Eğer mesaj ve renk olarak birleştirip çalıştıracaksanız ayarlarım kodu birazdan.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.