• DİKKAT

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

Gün İle Veri Çekme

  • Konbuyu başlatan Konbuyu başlatan ileri
  • Başlangıç tarihi Başlangıç tarihi
Katılım
22 Kasım 2009
Mesajlar
129
Excel Vers. ve Dili
excell 2003 2000 2007
Merhaba Excel.web.tr Ailesi

Benim Çok Önemli Bir Sorum Var. Lafımı Fazla Uzatıp Sizlerin Vaktini Calmak İstemem.
Sorumsu

Sayfa2 'de 30 Günlük Ödeme Yapan Kullanıcım.
30 Gün Geçtikten Sonra Sayfa1'de Kullanıcının Adı Yazabilirmi Yada Daha Farklı Bir Şekilde
Şimdiden Teşekkürler.

Örnek Dosya eklenmiştir Açıklama Yazılmıstır
 

Ekli dosyalar

Son düzenleme:
Örnek Dosyayı Ekledim. Hocam. ayrıntılı Sekildede Yazdım İlginizden Dolayı Teşekkür Ederim
 
cevap

Yazımın Altında Buyrun Hocam. Bir Daha Ekledim.
 

Ekli dosyalar

Merhaba,

Dosyanızı inceledim. 10 yerine 10 gün sonrasının tarihini yazarsanız istediğiniz sonuca ulaşabilirsiniz.

Aşağıdaki formülün çalışması için "Data" isimli sayfanızın "E" sütununa örneğin 10-07-2011 gibi tarih girmelisiniz.

"Ana Sayfa" isimli sayfanızın P1 hücresine aşağıdaki formülü uygulayın.

Kod:
=TOPLA.ÇARPIM((BUGÜN()=Data!$E$2:$E$1000)*1)

Daha sonra K18 hücresine aşağıdaki dizi formülü uygulayın. Dizi formül oluşturmak için verdiğim formülü hücreye uygulayın ve cursor hücre içindeyken hücreyi CTRL+SHIFT+ENTER tuşlarına basarak terk edin.

Kod:
=EĞER(SATIRSAY(K$18:K18)>$P$1;"";İNDİS(Data!$C:$C;KÜÇÜK(EĞER(Data!$E$2:$E$1000=BUGÜN();SATIR($K$2:$K$1000));SATIRSAY(K$18:K18))))
 
Merhaba,

Dosyanızı inceledim. 10 yerine 10 gün sonrasının tarihini yazarsanız istediğiniz sonuca ulaşabilirsiniz.

Aşağıdaki formülün çalışması için "Data" isimli sayfanızın "E" sütununa örneğin 10-07-2011 gibi tarih girmelisiniz.

"Ana Sayfa" isimli sayfanızın P1 hücresine aşağıdaki formülü uygulayın.

Kod:
=TOPLA.ÇARPIM((BUGÜN()=Data!$E$2:$E$1000)*1)

Daha sonra K18 hücresine aşağıdaki dizi formülü uygulayın. Dizi formül oluşturmak için verdiğim formülü hücreye uygulayın ve cursor hücre içindeyken hücreyi CTRL+SHIFT+ENTER tuşlarına basarak terk edin.

Kod:
=EĞER(SATIRSAY(K$18:K18)>$P$1;"";İNDİS(Data!$C:$C;KÜÇÜK(EĞER(Data!$E$2:$E$1000=BUGÜN();SATIR($K$2:$K$1000));SATIRSAY(K$18:K18))))
Çok Teşekkürler. Fakat Dediklerinizi Yaptım Beceremedim Siz bu Kodları Ekleyip Yollayabilirmisiniz. Çok Teşekkürler.
 
Merhaba,

Uygulanmış dosya ektedir. Mavi renkli hücreleri inceleyiniz.
 

Ekli dosyalar

Merhaba,

Uygulanmış dosya ektedir. Mavi renkli hücreleri inceleyiniz.
Çok Teşekkürler. Hocam. Tam İstedigim Gibi Olmus.
Fakat Atıyorum 15.07.2011 yazıldı biz 19.07.2011 ' de Tabloyu Açınca Geçmiş Ödemesi Gelen Kullanıcıyı Görebilirmiyiz Ben Denedim yapamadım Fakat siz Yapmıssınız.

06.07.2011 'de Var Sizde Gözüküyordu.
Çok Teşekkürler. Elinize Sağlık
 
Merhaba,

Bunun için formüllerde aşağıdaki değişiklikleri yapmanız yeterli olacaktır. Değiştirdiğim bölümleri kırmızı renkle belirttim.

P1 hüresindeki formülü aşağıdaki şekilde değiştirin.

Kod:
=TOPLA.ÇARPIM((BUGÜN()[COLOR=red]<[/COLOR]=Data!$E$2:$E$1000)*1)


K18 hücresindeki formülü aşağıdaki şekilde değiştirin. Bu formül dizi formülüdür. Hücreye yazdıktan sonra cursor hücre içindeyken CTRL+SHIFT+ENTER tuşlarına basarak formül girişini tamamlayın. Aksi halde doğru sonuç üretmez.

Kod:
=EĞER(SATIRSAY(K$18:K18)>$P$1;"";İNDİS(Data!$C:$C;KÜÇÜK(EĞER(Data!$E$2:$E$1000[COLOR=red]<[/COLOR]=BUGÜN();SATIR($K$2:$K$1000));SATIRSAY(K$18:K18))))
 

Ekli dosyalar

Katkınız için teşekkürler..
 
Çok Teşekkürler. Hocam Allah Razı Olsun.
UserForm'dan Yazınca 7/7/2011 Yazınca Algılamıyor hücreye elle yazınca algılıyor acaba bunun önüne nasıl gecile bilir yada ne yapmmamız lazım
çok teşekkürler.
 
Geri
Üst