Excelden vba daki Tarihe göre veri almak

[cemilk]

Userform üzerindeki tarih e göre excel sayfasında bulunan verilerin tarihlerine bakacak ve sırayla userform da görüntüleyecek kod varmıdır_?

 

[Orion1]

Userform üzerindeki tarih e göre excel sayfasında bulunan verilerin tarihlerine bakacak ve sırayla userform da görüntüleyecek kod varmıdır_?

Var.

 

[cemilk]

ervren hocam yardım lütfen

evren hocam şimdi yapmak istediğim şey sevkiyat kayıt formu ile "sevkiyat" safyasına yazılan verileri termin yazılı formda hangi tarih var ise o tarihteki verileri getirerek SEVK NO ile sıralaması yardımcı olabilirmisin.

sana zahmet olmazsa eğer ekleyebilirsen termin sayfasına takvim gelmesini sağlarmısın.


Teşekkür ederim.

 

[Orion1]

Böyle olmaz.
siz 12 satır yapmışsınız.Bu 12 satır değilde 20 satır olabilir.Zaten şu anda 15 satır var.50 satırda olabilir.İleride ne olur belli olmaz.Programıınız yaparken tüm bunları göz önünde bulundurmalısınız.Bu textboxların yerine bir listview veya bir listbox koyun.Oradan seçtiğiniz br veriyi textbolara aktarak değişiklik yapabilir veya silebilirsiniz.Tasarım doğru değil.

 

[cemilk]

nasıl küçük bir uygulama yapabilirmisğiniz 12 den fazla satır olmaz yıllardır 12 i geçilmemiş o yüzden 12 baz aldım

 

[Orion1]

Dosyanız ekte.Açıklama bölümünü boş bıraktım.Sayfada açıklama ile ilgili bir sütun oluşturmamışsınız.Siz listele prosedüründe(Userformun modülünde)istediğiniz hücreyi yazınız.

Sub listele()
Dim sh As Worksheet, i As Long, x As Long
ListView1.ListItems.Clear
Set sh = Sheets("SEVKİYAT")
x = 1
For i = 2 To sh.Cells(65536, "C").End(xlUp).Row
    If sh.Cells(i, "C").Value = CDate(TextBox218.Text) Then
        ListView1.ListItems.Add , , x
        ListView1.ListItems(x).SubItems(1) = sh.Cells(i, "F").Value
        ListView1.ListItems(x).SubItems(2) = Format(sh.Cells(i, "E").Value, "#,##0.00")
        ListView1.ListItems(x).SubItems(3) = ""
        ListView1.ListItems(x).SubItems(4) = sh.Cells(i, "H").Value
        ListView1.ListItems(x).SubItems(5) = sh.Cells(i, "J").Value
        ListView1.ListItems(x).SubItems(6) = sh.Cells(i, "B").Value
        ListView1.ListItems(x).SubItems(7) = Format(sh.Cells(i, "D").Value, "dd.mm.yyyy")
        x = x + 1
    End If
Next i
        
End Sub

 

[Orion1]

Sevkiyat sayfasında,
C sütunundaki tarihi filtre eder.

 

[cemilk]

teşekkür ederim
ellerine sağlık.

 

[Orion1]

teşekkür ederim
ellerine sağlık.

Rica ederim.
İyi çalışmalar.