Hatırlatma

[yaramaz_31]

Hepinize selemlar tablomda b 2 ile b 100 arası ödeme tarihleri c 2 ile c 100 arası ödenecek tutarlar var istediğim tablomu açtığımda ödeme günü gelenleri bir mesaj penceresinde listelemesi ve ödemesi gecenleride yine bir mesaj penceresinde göstermesini istiyorum yardımlarınızı bekliyorum hepinizden allah razı olsun.

 

[Excelmy]

Sayın yaramaz_31

Ekli dosyayı inceleyiniz.

 

[numan şamil]

Sayın Kuman
Affınıza sığınarak kodlarınıza ufak bir ek yaptım
sayfa açılınca direk userform açılması için

 

[yaramaz_31]

kuman ve numan bey teşekürler ellerinize sağlık güzel olmuş eğer bunu bana userformsuz olarak yaparsanız daha iyi olacak benim birçok buna benzer tablolarım var onlarada uygulayacam ben acemiyim userform yapmasını bilmiyorum yani excel tablomu açtığımda açılan bir pencerede göstermesini istiyorum

 

[Necdet]

Merhaba,

Çok basit bir çözüm öneriyiorum size.

D2 hücresine aşağıdaki formülü yazın ve aşağıya doğru kopyalayın, sonra D sütununa göre süzme ile amacınıza ulaşabilirsiniz.

=EĞER(B2=BUGÜN();"Bugün";EĞER(B2<BUGÜN();"Geçmiş";""))

 

[yaramaz_31]

On Error Resume Next
bulunan = ""
bul = Range("Q29:Q51").Find(Date).Row

If bul > 0 Then
With Range("Q29:Q51")
Set c = .Find(Date)
If Not c Is Nothing Then
firstAddress = c.Address
Do
bulunan = bulunan & Cells(c.Row, 44) & " " & Cells(c.Row, 16) & " " & Cells(c.Row, 45) & " --> " & c.Text & Chr(13)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox bulunan, vbInformation, " BUGÜN ÖDEMESİ GELENLER"
End If
End Sub

Bu kod günü gelenleri gösteriyor günü geçenleri de gösterte bilirseniz istediğim gibi olacak tşk.

 

[Necdet]

Bu kod günü gelenleri gösteriyor günü geçenleri de gösterte bilirseniz istediğim gibi olacak tşk.

5. mesajdaki formülleri incelediniz mi?

 

[mcetinkaya65]

Sayın hocalarım emeğiniz için teşekkürler.Bu tarihlerde bu borç kime olduğunuda da bir stunda görsek daha iyi olmaz mı.

 

[lilipar]

Sayın yaramaz_31

Ekli dosyayı inceleyiniz.

Sayın Yaramaz Çok Güzel ve basit olmuş programınız ellerinize sağlık.Bir Sütünada not yazabilsek Örn.Kime Yada Ne ödemesi olduğunu.
İyi çalışmalar dilerim.

 

[Excelmy]

Sayın hocalarım emeğiniz için teşekkürler.Bu tarihlerde bu borç kime olduğunuda da bir stunda görsek daha iyi olmaz mı.

Sayın Yaramaz Çok Güzel ve basit olmuş programınız ellerinize sağlık.Bir Sütünada not yazabilsek Örn.Kime Yada Ne ödemesi olduğunu.
İyi çalışmalar dilerim.

Armut piş ağzıma düş.

 

[mcetinkaya65]

Sayın kuman teşekkürler.
Armudu pişrebilsek zaten kendimiz yapardık.Sizlere zahmet vermezdik.Vaktinizi aldığımız için özür dileriz.
saygılarımla.

 

[lilipar]

Armut piş ağzıma düş.[/Q

Sayın Kuman
Tam Size teşekkür edecektim.Nekeadar hızlı döndünüz diye.Sizden ummadığım bi tepki aldım ve buna hem üzüldüm hemde şaşırdım bu sitede hiçbir üstat böyle davranmadı hemen dönüp yazdığımı okudum bi ukalalıkmı yaptım diye ama bulamadım.Size verdiğim rahatsızlıktan dolayı üzgünüm.Ama Dünyada paylaşmaktan yardımcı olmaktan daha iyi ne olabilirki ?

 

[Excelmy]

Sayın mcetinkaya65
Neden olmasın ?
Dileğimiz tabi kendinizinde yapabilmesidir.
En başta foruma üye olarak bu konuda en önemli adımı atmışsınız.
Hatta oldukça yol almışsınız bakın forumda 100. mesajınız.
Zahmet vermek konusunda size katılmıyorum.
Aynı düşüncede olsam bu konu başlığı altındaki #10 ve #11. mesajları değerlendirmeye almazdım.
Bu forum ve üyeleri için zahmet vermek veya vakit harcamak bizler için onurdur.
Bilakis serkeş davranışlar, konu başlığını açan arkadaşımızı ve yardımcı olma çabasında olanları üzer.
Başarılar dilerim.

Sayın lilipar
Vermiş olduğum tepki, düşündüğünüz amacın dışındadır.
Bilginize.