Tarihe ve restauranta göre sıra no verme

[nazifdural]

A sütununa tarih girişi yapılıyor. B sütununa restaurant adı girişi yapılıyor. Bu veriler girildiğinde c sütununa tarihe ve restauranta göre sıra no vermesini istiyorum.fakat sıra no 20 ye geldiğinde işlemi durduracak."masa doldu" mesajı verecek.ve o satıra işlem yaptırmayacak.tarih ve restaurant ismine göre sıra no'larını verecek.

örnek
a sütunu b sütunu c sütunu
30/04/2013 çin restaurant 1
30/04/2013 balık restaurant 1
30/04/2013 çin restaurant 2

gibi

yardımlarınızı bekliyorum.

 

[efe34]

Tam olarak ne istediğini doğru biçimde ifade etmelisin.
Verdiğin örnekte farklı restaurant isimlerine karşılık sıra no sunu aynı,
aynı tarih ve restaurant ismine karşılık ise farklı sıra no vermişsin?

 

[orange4609]

tam anlayabildim bilmiyorum ama C sutununa aşağıdaki formülü yazıp deneyin sanırım olur.

=EĞER(ÇOKEĞERSAY(A:A;A2;B:B;B2)>20;"Masa Doldu";ÇOKEĞERSAY(A:A;A2;B:B;B2))

 

[nazifdural]

şöyle ki; iki koşula(1.koşul tarih 2.koşul restaurant ismi) göre sıra no takip edecek.tarih koşulu değiştiğinde o restaurantın sıra no.su yine 1 den başlayacak.
Umarım anlatabilmişimdir.

 

[nazifdural]

Yapmaya çalıştığım ekteki tablodadır.

 

[YUSUF44]

1. satırda başlıkların olduğunu 2. satırdan itibaren de veri girişinin yapıldığını düşünürsek C3 hücresinde aşağıdakiformülü kullanabilirsiniz:

=EĞER(A2="";"";EĞER(A2=A1;ÇOKEĞERSAY($A$1:A2;A2;$B$1:B2;B2);1))

 

[nazifdural]

çok teşekkürler istediğim gibi olmuş. peki bunu kodla yazamazmıyız.

 

[YUSUF44]

Sayfa sekmesine sağ tıklayıp aşağıdaki kodları yapıştırınız:

Private Sub Worksheet_Change(ByVal Target As Range)
b = Cells(2, 1).End(xlDown).Row
If Intersect(Target, Range("a3:a" & b)) Is Nothing Then GoTo 10
Target.Offset(0, 2) = "=IF(RC[-2]="""","""",COUNTIFS(R1C1:RC[-2],RC[-2],R1C2:RC[-1],RC[-1]))"
Exit Sub
10:
If Intersect(Target, Range("b3:b" & b)) Is Nothing Then Exit Sub
Target.Offset(0, 1) = "=IF(RC[-2]="""","""",COUNTIFS(R1C1:RC[-2],RC[-2],R1C2:RC[-1],RC[-1]))"
End Sub

Bu kodlar a ve b sütunlarına veri girdikçe C sütununa gerekli formülü yazar. Yalnız a sütununda arada boş hücre bırakılmamalıdır.

 

[nazifdural]

Elinize sağlık çok teşekkür ederim.

 

[YUSUF44]

Bu arada 20 kişilik sınır işini unuttum, yarın ilgilenmeye çalışırım .