• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

  • Konuyu Başlatan Konuyu Başlatan Bluekaya
  • Başlangıç tarihi Başlangıç tarihi
  • Görüntülenme 1,255
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Bluekaya

Bluekaya

Yeni Üye
Katılım
23 Mar 2021
Mesajlar
225
Çözümler
3
Aldığı beğeni
31
Excel V
Office 2016 TR
Konu Sahibi
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.
 
Tarihe göre sırala Oylara göre sırala
Sayın Bluekaya,

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

Saygılarımla,
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
halily' Alıntı:
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
Genişletmek için tıkla...
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
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst