Aktif olan saate göre belirli değeri girme

[herakless07]

A1 deki sürekli aktif olan saate göre A3 hücresine şunların otomatik eklenmesini istiyorum

1-A1 hücresindeki saat C3 hücresinden büyükse D3 teki değeri
2-A1 hücresindeki saat C4 hücresinden büyükse D4 teki değeri
3-A1 hücresindeki saat C5 hücresinden büyükse D5 teki değeri
4-A1 hücresindeki saat C6 hücresinden büyükse D6 teki değeri
5-A1 hücresindeki saat C7 hücresinden büyükse D7 teki değeri
6-A1 hücresindeki saat C8 hücresinden büyükse D8 teki değeri


Dosya ektedir.Gerekli açıklamayı oraya da ekledim.

 

[turist]

Sayın herakless07,

İsteğinizde bir mantık hatası var gibi.

A1 hücresinde Saat 22:00 olduğu zaman

C sütunu D sütunu
08:40-------- 1.
09:30-------- 2.
10:30-------- 3.
11:20-------- 4.
13:00-------- 5.
13:50-------- 6.

bu durumda 22:00 C sütunundaki bütün saatlerden büyük olacaktır.
A3 hücresine hangi değer gelecek?(1.2.3.4.5.6 hangisi gelmeli?)

 

[herakless07]

Sayın herakless07,

İsteğinizde bir mantık hatası var gibi.

A1 hücresinde Saat 22:00 olduğu zaman

C sütunu D sütunu
08:40-------- 1.
09:30-------- 2.
10:30-------- 3.
11:20-------- 4.
13:00-------- 5.
13:50-------- 6.

bu durumda 22:00 C sütunundaki bütün saatlerden büyük olacaktır.
A3 hücresine hangi değer gelecek?(1.2.3.4.5.6 hangisi gelmeli?)

O zaman şöyle düzeltelim saat
08:40 09:29 arasındaysa 1.
09:30 10:29 arasındaysa 2.
10:30 11:19 arasındaysa 3.
11:20 12:00 arasındaysa 4.
13:00 13:49 arasındaysa 5.
13:50 14:30 arasındaysa 6.

böyle bir formül ya da kod yazmak mümkün mü?
İlginiz için teşekkür ederim.

 

[Ömer]

Merhaba,

=EĞER(VE(A1>"08:40"+0;A1<="09:29"+0);1;EĞER(VE(A1>="09:30"+0;A1<="10:29"+0);2;EĞER(

Mantığıyla devam ettirebilirsiniz.

Not: Aynı konuyla ilgili birden fazla konu başlığı açmamanızı rica ederim.

.

 

[YUSUF44]

Alternatif olarak şu formülü kullanabilirsiniz:

=EĞER(YADA(A1<ZAMAN(8;40;0);A1>ZAMAN(14;30;0));"kriter dışı";DÜŞEYARA(A1;$C$3:$D$8;2))

 

[herakless07]

Alternatif olarak şu formülü kullanabilirsiniz:

=EĞER(YADA(A1<ZAMAN(8;40;0);A1>ZAMAN(14;30;0));"kriter dışı";DÜŞEYARA(A1;$C$3:$D$8;2))

Sayın YUSUF44 elinize sağlık kod fazlalığından kurtardınız.
Son bir sorum olacak

sayfamdaki saatin aktif olabilmesi için kod bölümüne modül oluşturup

Sub clock()
Do
DoEvents
[a1] = Format(Now, "hh:mm")
Loop
End Sub

kodunu ekledim.Bu kodu ise sayfada bir butona tanımladım.İstediğim şu;

butona değil de C11 hücresine tıkladığımda bu kodun çalışmasını istiyorum.Örnek dosya ektedir.
İlginize teşekkür ederim.

 

[YUSUF44]

Sayfa1'in kod sayfasında aşağıdaki kodları dener misiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
[a1] = Format(Now, "hh:mm")
End Sub

A1'e tıkladıkça/seçtikçe saati güncelleyecektir.

 

[herakless07]

Sayfa1'in kod sayfasında aşağıdaki kodları dener misiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
[a1] = Format(Now, "hh:mm")
End Sub

A1'e tıkladıkça/seçtikçe saati güncelleyecektir.

elinize yüreğinize sağlık kod işimi gördü üzerinde birkaç değişiklik yapıp istediğim sonucu elde ettim.