İki değer arası(17-22) karşılığında 1 yazdırmak

[shinesee]

Arkadaşlar merhaba, bir türlü çözemediğim bir sorunum var. Çalışma saatleri tablosu yapmaya çalışıyorum. İsimler ve karşılarında hangi saat aralıklarında çalıştıkları var(17-20 gibi ve aynı bu şekilde yazıyor) Diğer sayfamda ise saatler var. X kişisinde 17-20 yazdığında ikinci sayfadaki 17,18,19,20 başlıklı hücrelere 1 yazdırmak istiyorum. Altından kalkamadım bir türlü sizlerden yardım rica ediyorum.

 

[Saban Sertkaya]

Örnek dosya ekleyiniz.

 

[shinesee]

Dosyaya buradan ulaşabilirsiniz. İkinci sayfada saatlerin altına x veya 1 tarzı değer yazdırmak istiyorum.

 

[Ömer BARAN]

Merhaba.
Saatler sayfası B2 hücresine aşağıdaki formülü uygulayın ve ardından sağa ve aşağı kopyalayın.

=EĞER(VE(B$1>=0+SOLDAN(İNDİS(durum!$A$1:$B$4;KAÇINCI($A2;durum!$A$1:$A$4;0);2);BUL("-";İNDİS(durum!$A$1:$B$4;KAÇINCI($A2;durum!$A$1:$A$4;0);2);1)-1);B$1<=0+PARÇAAL(İNDİS(durum!$A$1:$B$4;KAÇINCI($A2;durum!$A$1:$A$4;0);2);BUL("-";İNDİS(durum!$A$1:$B$4;KAÇINCI($A2;durum!$A$1:$A$4;0);2);1)+1;2));"x";"")

 

[sakman26]

selam,
alternatif olarak,
dosyanıza ek teki link ten ulaşabilirsiniz.
kolay gelsin..

link : http://s6.dosya.tc/server2/1kyw7s/shinesee.xlsx.html

 

[Saban Sertkaya]

Alternatif. Kod ile yazılmış hali,

Örnek dosya linki : http://dosya.web.tr/KBBoxK

veya sadece kodlar,

Sub Düğme1_Tıklat()
On Error GoTo hata
Sheets("saatler").Select
For a = 2 To Sheets("durum").[A65536].End(xlUp).Row
Columns(1).Find(Sheets("durum").Cells(a, 1)).Select
b = Val(Mid(Sheets("durum").Cells(a, 2), 1, 2))
c = Val(Mid(Sheets("durum").Cells(a, 2), 4, 2))
If c > b Then
For d = b To c
ActiveCell.Offset(0, d) = "x"
Next d
ElseIf b > c Then
For e = b To 24
ActiveCell.Offset(0, e) = "x"
Next e
For f = 1 To c
ActiveCell.Offset(0, f) = "x"
Next f
End If
Next a
Exit Sub
hata:
MsgBox Sheets("durum").Cells(a, 1).Value & " bulunamadı."
End Sub

 

[shinesee]

cevaplar için çok teşekkür ederim hepinize.

 

[Saban Sertkaya]

Kendi adıma, rica ederim.