Yatay Lookup

[Trilenium]

Merhabalar,

Elimde örnek olarak şöyle bir tablo mevcuttur.

Yatay olarak bu veriler arasında X değeri sırası ile 5 veya 6 olduğunda eğer devamında Z yok ise 5i veya 6. X i kırmızı olarak işaretlesin.

Koşullu biçimlendirme de olur vba kod da olur.

nasıl yapabilirim ?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu sayfanın kod kısmına kopyalayıp çalıştırınız.
5 veya 6 değil de 5 tane yan yana olduğunda kırmızı yapıyor.

Sub test()
    Dim Bak As Long
    Dim Kln As Integer
    Dim xSay As Byte
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        For Kln = 4 To Cells(Bak, Columns.Count).End(xlToLeft).Column
            If Cells(Bak, Kln) = "X" Then
                xSay = xSay + 1
                If xSay = 5 And (Cells(Bak, Kln + 1) = "X" Or Cells(Bak, Kln + 1) = "") Then
                    Cells(Bak, Kln).Interior.Color = 255
                    xSay = 0
                End If
            Else
                xSay = 0
            End If
        Next
        xSay = 0
    Next
End Sub

 

[Trilenium]

Muzaffer Bey merhaba,

Olmadı maalesef. İşaretlediğim yerleri boyamadı mesela.

 

[Muzaffer Ali]

kodu yeniledim yeniden deneyin

 

[Trilenium]

Muzaffer Bey merhaba,

Ben de mi bir sorun var anlayamadım. İşaretlediğim hücrelerde 5 tane saymadan boyama yapıyor

 

[Muzaffer Ali]

Kodu yeniledim

 

[Trilenium]

Ellerinize sağlık teşekkür ederim