• DİKKAT

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

En Son Tarihi Bulma Hk.

Katılım
19 Temmuz 2016
Mesajlar
129
Excel Vers. ve Dili
2013
Merhaba Arkadaşlar

Ekli dosyada belirtilen tarihlere ait sevkiyat rakamları bulunmaktadır.

Ben en son giriş yapılan sevkiyat tarihini "h" hücresine yazdırmak istiyorum.
Örnek c ürünü en son 2017 de giriş olmuş. H4 hücresine 2017 yazması gerek.

Siz değerli hocalarımdan ve arkadaşlarımdan bu konuda yardım istiyorum.

Şimdiden teşekkürler.
 

Ekli dosyalar

Merhaba
Aşağıdaki formülü deneyin.
İyi çalışmalar.

Kod:
=İNDİS($B$1:$G$1;0;EĞERSAY(B2:G2;">0"))
 
Alternatif;

Kod:
=ARA(2;1/(B2:G2<>"");$B$1:$G$1)
 
Merhaba,

Sizin önerinizde aradaki boş hücrelerden dolayı hatalı sonuç çıkıyor. Kontrol edebilir misiniz?

Merhaba
Aşağıdaki formülü deneyin.
İyi çalışmalar.

Kod:
=İNDİS($B$1:$G$1;0;EĞERSAY(B2:G2;">0"))
 
Hocalarım Allah razı olsun sağolun.

Korhan hocam senin formulü uyguladım. İstediğim oydu.

Y.selim hocam senın formulüde inceleyeceğim. Başka bir dosyada mutlaka işime yarar.
 
Alternatif olarak dizi formülle çözüm.

Kod:
=İNDİS($B$1:$G$1;MAK(EĞER(B2:G2<>"";SÜTUN(B2:G2)-1)))
 
Alternatif;

Kod:
=ARA(2;1/(B2:G2<>"");$B$1:$G$1)
Abi 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 alım yapılan tarihin çıkmasını istediğim yer
' *************** 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")
 
yardım edebilmeniz için nasıl bir katkıda bulunabilirim.
 
Cevabınıza aşağıdaki linkten erişebilirsiniz.

 
Geri
Üst