Yamahato
Yeni Üye
- Katılım
- 20 Haz 2020
- Mesajlar
- 17
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 46
- Konum
- Balçova
- Ad Soyad
- Yusuf DOĞAN
- Office Vers.
- Profesyonel plus 2010
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")
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")