Ödeme Bildirimi

[asdek]

Merhabalar,

Ben bir alacak tablosu planı hazırladım.
Ödeme tarihleri 7 günlük ödemesi yaklaşanları bildirim ile bana uyarı verebilir mi ayrı bir bildirim penceresinde ?

Yada bildirim butonu 7 gün yaklaşanları buton bildirim verecek renk yanıp sönecek o butona bastığımda şu adamların şu kadar borcu var ve tarihleri ekte gördüğünüz gibi ayrı bir bildirim verecek.

Yardımcı olursanız sevinirim.

Saygılarımla.

 

[excel41]

Merhabalar,

Ben bir alacak tablosu planı hazırladım.
Ödeme tarihleri 7 günlük ödemesi yaklaşanları bildirim ile bana uyarı verebilir mi ayrı bir bildirim penceresinde ?

Yada bildirim butonu 7 gün yaklaşanları buton bildirim verecek renk yanıp sönecek o butona bastığımda şu adamların şu kadar borcu var ve tarihleri ekte gördüğünüz gibi ayrı bir bildirim verecek.

Yardımcı olursanız sevinirim.

Saygılarımla.

dosyayı inceleyin

 

[excel41]

Merhabalar,

Ben bir alacak tablosu planı hazırladım.
Ödeme tarihleri 7 günlük ödemesi yaklaşanları bildirim ile bana uyarı verebilir mi ayrı bir bildirim penceresinde ?

Yada bildirim butonu 7 gün yaklaşanları buton bildirim verecek renk yanıp sönecek o butona bastığımda şu adamların şu kadar borcu var ve tarihleri ekte gördüğünüz gibi ayrı bir bildirim verecek.

Yardımcı olursanız sevinirim.

Saygılarımla.

yanlış ek koymuşum

 

[asdek]

Makro1 makrosu çalıştırılamıyor uyarısı çıkıyor. Ve çalışmıyor

 

[excel41]

3 nolu mesaja bakın lütfen

 

[asdek]

Teşekkürler, Ama ayrı bir pencerede olmasını ve butonun yanıp sönmesini istemiştim yapabilmemiz mümkün mü acaba ?

 

[excel41]

ayrı pencere den kastınız ayrı sayfamı ? ve butonmu yanıp sönsün yoksa tarihlerdeki renk mi ?

 

[asdek]

Sevgili excel41,
Tarihleri tam yazıp ne demek istediğimi anlatmak istiyorum. Örnekli gösteriyorum.
Saygılarımla.

 

[asdek]

Sayfa2 'de

Tekrar Merhaba excel41,

Sayfa2 de örnek verdiğim gibi olabilirse çok sevinirim.

Saygılarımla.

 

[askm]

Aşağıdaki şekilde uyarı verdirebilirsiniz.

Sub Makro1()
'
' Makro1 Makro
'

'
Dim SonSatir, SonSatir2 As Integer
SonSatir = Range("F65536").End(xlUp).Row

Sayfa2.Cells.ClearContents

    Range("A2:F" & SonSatir).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$F" & SonSatir).AutoFilter Field:=6, Criteria1:=RGB(156, 0 _
        , 6), Operator:=xlFilterFontColor
        
    Sheets("Sayfa1").Range("A1:D65536").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Sayfa2").Range("A1")
    SonSatir2 = Sheets("Sayfa2").Range("D65536").End(xlUp).Row
    For i = 2 To SonSatir2
    mesaj = "Borç Ödemeyenler : " & vbCr
        msj = msj & Sheets("Sayfa2").Cells(i, 1) & " - " & Sheets("Sayfa2").Cells(i, 3) & "TL - " & Sheets("Sayfa2").Cells(i, 4) & vbCr
    Next
    MsgBox mesaj & vbCr & msj
    Sayfa2.Cells.ClearContents
End Sub

 

[asdek]

Sevgili askm,

İlginiz için teşekkür ederim. Son gönderdiğim ekteki Sayfa2 deki örnekte nasıl yapmak istediğim örnek mevcuttur. Böyle birşey yapmamız mümkün müdür ?
Saygılarımla.

 

[antonio]

Merhabalar,

Ben bir alacak tablosu planı hazırladım.
Ödeme tarihleri 7 günlük ödemesi yaklaşanları bildirim ile bana uyarı verebilir mi ayrı bir bildirim penceresinde ?
Yada bildirim butonu 7 gün yaklaşanları buton bildirim verecek renk yanıp sönecek o butona bastığımda şu adamların şu kadar borcu var ve tarihleri ekte gördüğünüz gibi ayrı bir bildirim verecek.
Yardımcı olursanız sevinirim.
Saygılarımla.

Dosyanızı biraz değiştirerek daha pratik bir yöntem hazırladım. Dosyanızdaki bildirimler açılışta otomatik olarak görüntülenir. Bilgileri değiştirip kapatın, sonra yeniden açarak sonucu gözlemleyiniz. Herhangi bir butona basmanız gerekmiyor. İllede butona bağlamak istiyorsanız basit bir değişiklikle yapılablilir. Tercih sizin. Dosyanız ektedir.

 

[askm]

Ben de userform ile yapmaya çalıştım.

 

[antonio]

12 no'lu mesajımdaki dosyayı; açılışta verdiği bilgilerin yanısıra, tarihlerde yapılan değişiklikle güncellenecek şekilde değiştirdim. Bu durumda 1.Sayfanın hiçbir işlevi bulunmuyor.
Kodlar aşağıdaki gibidir:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, a(), b(), sh As Worksheet, ss As Long, n As Long, sat As Long
sat = 0
n = sat
Set sh = Sheets("Sayfa2")
If Not Intersect(Target, sh.Range("D2:D" & Rows.Count)) Is Nothing Then
sat = Target.Row
If sh.Range("A" & sat).Value = "" Or sh.Range("C" & sat).Value = "" Or _
    Target.Value = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ss = sh.Range("A" & Rows.Count).End(3).Row
a = sh.Range("A2:D" & ss)
ReDim b(1 To 3, 1 To 1)
Set d = CreateObject("scripting.dictionary")

For i = 1 To UBound(a)
    isim = a(i, 1)
    tarih = CDate(a(i, 4))
    fark = (tarih - CDate(Date))
    aranan = isim & "#" & tarih
    If fark <= 7 Then
    If Not d.exists(aranan) Then
        n = n + 1
        d.Add aranan, n
        sat = n
    Else
        sat = d(aranan)
    End If
    If n > 0 Then
    ReDim Preserve b(1 To 3, 1 To n)
    b(1, sat) = a(i, 1)
    b(2, sat) = a(i, 4)
    b(3, sat) = b(3, sat) + a(i, 3)
    End If
    End If
Next i
sh.Range("G9:J" & Rows.Count).ClearContents
If n > 0 Then
sh.Range("G9").Resize(n, 3).Value = _
Application.Transpose(b)
End If
If n > 0 Then
With sh.Range("G7")
    .Value = n & " ADET ÖDEMENİZ BULUNMAKTADIR."
    .Interior.ColorIndex = 3
    .Font.Color = vbYellow
    .Font.Bold = True
End With
ElseIf n = 0 Then
With sh.Range("G7")
    .Value = "ÖDEMENİZ YOKTUR :))"
    .Interior.ColorIndex = 20
    .Font.ColorIndex = 1
    .Font.Bold = True
End With
End If
End If
Set d = Nothing
Erase a
Erase b
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[antonio]

Mesaj ekinde dosya bulunan mesajımdaki dosyayı güncelledim. Sehven Change yerine SelectionChange olayına atanmış kodları doğru olaya (Change) atadım.

 

[assenucler]

Teşekkür, bir sorun ve yardım isteği

Sayın antonio,


Dosya ilgimi çekti. 12. iletideki dosyayı indirdim ve açıldığında aşağıdaki hata iletisini alıyorum. Nedeni ne olabilir?

Son iletide 12. mesajdaki dosyayı güncellediğinizi yazıyorsunuz, 12. mi, yoksa 14. iletideki kodlar mı kullanılacak?

Yardımınız ve emeğiniz için teşekkürler.

 

[antonio]

Şu anda 12 no'lu mesajımdaki dosya günceldir. Makro kodları henüz etkinleşmeden dosya açıldığı için, dosyanın açılış kodlarına atanan değişkenler değer kazanmadığı için o hata oluşabilir. Siz içeriği ve makroları etkinleştirip dosyayı da bilgisayarınıza kaydedin, tekrar açın, sonuçları gözlemleyin. Durumu paylaşın. Hata varsa giderilir.

 

[asdek]

Sevgili askm ve antonio çok teşekkür ederim ilginiz için.

askm arkadaşımın yaptığı userform çok güzel olmuş tam istediğim gibi, ayrıca antonio nun yaptığı da takdire şayendir.

Sevgili askm, bu user form u biraz daha geliştirebilir miyiz ? Ö.M. yazabilir miyim ?

 

[askm]

Ö.M nedir?

 

[assenucler]

Sayın antonio,


Sorunsuz çalışıyor. Bir kez daha teşekkürler.