Tarihe bağlı geri sayım sayacı

[kurthalil]

Öncelikle herkese merhaba,

Excelde bir geri sayım sayacı yapmak istiyorum, bir hücrede "11.12.2008" şeklinde bir tarih var diyelim. Başka bir hücrede de 20 yazıyor. Bu tarih ilerledikçe diğer hücredeki rakam geriye düşsün istiyorum ve mümkünse yanıp sönsün istiyorum. Excelde böyle bir şey yapmak mümkün mü?

 

[kurthalil]

Böyle bir şey mümkün değil mi ustalar ?

 

[raynn]

yanıp sönmeyi bilmem ama

tarihin a1 hücresinde olduğu varsayarak

=bugün()-a1

formulu ile yapabilirsin işlen sonunda formulun olduğu hucreye >hücre biçimlendir > sayı sekmesinden katagori kısmından sayı yı seçip ondalık basamağı sıfır yaparak yapabilirsin

 

[kurthalil]

Sağolun çok teşekkür ederim. Birde yanıp sönerse tam süper olacak.

 

[professor4242]

lütfen yardı edinnn

sayın admin..ben turizm firmasında çalışıyorum.. ben araçlarımız için tur listesi oluşturmak istiyorum

kısacası 29 arabayı 23 günlük tur listesinde döndürmek isiyorum ture başı geldiğinde tekrar başa dönsün istiyorum yardımcı loursanız çok sevinirim kolay gelsin..
professor 4242

 

[alp_1001]

yanıp sönmeyi bilmem ama

tarihin a1 hücresinde olduğu varsayarak

=bugün()-a1

formulu ile yapabilirsin işlen sonunda formulun olduğu hucreye >hücre biçimlendir > sayı sekmesinden katagori kısmından sayı yı seçip ondalık basamağı sıfır yaparak yapabilirsin

Aynısı bende yapmak isitiyorum fakat dediğiniz gibi yaptıgımda 5 haneli bir rakam çıkardı karşıma. kategorılerden tarıhı sectıgımde 20 gun oncesını verdı oya ben her gun attıgında o rakamdan tarıhe baglı olarak dusmesını ıstemısdım

 

[alp_1001]

Sağolun çok teşekkür ederim. Birde yanıp sönerse tam süper olacak.

Aynısı ben yaptım olmadı, senden basıl oldu anlamadım.

1 konu actım 3 defa msj attım kımsede gelip arkadasım şöyle olması gerekiyor demiyor.eyv.

 

[pristineli45]

Tarihin A1 hücresinde olduğunu varsayarsak;
Aşağıdaki kodları boş bir modüle yapıştırın.

Option Explicit

Sub AUTO_OPEN()
Sheets("Sayfa1").Select
DoEvents
If Range("A1") <> Range("B1") Then
Range("A1").Interior.ColorIndex = 3
Application.OnTime Now + TimeValue("00:00:01"), "RENK"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "RENK"
End If
End Sub

Sub RENK()
DoEvents
If Range("A1") <> Range("B1") Then
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
End If
End Sub

 

[alp_1001]

Tarihin A1 hücresinde olduğunu varsayarsak;
Aşağıdaki kodları boş bir modüle yapıştırın.

Option Explicit

Sub AUTO_OPEN()
Sheets("Sayfa1").Select
DoEvents
If Range("A1") <> Range("B1") Then
Range("A1").Interior.ColorIndex = 3
Application.OnTime Now + TimeValue("00:00:01"), "RENK"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "RENK"
End If
End Sub

Sub RENK()
DoEvents
If Range("A1") <> Range("B1") Then
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "AUTO_OPEN"
End If
End Sub

Cevap için tsk ederim.
Peki tarihe bağlı düşülecek sayıyı nereye koyuyoruz ?
Formülde onu göremedim

 

[pristineli45]

Bu kodlar sadece hücrenin yanıp sönmesi için..(Kodlar,forumdan alıntıdır) Diğer kısımlarını düzenlemek size düşüyor.

 

[alp_1001]

Anlatamadım heralde ben
Bana kodların yanıp sönmesi lazım değil.
Ben sadece tarihe bağlı olarak 20 sayısının düşmesini istiyorum.

 

[alp_1001]

cevap yok ?