Tarih bul ve getir

[yamahato]

Merhaba
Giren ürün isimli Excel sayfasında alınan ürünlerle ilgili bilgi var.
Alınan ürünü arama kutusuna parçanın ismini girdiğimde ListBox1 de o isimle başlayan parçalar çıkıyor.
ListBox1 de çıkan parça kodlarından istediğime tıklayınca , parça ile ilgili bilgiler geliyor.

Şimdi bütün bilgiler mesela en son yapılan alımla olusan en son alım fiyatı geliyor ama
en son yapılan alımın tarihi değil. o malın ilk alındığı ve sisteme işlendiği tarih geliyor.
Aşağıda ki kodda ne yanlış sizce

Giren ürün= veri sayfasının ismi
F hücresi= aradığım verinin GİREN ÜRÜN sayfasında ki yeri
A Hücresi= F hücresinde aradığım verinin alım tarihlerinin yazılı olduğu dikey sütun

' *************** Label33 EN SON ARANILAN DEĞERİN EN SON ALINDIĞI TARİHİ YAZDIRMA ***************


Set s1 = Sheets("GİREN ÜRÜN")
son = s1.Cells(Rows.Count, "F").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("F1:F" & son), 0)
Label33 = s1.Cells(sat, "A")

 

[yamahato]

Merhaba
Giren ürün isimli Excel sayfasında alınan ürünlerle ilgili bilgi var.
Alınan ürünü arama kutusuna parçanın ismini girdiğimde ListBox1 de o isimle başlayan parçalar çıkıyor.
ListBox1 de çıkan parça kodlarından istediğime tıklayınca , parça ile ilgili bilgiler geliyor.

Şimdi bütün bilgiler mesela en son yapılan alımla olusan en son alım fiyatı geliyor ama
en son yapılan alımın tarihi değil. o malın ilk alındığı ve sisteme işlendiği tarih geliyor.
Aşağıda ki kodda ne yanlış sizce

Giren ürün= veri sayfasının ismi
F hücresi= aradığım verinin GİREN ÜRÜN sayfasında ki yeri
A Hücresi= F hücresinde aradığım verinin alım tarihlerinin yazılı olduğu dikey sütun

' *************** Label33 EN SON ARANILAN DEĞERİN EN SON ALINDIĞI TARİHİ YAZDIRMA ***************


Set s1 = Sheets("GİREN ÜRÜN")
son = s1.Cells(Rows.Count, "F").End(3).Row
sat = WorksheetFunction.Match(ListBox1.Value, s1.Range("F1:F" & son), 0)
Label33 = s1.Cells(sat, "A")

ÖRNEK DOSYALAR.

İndir ÇALIŞMA2

Dosyayı indir ÇALIŞMA2

dosya.co

İndir ÇALIŞMA2

Dosyayı indir ÇALIŞMA2

dosya.co

 

[Korhan Ayhan]

Kullandığını fonksiyon MATCH (KAÇINCI) üstten aşağıya doğru arama yapar. Eğer sizin en son alım dediğiniz bilgi tablonuzda en altta ise ve verileriniz tekrar ediyorsa doğru sonuca ulaşmamanız normaldir.

Eğer verileriniz tarih sıralı ise, yani son tarih hep en alt satırda ise aşağıdaki gibi deneyiniz.

' *************** Label33 EN SON ARANILAN DEĞERİN EN SON ALINDIĞI TARİHİ YAZDIRMA ***************
Set s1 = Sheets("GİREN ÜRÜN")
Son = s1.Cells(Rows.Count, "F").End(3).Row
Label33 = Format(Evaluate("=IFERROR(LOOKUP(2,1/('" & s1.Name & "'!F2:F" & Son & "=""" & ListBox1.Value & """),'" & s1.Name & "'!A2:A" & Son & "),"""")"), "dd.mm.yyyy")