excel yinelenen değer 7 defa tekrar etmesi

[mbd2]

Merhaba,

aşağıda örneklendirdiğim gibi, x değeri arka arkaya 7 kere geldiğinde uyarı vermesini istiyorum. bunu nasıl yaparım, destek olabilir misiniz?
hiç bir şekilde arka arkaya x değeri 7 defa gelmemelidir.

1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31
X	X	X	X	X	X	X	A	G	X	G	G	X	X	X	F	G	G	X	X	X	X	X	X	X	D	X	X	X	X	X

 

[Asri]

A1 Hücresine yapıştırın ve sağa doğru son dolu sütuna kadar çekin.
7 ve üstü yazanların başladığı hücreden ileriye doğru 7 ve üstü ard arda geliyordur.

=EĞER(EĞERSAY(A3:G3,"X")>=7,EĞERSAY(A3:G3,"X"),"")

=IF(COUNTIF(A3:G3;"X")>=7;COUNTIF(A3:G3;"X");"")

 

[mbd2]

Asri Bey ilginiz için teşekkür ederim.

Ancak talebim x'leri saydırmak değil,

Yatay şekilde 7 adet X değerinin, hiçbir şekilde sıralı olarak gelmemesi. 7 adet X yanyana geldiğinde 7. X değerinin hata vermesini, veya boyanması o istiyorum.

31 günün içerisinde 15 adet X de olabilir, ancak en fazla 6 adet X yanyana gelebilir.

 

[mbd2]

A1 Hücresine yapıştırın ve sağa doğru son dolu sütuna kadar çekin.
7 ve üstü yazanların başladığı hücreden ileriye doğru 7 ve üstü ard arda geliyordur.

=EĞER(EĞERSAY(A3:G3,"X")>=7,EĞERSAY(A3:G3,"X"),"")

=IF(COUNTIF(A3:G3;"X")>=7;COUNTIF(A3:G3;"X");"")

Asri Bey ilginiz için teşekkür ederim.

Ancak talebim x'leri saydırmak değil,

Yatay şekilde 7 adet X değerinin, hiçbir şekilde sıralı olarak gelmemesi. 7 adet X yanyana geldiğinde 7. X değerinin hata vermesini, veya boyanması o istiyorum.

31 günün içerisinde 15 adet X de olabilir, ancak en fazla 6 adet X yanyana gelebilir.

 

[veyselemre]

Sub test()
    Dim i%, ii As Byte, v
    For i = 3 To Cells(Rows.Count, 1).End(3).Row
        For ii = 1 To 31
            If Cells(i, ii).Value <> "X" Then
                v = ""
            Else
                v = v & Cells(i, ii).Value
            End If
            If Len(v) > 6 And v Like "XXXXXXX*" Then
                Cells(i, ii).Interior.Color = vbYellow
            End If
        Next ii
    Next i
End Sub

 

[mbd2]

Sub test()
    Dim i%, ii As Byte, v
    For i = 3 To Cells(Rows.Count, 1).End(3).Row
        For ii = 1 To 31
            If Cells(i, ii).Value <> "X" Then
                v = ""
            Else
                v = v & Cells(i, ii).Value
            End If
            If Len(v) > 6 And v Like "XXXXXXX*" Then
                Cells(i, ii).Interior.Color = vbYellow
            End If
        Next ii
    Next i
End Sub

Merhaba Veysel Bey,

ilginize adına teşekkür ederim.

ancak visual basic kısmına kodu yapıştırdığımda kod istediğim şekilde sonuc vermemektedir.

talep etmiş olduğum kod;

aynı satırda bulunanan kutucuklara yanyana 7 adet "x" değeri girdiğimde dolu veya herhangi bir hata değeri görmek istiyorum.

6 adetten fazla aynı satırda yanyana "x" değeri girmemiz yasaktır.

yanyana 7adet olmadığı sürece 16 adet de x değeri girilebilir.

destek rica ediyorum.

1​

2​

3​

4​

5​

6​

7​

8​

9​

10​

11​

12​

13​

14​

15​

16​

17​

18​

19​

20​

21​

22​

23​

24​

25​

26​

27​

28​

29​

30​

31​

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

x

 

[mbd2]

Merhaba,

konu ile ilgili destek olabilecek kimse yok mu ?

destek rica ediyorum

 

[Haluk]

Ekli dosyaya bakın ....

İndir Test

Dosyayı indir Test

dosya.co

.

 

[mbd2]

Ekli dosyaya bakın ....

İndir Test

Dosyayı indir Test

dosya.co

.

Merhaba Haluk Bey,

elinize emeğinize sağlık. çoooook teşekkür ederim.

istediğim gibi çalışmaktadır.

allah razı olsun.