X DEĞERİ UYARISI MAKRO TALEBİ

[mbd2]

Merhaba,

Aşağıdaki kodu visual basic kısmına 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

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

 

[bmutlu966]

Sanırım böyle bir şey istediniz. Kontrol edersiniz.

 

[mesuttasar]

Kaç satır için bu işlemi yapmak istiyorsanız for i=2 to 5 kısmındaki 5 sayısını değitirebilirsiniz.

Private Sub test()
Dim a, b As Byte
a = 0
b = 0

For i = 2 To 5
    For j = 1 To 31
    If Cells(i, j) = "X" Then
    a = a + 1
    b = b + 1
    Else: a = 0
    End If
    If a >= 7 Then Cells(i, j).Interior.Color = vbYellow
    If b >= 17 Then Cells(i, j).Interior.Color = vbYellow
   Next j
a = 0
b = 0
Next i
End Sub