Yan yana verileri tesbit

[Beyribey]

Merhaba,
Arkadaşlar aynı satır da ard arda devam eden 0(sıfır)larin sayısı 5'den fazla ise ID'yi biçimlendirmek istiyorum, satırda toplam 5'den fazla sıfır var ise değil.

http://s3.dosya.tc/server10/220du8/asdasdas.xlsx.html


=EĞERSAY($C2:$AL2;0)>5
Yukarıdaki formül toplam sıfır sayısına göre. Yan yana gelecek 5 sıfırı nasıl bulabilirim ?

Şimdiden çok teşekkürler

 

[işsiz123]

Biraz uzun oldu ama işinize yarar diye umuyorum. A2 hücresine yapıştırınız Sonra ahucresine göre ID kodlarını biçimlendirme Yapa bilirsiniz

=EĞER(EĞERSAY(C2:G2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(D2:H2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(E2:I2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(F2:J2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(G2:K2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(H2:L2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(I2:M2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(J2:N2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(K2:O2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(L2:P2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(M2:Q2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(N2:R2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(O2:S2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(P2:T2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(Q2:U2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(R2:V2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(S2:W2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(T2:X2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(U2:Y2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(V2:Z2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(W2:AA2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(X2:AB2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(Y2:AC2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(Z2:AD2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AA2:AE2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AB2:AF2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AC2:AG2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AD2:AH2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AE2:AI2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AF2:AJ2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AG2:AK2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AH2:AL2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AI2:AM2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AJ2:AN2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AK2:AO2;0)=5;"YAN YANA 5 ADET 0 VAR";EĞER(EĞERSAY(AL2:AP2;0)=5;"YAN YANA 5 ADET 0 VAR";""))))))))))))))))))))))))))))))))))))

 

[vardar07]

Aynı sorun hakkında art arda konu açmak size birşey kazandırmaz. Bunun yerine sorununuzu güncellemek ise amaç konu sonuna güncel diye yazmanız yeterli. Aşağıdaki bu konuyla ilgili olan sayfada size sorulan sorulara cevap vermeden konu açmışsınız. İstediğiniz normal bir şey değil. Aynı satırda arka arkaya bulacak bir formül ben şahsen bilmiyorum. Belki makro ile olabilir. Cevap almak için biraz sabırlı olmanız lazım. Hiç cevap alamıyorsanız demek ki olmuyor. Lütfen konu açma hassasiyetine önem veriniz.

Diğer konu sayfanız:http://www.excel.web.tr/f14/st-uste-tekrar-eden-veriler-t161579.html

 

[Korhan Ayhan]

Linki inceleyiniz.

http://www.excel.web.tr/f14/satir-sayisi-bulma-kosula-bagli-t67708.html

 

[Ziynettin]

Merhaba,
Makro ile yapılan çalışmayı deneyiniz.

Option Explicit
Sub biçim()
Dim a(), i As Long, j As Byte, t As Double
Sheets("Sayfa4").Select
Range("B2:B" & Rows.Count).Interior.ColorIndex = xlNone
a = Range("C2:AL" & Cells(Rows.Count, 2).End(3).Row)
Application.ScreenUpdating = False
    For i = 1 To UBound(a)
        For j = 1 To UBound(a, 2)
            If a(i, j) = 0 And a(i, j) <> "" Then
                t = t + 1
            Else
                t = 0
            End If
            If t > 5 Then
                Cells(i + 1, 2).Interior.ColorIndex = 4
            End If
        Next j
    Next i
Application.ScreenUpdating = True
MsgBox "Biçimlendirme işleminiz tamamlandı.", vbInformation
End Sub