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.
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
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