• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ödeme Bildirimi

Sanırım bu kodlar da alternatif olabilir..
İlgili sayfanın kod kısmına bu kodları yapıştırıp, ÖDEME TARİHİ sütununa veri girişi yapınız.
Gerekli verileri listeleyip tarihe göre sıralama yapar, ödeme var yok onun bilgisini yazar.

Kod: 
[FONT="Trebuchet MS"][SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    Application.EnableEvents = False
    Range("G9:I10000").ClearContents
    tarih = VBA.Date + 7: sat = 9
    For i = 2 To Range("D65536").End(3).Row
        If CDate(Cells(i, 4).Value) <= tarih Then
            Set ilk = Range("A" & i)
            Set diger = Range(Cells(i, 3), Cells(i, 4))
            Set birlestir = Union(ilk, diger)
            birlestir.Copy
            Range("G" & sat).PasteSpecial xlPasteValues
            sat = sat + 1: say = say + 1
        End If
    Next i
    Range("G7").Value = IIf(say = 0, "ÖDEME BULUNMAMAKTADIR.", say & " ADET ÖDEME BULUNMAKTADIR.")
    Target.Select: Application.CutCopyMode = False
    Range("G9:I10000").Sort Range("I9"), 1
    Application.EnableEvents = True
End Sub
[/SIZE][/FONT]
 
Merhabalar,

Ekte göndermiş olduğum dosyada bildirim butonuna tıkladığımda sadece 1 isim geliyor, oysa önümüzdeki 7 günün (yani tarih sıralamasına göre) bildirimini yapmasını istiyorum. Sizden ricam userform da bir kaç daha düzenleme yapabilir miyiz ?
Örneğin bildirim penceresinde (userform) 7 günlük ödeme listesini yazdır butonu ekleyebilir miyiz ? (Bu arada küçük yazıcım var ona uyarlamam gerekiyor)

Diğer bir husus o listeden seçtiğim kişiye çift tıkladığımda o satıra gidebilir mi ?

Saygılarımla.
 

Ekli dosyalar

askm' Alıntı:
Dosyanız ektedir.
Genişletmek için tıkla ...

askm, bu ilk yaptığın dosya evet bunda dediğim oluyor. Fakat (F) sütununu baz alıyor, sadece D sütununu baz alacak. ayrıca userform a yazdır seçeneği eklemek istiyorum ama bende iki tane yazıcı var ikinci yazıcım küçük onu eklemek istiyorum. El kadar kağıda döksün istiyorum.
Benim gönderdiğim ekteki son dosyayı incelermisin ? (#23) nolu mesaj.
 
Yazıcı seçimi için iki tane kod var elimde.
Ama denemedim hiç.
1. Kod
Kod: 
Sub PrintToAnotherPrinter()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = "hp laserjet 1022 on ne02:"
    ' change printer
    ActiveSheet.PrintOut
    ' prints the active sheet
    Application.ActivePrinter = STDprinter
    ' change back to standard printer
End Sub

2.Kod
Kod: 
Sub a()
Dim Yazıcı As String
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub
End Sub
 
askm' Alıntı:
Kusura bakmayın yanlış dosya eklemişim.
Genişletmek için tıkla ...

Teşekkür ederim, ama 7 günlük olmamış 5 günlük bu. Ayrıca yazdırma butonu ekleme
şansımız var mı dilediğimiz yazıcıya yazdırma userform u ?
Ayrıca bakiye yazan yere telefonları getirebilir miyiz ?
 
5 günlük değil ki. Ayın 5 ini alıyor. Bugün ayın 29 u.
30, 31, 1, 2, 3, 4, 5 günleri alıyor. Yazıcı için de userform üzerinden değil de sayfa 2 üzerinden çıktı alınabilir. Verileri zaten sayfa2 e alıyor önce, formu kapatınca da sayfa2 temizliyor. Dilerseniz userforma bir buton ekleyip sayfa2 yi yazdırabiliriz.
 
askm, Evet haklısın teşekkür ederim. Ama butona bastığımda sayfa 2 de bişiler yok eklemiyor yani. Ayrıca userform a yazıcı butonu ekleyelim ama benim ikinci yazıcı üzerinden yazdıracak olur mu öyle ? Birde bakiye yerine telefon numaraları gelse daha iyi olacak.
Saygılarımla.
 
Çok teşekkür ederim, ellerinize sağlık askm. Tam istediğim gibi ;-)
Peki son birşey, kodun içerisine belirlediğimiz yazıcıdan direkt yazdır dediğimizde yazdırabilir mi ?
 
Onun için yukarda 1.kod şeklinde verdiğim kod ile denemen gerekli. Yazıcı marka model bilgilerine göre yazıp denemen gerekli.
 
Sayın askm,


Dosyayı öylesine indirdim.

Düğmeye tıklayınca, Userform tarih sütunundaki tarihler niye hatalı gözüküyor, nedeni ne olabilir?

Emek ve katkı verenlere teşekkürler.

Sevgi ve saygılar.
 

Ekli dosyalar

Aşağıdaki kod ile değiştirin.
Kod: 
Sub Makro1()
Dim s1, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select
    Application.EnableEvents = False
    s2.Range("A2:D10000").ClearContents
    tarih = VBA.Date + 7: sat = 2
    For i = 2 To s1.Range("D65536").End(3).Row
        If CDate(Cells(i, 4).Value) <= tarih Then
            Set ilk = s1.Range("A" & i)
            'Set diger = s1.Range(Cells(i, 3), Cells(i, 4))
            Set diger = s1.Cells(i, 2)
            Set diger2 = s1.Cells(i, 4)
            Set birlestir = Union(ilk, diger, diger2)
            birlestir.Copy
            s2.Range("A" & sat).PasteSpecial xlPasteValues
            sat = sat + 1: say = say + 1
        End If
    Next i
    Application.CutCopyMode = False
    Application.EnableEvents = True
    UserForm1.Show
   ' Sayfa2.Range("a2:d65000").ClearContents
End Sub
 
Userformda hangi bilgiler gözükmesi gerekiyor. Ayrıca yazıcıdan çıktı alırken hangi bilgileri gelmesi gerekiyor. Belirtirseniz yardımcı olmaya çalışayım.
 
askm' Alıntı:
Userformda hangi bilgiler gözükmesi gerekiyor. Ayrıca yazıcıdan çıktı alırken hangi bilgileri gelmesi gerekiyor. Belirtirseniz yardımcı olmaya çalışayım.
Genişletmek için tıkla ...

31# nolu mesajdaki yaptığınız userform ile ilgili bildirim çalışmasını #37 nolu ekteki çalışmama göre uyarlayabilir misiniz ?

Saygılarımla.
 
Anladım onu da userform da hangi bilgileri göstermesini istiyorsunuz. Ve yazıcıdan hangi sütunları almak istiyorsunuz. Bunları bildirirseniz ona göre userform ayarlayayım. Mevcut userformda 3 sütun gözüküyor. Fazla sütun olursa userform büyümesi gerekir. Usreformda örneğin sadece tarih adı soyadı vs. yeterli. Çıktı ekranında da şu sütunlar olması gerekli gibi yazarsanız.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst