Çözüldü Coklu kiriterde formul yardim

[maratikkral]

Merhaba

Yapmak istedigim Marka kolonundaki A Markasinin 3 farkli urunu var.Kosulumuz a b c d list kolonlarinin verileri hepsi done olursa status kolonunda ready yazmasi.Yani Status kolonu Marka kolonunda A yazan 3 satirinda A B C D Kolonlarinin verileri DONE olursa Status Ready yazacak formul gerekli.Ornek aciklayici olmustur.Insallah.Yardimlarinizi bekliyorum.Hayirli aksamlar

MARKA​	URUN​	A LIST​	B LIST​	C LIST​	D LIST​	STATUS​
A​	1​	DONE​	DONE​	DONE​	DONE​	NO READY​
A​	2​	NOT DONE​	DONE​	NOT DONE​	DONE​	NO READY​
A​	3​	NOT DONE​	NOT DONE​	DONE​	NOT DONE​	NO READY​
B​	1​	DONE​	DONE​	DONE​	DONE​	READY​
B​	2​	DONE​	DONE​	DONE​	DONE​	READY​
C​	1​	DONE​	DONE​	NOT DONE​	NOT DONE​	NO READY​
C​	2​	DONE​	DONE​	DONE​	DONE​	NO READY​
C​	3​	DONE​	DONE​	DONE​	DONE​	NO READY​
C​	4​	DONE​	DONE​	NOT DONE​	NOT DONE​	NO READY​
D​	1​	DONE​	DONE​	DONE​	DONE​	READY​
D​	2​	DONE​	DONE​	DONE​	DONE​	READY​
D​	3​	DONE​	DONE​	DONE​	DONE​	READY​
D​	4​	DONE​	DONE​	DONE​	DONE​	READY​
D​	5​	DONE​	DONE​	DONE​	DONE​	READY​
D​	6​	DONE​	DONE​	DONE​	DONE​	READY​

 

[recepkull]

Sub coklukiriter()
    Dim sonSatir As Long
    Dim i As Long
    
    sonSatir = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To sonSatir
        If Cells(i, "A").Value = "A" Then

            If Cells(i, "C").Value = "DONE" And Cells(i, "D").Value = "DONE" And Cells(i, "E").Value = "DONE" And Cells(i, "F").Value = "DONE" Then
                Cells(i, "G").Value = "READY"
            End If
        End If
    Next i
End Sub

 

[maratikkral]

Sub coklukiriter()
    Dim sonSatir As Long
    Dim i As Long
 
    sonSatir = Cells(Rows.Count, "A").End(xlUp).Row
 
    For i = 2 To sonSatir
        If Cells(i, "A").Value = "A" Then

            If Cells(i, "C").Value = "DONE" And Cells(i, "D").Value = "DONE" And Cells(i, "E").Value = "DONE" And Cells(i, "F").Value = "DONE" Then
                Cells(i, "G").Value = "READY"
            End If
        End If
    Next i
End Sub

Makro kodu icin tesekkur ederim.Lakin benim anlatmak istedigimi karsilamiyor.Marka koloundaki A satirlarinin yani 3 satirinda tum karsiligi done olacak ki statuslerine done yazsin.bu 3 satirdan birinde not done yazarsa 3 satirinda statusunde not done yazacak

 

[recepkull]

Formül yazmışsın dikkat etmedim özür dilerim

=EĞER(VE(A2="A";C2="DONE";D2="DONE";E2="DONE";F2="DONE");"READY";"NO READY")

 

[maratikkral]

Formül yazmışsın dikkat etmedim özür dilerim

=EĞER(VE(A2="A";C2="DONE";D2="DONE";E2="DONE";F2="DONE");"READY";"NO READY")

yardimlariniz tesekkur ederim.lakin anlatmak istedigim bu degil.ayni markalardan kac satir varsa o satirlarin hepsi done olmasi gerekiyor ki statusleri done yazsin.
asagidaki gibi 1 numarali urun normalde statusu done yazmasi gerekirdi ama diger 2 ve 3 nolu urunler kosulu saglamadigindan no ready yaziyor.

RKA	URUN	A LIST	B LIST	C LIST	D LIST	STATUS
A	1	DONE	DONE	DONE	DONE	NO READY
A	2	NOT DONE	DONE	NOT DONE	DONE	NO READY
A	3	NOT DONE	NOT DONE	DONE	NOT DONE	NO READY

 

[netzone]

Merhaba,
Markalarınız A2 den, Listleriniz C2:F2 hücrelerinden başladığını varsayımına göre;
Deneyiniz =EĞER(ÇOKEĞERSAY(A:A;A2;C:C;"DONE";D:D;"DONE";E:E;"DONE";F:F;"DONE")=EĞERSAY(A:A;A2);"READY";"NO READY")

İyi çalışmalar.

 

[maratikkral]

Merhaba,
Markalarınız A2 den, Listleriniz C2:F2 hücrelerinden başladığını varsayımına göre;
Deneyiniz =EĞER(ÇOKEĞERSAY(A:A;A2;C:C;"DONE";D:D;"DONE";E:E;"DONE";F:F;"DONE")=EĞERSAY(A:A;A2);"READY";"NO READY")

İyi çalışmalar.

IF(COUNTIFS(A:A,A2,C:C,"DONE",D:D,"DONE",E:E,"DONE",F:F,"DONE")=COUNTIF(A:A,A2),"READY","NO READY")

Tesekkur ettim formul cok isimi gordu.