[Yardım]  Belirli Bir Tarihten Geri Sayım Yapma

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

Belirli Bir Tarihten Geri Sayım Yapma

İleti#1)  mervebrlk » 19 Nis 2018 14:52

"sözleşme" adındaki sayfada "I" sütununda belirtilen sevk tarihini baz alan bir geri sayım yapmamız mümkün müdür? Örneğin sevk tarihi 30 Nisan olan bir sipariş için 25 Nisan'dan itibaren her gün uyarı vermesi gibi.
Kullanıcı avatarı
mervebrlk
Yeni Başlamış
 
Kayıt: 20 Mar 2018 00:03
Meslek: öğrenci
Yaş: 23
İleti: 21
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: trabzon/ortahisar

Cevap: Belirli Bir Tarihten Geri Sayım Yapma

İleti#2)  Ali ÖZ » 19 Nis 2018 15:21

Mümkündür.Örnek dosya eklerseniz net çözüm bulabilirsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Belirli Bir Tarihten Geri Sayım Yapma

İleti#3)  Ali ÖZ » 20 Nis 2018 09:57

Dener misiniz.
Kod: Tümünü seç
Private Sub Workbook_Open()
  For i = 3 To Sheets("Sayfa1").Range("ı65536").End(3).Row
    If CLng(CDate(Date)) >= CLng(Sheets("Sayfa1").Range("ı" & i).Value) - 5 Then
      MsgBox Sheets("Sayfa1").Range("d" & i).Value
    End If
  Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9541
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Belirli Bir Tarihten Geri Sayım Yapma

İleti#4)  mervebrlk » 26 Nis 2018 00:03

Cevabınız için teşekkürler. Kodunuz örnek dosya üzerinde çalışıyor fakat ana dosyaya eklediğimde sürekli hata veriyor. Tam olarak neyden kaynaklandığını da anlayamadım. Ben yapmaya çalıştığım işlemi kısaca özetleyeyim:
CommandButton_1 e tıkladığımda bugünün tarihinden "siparişler" sayfasının (4,11) hücresindeki tarihi çıkaracak. Bunu aynı sütundaki tüm satırlar için tekrarlayacak. Eğer sonuç 5ten küçükse "siparişler" sayfasındaki (i,3) hücresinin değerini ListBox1e ekleyecek. Denediğim iki kodu da aşağıya ekliyorum. Nerede hata yaptığımı belki siz bulursunuz. Şimdiden teşekkürler.

Private Sub CommandButton_1 Click()
For i = 4 To Sheets("siparişler").Range("ı65536").End(3).Row
If CLng(CDate(Date)) >= CLng(Sheets("siparişler").Range("k" & i).Value) - 5 Then
ListBox1.AddItem Sheets("siparişler").Range("c" & i).Value
End If
Next
End Sub

Private Sub CommandButton_1 Click()
Dim i, a As Integer
Dim date1, date2 As Date
For i=4 To 100
date1= Sheets("siparişer").Cells(i,11).Value
date2= Date
a = (date2 - date1)
If a <= 5 Then
ListBox1.AddItem Sheets("siparişler").Cells(i,3).Value
Kullanıcı avatarı
mervebrlk
Yeni Başlamış
 
Kayıt: 20 Mar 2018 00:03
Meslek: öğrenci
Yaş: 23
İleti: 21
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: trabzon/ortahisar

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Belirli Bir Tarihten Geri Sayım Yapma

İleti#5)  gevher58 » 26 Nis 2018 09:52

date1= Sheets("siparişer").Cells(i,11).Value
Siparişler kısmı eksik yazılmış düzeltip yeniden deneyiniz.
Kullanıcı avatarı
gevher58
Yeni Başlamış
 
Kayıt: 17 Nis 2018 10:33
Meslek: sağlık
Yaş: 29
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/bahçelievler

Cevap: Belirli Bir Tarihten Geri Sayım Yapma

İleti#6)  mervebrlk » 07 May 2018 21:46

İyi günler bu kodla tarih formatı ay/gün/yıl ise geri sayım yapabiliyorum. Fakat hesaba aldığım tarihler gün/ay/yıl şeklinde olduğu için çalıştıramadım. Nasıl bir düzeltme yapmamız gerekiyor, yardımcı olabilir misiniz?

Private Sub Workbook_Open()
For i = 3 To Sheets("Sayfa1").Range("ı65536").End(3).Row
If CLng(CDate(Date)) >= CLng(Sheets("Sayfa1").Range("ı" & i).Value) - 5 Then
MsgBox Sheets("Sayfa1").Range("d" & i).Value
End If
Next
End Sub
Kullanıcı avatarı
mervebrlk
Yeni Başlamış
 
Kayıt: 20 Mar 2018 00:03
Meslek: öğrenci
Yaş: 23
İleti: 21
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: trabzon/ortahisar

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe