üç ayrı sütunda koşullara göre başka bir sütunda rakam yazması

[ker]

merhabalar öncelikle,
çalışmamda a sütununda tarih d sütununda müşteri kodu bulunmaktadır. d sütununda bulunan kodlara aynı tarih denk gelen durumda ı sütununda menü yazan larla eşleştiğinde j sütununa 1 yazılması, makrosu yazdım ama bir yerde hata yapıyorum aynı tarih olmayan müşteriye de 1 yazıyor bazılarında.
yardımcı olabilir misiniz teşekkürler.

 

[ÖmerBey]

Merhaba,
Sorunuzu tam anladığımdan emin değilim. Konu açarken sorunuzu örnek dosya ile desteklerseniz daha hızlı ve doğru çözümler alabilirsiniz.
Anladığım kadarıyla aşağıdaki kodu oluşturdum, deneyiniz.

Sub kod()
Dim s As Long
s = Cells(Rows.Count, "D").End(3).Row
With Range("J2:J" & s)
    .Formula = "=IF(AND(COUNTIFS($D:$D,D2,$A:$A,A2)>1,I2=""menü""),1,"""")"
    .Value = .Value
End With
End Sub

 

[ker]

merhaba tekrar ilk öncelikle ilginize tşk ederim.
dosya ekleyemedim,
tam olarak a sutunu tarih d sütunu kod, a sutunu aynı tarih ve kod sütunu aynı olan ve ı sütunu menü yazan,değ j sütununa 1 yazsın, eğer aynı kod ve tarihte 1 den fazla varsa bir tanesine yazsın.
şimdiden tşk ederim.

Fatura Tarihi	Fatura Ref. Numarası	Oluşturulma Tarihi	Perakende Müşteri Kodu	Ofis	Mağaza Kodu	Madde Açıklaması	Miktar	menü	DEĞ	Fiyat	Tutar (VD) (D)	Fiyat (VD) (Y)	Ödeme (Y)	Açıklama
1.09.2023	1-R-7-247215	1.09.2023​	1-4-4540	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1	menü		0	250	250	0	84126 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247216	1.09.2023​	2-4-726	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1			0	500	500	0	84125 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247206	1.09.2023​	2-4-519	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1			0	400	400	0	84124 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247238	1.09.2023​	2-4-218	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1	menü		0	200	200	0	84129 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247275	1.09.2023​	1-4-1298	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1			0	175	175	0	84130 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247294	1.09.2023​	1-4-819	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1	menü		0	550	550	0	84134 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247272	1.09.2023​	2-4-753	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1			0	400	400	0	84133 - no'lu yemek kartı ödemesi
1.09.2023	1-R-7-247274	1.09.2023​	1-4-1761	DM	KNT1	NSİBE AYDIN KANTİN KARTI	1			0	250	250	0	84132 - no'lu yemek kartı ödemesi

 

[ÖmerBey]

eğer aynı kod ve tarihte 1 den fazla varsa bir tanesine yazsın.

Buyurunuz...

Sub kod()
Dim s As Long
s = Cells(Rows.Count, "D").End(3).Row
With Range("J2:J" & s)
    .Formula = "=IF(AND(COUNTIFS($D:$D,D2,$A:$A,A2)>1,I2=""menü"",COUNTIFS($D1:$D2,D2,$A1:$A2,A2)=1),1,"""")"
    .Value = .Value
End With
End Sub

 

[ker]

Üstadım elinize koluna emeğinize sağlık, çok teşekkür ederim. gerçekten çok iyi oldu tekrar tşk ederim.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...