• DİKKAT

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

Yaklaşan Tarih Kayıtlarını ListBox'a Almak

  • Konbuyu başlatan Konbuyu başlatan ormann
  • Başlangıç tarihi Başlangıç tarihi
O

ormann

Katılım
9 Ekim 2009
Mesajlar
1,626
Excel Vers. ve Dili
türkçe
2003
Merhabalar;
Ekli dosyada Kayıtlar sayfasında AB sütünun daki Ödeme Tarihleri yazılı kayıtlardan ödemesine 15 gün kalanları ve S sütununda Bedelli yazılanları veri sayfasında ListBox2 'ye İzin Alanını;İzin Sahibini ,Bedel türünü ve Ödeme Tarihlerini aldırabilir miyiz ?. Yardımlarınızı bekliyorum.Saygılar

https://dosya.co/j081yx2ffwbq/İZİN_TAKİP.rar.html
 
Merhaba,
Aşağıdaki kodu Veri sayfasının kod bölümüne kopyalayıp deneyiniz.

Not1: 15 günden az kalanları listelemek için if sorgusunu If CDate(k.Cells(a, "AB")) >= Date And CDate(k.Cells(a, "AB")) - Date <= 15 Then şeklinde değiştiriniz.
Not2: Kayıtlar sayfasındaki AB5 hücresine tarihi =TARİH(YIL($AD$1);AY(T5);GÜN(T5)) formülüyle yazdırırsanız dosyanız daha doğru çalışacaktır.
İyi çalışmalar...
PHP: 
Private Sub Worksheet_Activate()
Set k = Sheets("KAYITLAR")
Me.ListBox2.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) - Date = 15 Then
        Me.ListBox2.AddItem
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 0) = k.Cells(a, "E")
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = k.Cells(a, "L")
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = k.Cells(a, "S")
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = k.Cells(a, "AB")
    End If
Next
End Sub
 
Ömer bey çok teşekkür ederim.Kayıt sayfasında S sütunun da BEDELSİZLER Listbox2 'ye gelmeyecek.Sadece BEDELLİ olanları aldırmak için makroyu nasıl yapmalıyız.Ayrıca Listbox2a gelen tarih formatı :05/20/2019 şeklinde .Bunu 20/05/2019 olarak yazdırabilir miyiz ?
*Aynı şartlarda birde kayıt sayfasında S sütununda BEDELLİ olanların ödeme tarihi geçenler GEÇTİ ise ve P sütununda YATMADI yazılanları Listbox3'e aldırabilir miyiz ?
 
Bedelli kısmını kaçırmışım ben.
Buyurunuz...
PHP: 
Private Sub Worksheet_Activate()
Set k = Sheets("KAYITLAR")
Me.ListBox2.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) - Date = 15 And k.Cells(a, "S") = "Bedelli" Then
        Me.ListBox2.AddItem
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 0) = k.Cells(a, "E").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = k.Cells(a, "L").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = k.Cells(a, "S").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = k.Cells(a, "AB").Text
    End If
Next
End Sub
Diğer isteğiniz için de if sorgusunu If CDate(k.Cells(a, "AB")) < Date And k.Cells(a, "S") = "Bedelli" And k.Cells(a, "P") = "YATMADI" Then şeklinde düzenleyin gerisi aynı olacak sadece Listbox2 yerine Listbox3 yazacaksınız.
İyi çalışmalar...
 
Ömer bey Listbox3 ü aynı sayfanın kod bölümünde Private Sub Worksheet_Activate() olarak nasıl kullanacağız ?
 
Ayrı bir kod kullanmayacaksınız, listbox2 için kullandığınız kodun devamına yazacaksınız.
Biraz afaki oldu ama siz kendinize göre düzenlersiniz.
Rich (BB code): 
Private Sub Worksheet_Activate()
Set k = Sheets("KAYITLAR")
Me.ListBox2.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) - Date = 15 And k.Cells(a, "S") = "Bedelli" Then
        Me.ListBox2.AddItem
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 0) = k.Cells(a, "E").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = k.Cells(a, "L").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = k.Cells(a, "S").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = k.Cells(a, "AB").Text
    End If
Next

Me.ListBox3.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) < Date And k.Cells(a, "S") = "Bedelli" And k.Cells(a, "P") = "YATMADI" Then
        Me.ListBox3.AddItem
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 0) = k.Cells(a, "E").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 1) = k.Cells(a, "L").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 2) = k.Cells(a, "S").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 3) = k.Cells(a, "AB").Text
    End If
Next
End Sub
 
Ömer bey Listbox3 te bir sütundaha ekleyip ödeme tarihi geçenlerin kaç gün geçtiğini bu sutüna yazdırmak mümkün müdür?
 
Kod: 
Me.ListBox3.List(Me.ListBox3.ListCount - 1, 4) = Date - CDate(k.Cells(a, "AB"))
 
Ömer bey listbox2 de ödemesine 15 gün kalanları göstermiyor.
 
Ömer bey Listbox2 de Ödeme Tarihine 15 Gün kalanları gösterecek. Gösterme şartı Bedelli ve Yatmadı olacak.Eğer Yattı İse Listbox2'de göstermeyecek.Birde dosya açıldığı zaman Listboxlara veriler gelmiyor.Sayfalar arası geçiş yaptığım zaman geliyor
 
Son düzenleme:
15 gün ve 15 günden az (0,1,2,3....15 gün) kalanlar.Ayrıca Listbox2 nin son sutununa 15 (Gün Kaldı),5(Gün Kaldı) gibi yazdırabilir miyiz ?.Listbox3 ün sob sütünuna da 5(Gün Geçti) ,20 (Gün Geçti) şeklinde yazdırabilir miyiz
 
Son düzenleme:
Listbox2'nin if sorgusunu şu şekilde düzenleyiniz
If CDate(k.Cells(a, "AB")) >= Date And CDate(k.Cells(a, "AB")) - Date <= 15 And k.Cells(a, "S") = "Bedelli" And k.Cells(a, "P") = "YATMADI" Then

Workbooks_Open olayına da
Kod: 
Sheets("KAYITLAR").Activate
Sheets("VERİ").Activate

veya
Kod: 
Application.Run "Sayfa8.Worksheet_Activate"
 
Listbox2 nin son sutununa 15 (Gün Kaldı),5(Gün Kaldı) gibi yazdırabilir miyiz ?.Listbox3 ün son sütünuna da 5(Gün Geçti) ,20 (Gün Geçti) şeklinde yazdırabilir miyiz
 
9 numaralı mesajda listbox3 için kodu vermiştim, ters çevirip CDate(k.Cells(a, "AB")) - Date yazdığınızda da kalan günü yazdırabilirsiniz.
Benden bu kadar, başka bir arkadaş yardımcı olacaktır.
Size kolay gelsin.
İyi geceler, iyi çalışmalar...
 
Ömer bey çok teşekkür ederim.Ellerinize sağlık.Ekli dosyada ListBox2 de ki 30 gün şartını veri sayfası üzerindeki ComboBox7'ye hangi günü yazarsam ListBox2'ye o güne kadar olan veriler gelebilir mi? Ben aşağıdaki makroda yaptım fakat olmadı.Rica etsem bakar mısınız ?
https://dosya.co/kvpmy75175xz/İZİN_TAKİP.rar.html

Kod: 
Private Sub Worksheet_Activate()
Set k = Sheets("KAYITLAR")
Me.ListBox2.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) >= Date And CDate(k.Cells(a, "AB")) - Date <= ComboBox7.Text And k.Cells(a, "S") = "Bedelli" And k.Cells(a, "P") = "YATMADI" Then
        Me.ListBox2.AddItem
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 0) = k.Cells(a, "E").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = k.Cells(a, "L").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = k.Cells(a, "S").Text
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = k.Cells(a, "AB").Text
       
        Me.ListBox2.List(Me.ListBox2.ListCount - 1, 4) = CDate(k.Cells(a, "AB")) - Date
     
        End If
Next
Me.ListBox3.Clear
For a = 5 To k.Cells(Rows.Count, "AB").End(3).Row
    If CDate(k.Cells(a, "AB")) < Date And k.Cells(a, "S") = "Bedelli" And k.Cells(a, "P") = "YATMADI" Then
        Me.ListBox3.AddItem
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 0) = k.Cells(a, "E").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 1) = k.Cells(a, "L").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 2) = k.Cells(a, "S").Text
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 3) = k.Cells(a, "AB").Text
       
        Me.ListBox3.List(Me.ListBox3.ListCount - 1, 4) = Date - CDate(k.Cells(a, "AB"))
    End If
Next
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst