veri alirken tarih yok ise boş görünmesi var ise tarihi getirmesi

[sandokan]

bu tarih ödeme listesi hespi sayfasında c sutunu boş tarih yok ise buranında bos olmasını istiyorum..dolu ise tarihi getirmesini istiyorum…….
YANİ ANA LİSTEDE TARİH YOK İSE BURASININDA BOS OLMASINI İSTİYORUM......

 

[İhsan Tank]

bu tarih ödeme listesi hespi sayfasında c sutunu boş tarih yok ise buranında bos olmasını istiyorum..dolu ise tarihi getirmesini istiyorum…….
YANİ ANA LİSTEDE TARİH YOK İSE BURASININDA BOS OLMASINI İSTİYORUM......

merhaba
öncelikle yazılarınızı küçük harfle yazınız
formülü

=EĞER(EĞER(SATIR()-4>MAK('ÖDEME LİSTESİ HEPSİ'!$J:$J);"";
İNDİS('ÖDEME LİSTESİ HEPSİ'!$B:$I;KAÇINCI(SATIR()-4;
'ÖDEME LİSTESİ HEPSİ'!$J:$J;0);SÜTUN()-2))=0;"";EĞER(SATIR()-4>
MAK('ÖDEME LİSTESİ HEPSİ'!$J:$J);"";İNDİS('ÖDEME LİSTESİ HEPSİ'!$B:$I;
KAÇINCI(SATIR()-4;'ÖDEME LİSTESİ HEPSİ'!$J:$J;0);SÜTUN()-2)))

bununla değişiniz

 

[sandokan]

hangi hücreye ??? formülün tamamınımı..bur formülün tamamını d5 hücresine ekledim ama olmadı

 

[İhsan Tank]

hangi hücreye ??? formülün tamamınımı

D5 hücresine
evet formülün tamamını yapıştırın
eki inceleyin

 

[sandokan]

oldu oldu teşekkür edeirm birleştirler birletiriip yapistirdimya formülede birleştiri cıkarmıs o yüzden olmamıstı ama simdi oldu teşekkür ederim ihsan tank

 

[İhsan Tank]

oldu oldu teşekkür edeirm birleştirler birletiriip yapistirdimya formülede birleştiri cıkarmıs o yüzden olmamıstı ama simdi oldu teşekkür ederim ihsan tank

rica ederim
iyi çalışmalar :mutlu:

 

[elrondtaralom]

bu programı inceledim gerçekten çok güzel yapılmış bir program ve tam istediğim gibi yapanın emeğine sağlık.

fakat burada günü gelen ödemelerimiz bölümünde tarih kısıtlamasını girdikten sonra makro hatası veriyor hata ise aşağıda belirttiğim gibi yardımcı olabilirmisiniz.

If CDate(sh2.Cells(1, "a").Value) <= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) & Chr(10) _
And CDate(sh2.Cells(1, "b").Value) >= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) Then

bilgim çok yüksek olmadığı için çözemedim yardımcı olabilirmisiniz.

şimdiden teşekürler

 

[elrondtaralom]

Yardım

arkadaşlar yardımcı olabilirmisiniz.

 

[Ömer]

If CDate(sh2.Cells(1, "a").Value) <= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) & Chr(10) _
And CDate(sh2.Cells(1, "b").Value) >= CDate(Format(sh1.Cells(i, "b").Value, "dd.mm.yyyy")) Then

Merhaba,

Veri aralığında boş satırlar olduğu için hata değeri üretmiştir. Yukardaki kod yerine aşağıdakini yazarak deneyiniz.

If CDate(sh2.Cells(1, "a").Value) <= CDate(sh1.Cells(i, "b").Value) _
    And CDate(sh2.Cells(1, "b").Value) >= CDate(sh1.Cells(i, "b").Value) _
        And sh1.Cells(i, "b").Value <> "" Then

.

 

[elrondtaralom]

çok sağol hocam teşekür ederim.