Araç Trafik, Kasko ve Muayene takip

[skymoon]

Merhaba arkadaşlar,
Ben basit bir araç takip programı yapmak istiyorum.

Bana sadece girdiğim araç bilgilerine dayanarak 1 hafta öncesinden hangi aracın Trafik, Kasko ve Muayene süresinin bittiğini haber versin istiyorum.

Bu konuda forumda bir döküman var ama bana karışık geldi.

Yardımlarınız için şimdiden teşekkürler.

 

[Guest]

Merhaba skymoon :hey:

Bize oluşturacağınız bir data ile tıkandığınız yerde burada bunları nasıl yapabilirim diye sormanızı isteyeceğim.Çünkü kuruluş amacımız insanlara birşeyler öğrenmesinde yardımcı olmak. k::

 

[skymoon]

Türker teşekkürler arkadaşım. Sanada Merhaba.

Benim sıkıştığım yer; formül.
Nasıl bir formül uygularım ki yazdığım tarih bilgilerini kontrol edip başka bir sayfaya süresi bitenleri yazdırsın.
Teşekkürler.

 

[Levent Menteşoğlu]

Bu şekilde cevaplamak mümkün değil, bir örnek dosya eklerseniz onun üzerinden gidelim.

 

[skymoon]

Ben sadece işin mantığını kapmaya çalışıyorum.
Mesela;
B4 den başlayıp B55 e kadar tarih gireceğim.
Bu tarihlerden süresi geçenleri nasıl otomatik olarak bir başka sayfaya atarım.?

Bu da imkansız mı acaba?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. B sütunundaki tarihleri bugün ile karşılaştırır ve küçük olanların C sütunundaki verilerini sayfa2 ye yazar.

[vb:1:5a78e826d3]Sub aktar()
For a = 4 To Cells(65536, 2).End(xlUp).Row
If Cells(a, 2).Value < Date Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Cells(a, 3).Value
End If
Next
MsgBox "AKTARMA TAMAMLANDI"
End Sub
[/vb:1:5a78e826d3]