Hücre biçimlendirme

[1903emre34@gmail.com]

Merhaba,

"A" sütündaki, roma rakamı ve nokta, harf ile başlamayan (Kasa,Alınan çekler vs) verilerin "C" deki"DOĞRU" veya "YANLIŞ" kelimeler yoksa sarı boyanmasını istiyorum, nasıl kod oluşturabiliriz?

 

[YUSUF44]

Sorun çözülür mü bilmiyorum ancak şöyle bir şey var: Roma rakamları da aynı zamanda harflerden oluşur; I, V, X, L, C, M gibi. Bunları diğer satırlardan nasıl ayırtedebiliriz? Örneğin V ile (atıyorum) Vadeli çekleri nasıl ayırabiliriz veya I ile Işık'ı? Roma rakamlarını belirten özel bir durum var mıdır?

 

[1903emre34@gmail.com]

Roma rakamları ayırt edilmesinde kıstas ikinci kelime Varlıklar olmasi örneğin İ. Duran varlıklar veya İİ.Duran Varlıklar

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Renklendir()
    Range("A:C").Interior.ColorIndex = xlNone
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For X = 1 To Son
        If Cells(X, 2) <> "" And IsNumeric(Cells(X, 2)) And Cells(X, 3) = "" Then
            Cells(X, 1).Resize(1, 3).Interior.ColorIndex = 6
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[numan şamil]

Korhan beyin kodlarını görmedim
Neyse boşa gitmesin

Sub numan()
    Dim X As Long
    Range("A3:B" & Rows.Count).Interior.ColorIndex = xlNone
    For X = 3 To [A65350].End(3).Row
        If UCase(Replace(Replace(Cells(X, "A"), "i", "İ"), "ı", "I")) Like "*VARLIKLAR*" Or UCase(Cells(X, "A")) Like "*.*" Or Range("C" & X).Value <> "" Then
             Cells(X, 1).Resize(1, 2).Interior.ColorIndex = 0
            Else
            Cells(X, 1).Resize(1, 2).Interior.ColorIndex = 6
        End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Sn. Korhan ve Numan, teşekkürler, kodları denedim

iyi çalışmalar

 

[antonio]

Alternatif çalışma, boşa gitmesin

Sub uygun_olanlari_renklendir()
Dim sh As Worksheet, ss As Long, hcr As Range, alan As Range, regexp, veri
Set sh = Sayfa1
ss = sh.Range("A" & Rows.Count).End(3).Row
Set alan = sh.Range("A3:A" & ss)
sh.Range("A:C").Interior.ColorIndex = xlNone
Set regexp = CreateObject("VBScript.RegExp")
    regexp.Global = True
    regexp.Pattern = "(Varlıklar|VARLIKLAR|varlıklar|[i.\ıI].+)"
    For Each hcr In alan
        If regexp.test(hcr) = False Then
            If (hcr.Offset(, 2)) <> "Doğru" And (hcr.Offset(, 2)) <> "Yanlış" Then
                sat = hcr.Row
                sh.Range("A" & sat & ":C" & sat).Interior.ColorIndex = 6
            End If
        End If
    Next hcr
End Sub

 

[assenucler]

Teşekkürler

Yanıt veren üstatlara ve soru olan üyemize katkıları için teşekkürler.

 

[numan şamil]

İyi çalışmalar