Sütunlardaki hücreleri sıra kontrolu nasıl yapılır

[asdsxx]

Arkadaşlar başlığı nasıl yazacağım bilmiyorum ama yapmak istediğim şu:
Excel sayfasında binlerce satırlı veriler var. Sıra numarası, ile aynı sıra no ile başlayan metin başlıkları var. Yanlışlıkla sıra atlamış ise onu karşılaştırıp o hücreyi renklendirecek
Aşağıdaki örnekte olduğu gibi. Önemli üç sütunu karşılaştıracak ve başlangıç no farklı olan belirlenecek. Referans Sıra sütunu sonra Veri1, ve Veri2 sütunu

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "B") <> "" Then
            If Int(Left(Cells(Bak, "B"), Len(Cells(Bak, "A")))) <> Cells(Bak, "A").Value Then
                Cells(Bak, "B").Interior.Color = ColorConstants.vbYellow
            End If
        End If
        
        If Cells(Bak, "C") <> "" Then
            If Int(Left(Cells(Bak, "C"), Len(Cells(Bak, "A")))) <> Cells(Bak, "A") Then
                Cells(Bak, "C").Interior.Color = ColorConstants.vbYellow
            End If
        End If
    Next
End Sub

 

[asdsxx]

Merhaba.

Sub test()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "B") <> "" Then
            If Int(Left(Cells(Bak, "B"), Len(Cells(Bak, "A")))) <> Cells(Bak, "A").Value Then
                Cells(Bak, "B").Interior.Color = ColorConstants.vbYellow
            End If
        End If
       
        If Cells(Bak, "C") <> "" Then
            If Int(Left(Cells(Bak, "C"), Len(Cells(Bak, "A")))) <> Cells(Bak, "A") Then
                Cells(Bak, "C").Interior.Color = ColorConstants.vbYellow
            End If
        End If
    Next
End Sub

Muzaffer Bey ilginize teşekkür ederim.
Ama ben bir konuyu atlamışım. Daha doğrusu farketmez sanmıştım ama anlaşılan özel bir ilave yapılması gerekecek.
Sütunun birinde Türkçe, diğerinde Arapça rakamlar var aşağıdaki gibi

 

[Muzaffer Ali]

Örnek dosya hazırlayıp eklerseniz daha iyi olur.
Dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

 

[asdsxx]

Örnek dosya hazırlayıp eklerseniz daha iyi olur.
Dosyanızı dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.

 

[Muzaffer Ali]

Koşullu biçimlendirme ile yapılabilir.
B sütununun tamamını seçin koşullu biçimlendirme / .... Formül kullan seçin formül kısmına aşağıdaki formülü kopyalayın.

=SAYIYAÇEVİR(SOLDAN(B1;UZUNLUK($A1)))<>$A1

Biçimlendirmeden renk seçimini yapın.

C sütununu seçin biçimlendirme formül kısına aşağıdaki formülü kopyalayın.

=VE(C1<>"";SATIR(C1)<>1;SOLDAN(C1;UZUNLUK($A1))<>METNEÇEVİR($A1;"[$-ar-SA,200]0"))

Biçimlendirmeden renk seçimini yapın.

 

[asdsxx]

Koşullu biçimlendirme ile yapılabilir.
B sütununun tamamını seçin koşullu biçimlendirme / .... Formül kullan seçin formül kısmına aşağıdaki formülü kopyalayın.

=SAYIYAÇEVİR(SOLDAN(B1;UZUNLUK($A1)))<>$A1

Biçimlendirmeden renk seçimini yapın.

C sütununu seçin biçimlendirme formül kısına aşağıdaki formülü kopyalayın.

=VE(C1<>"";SATIR(C1)<>1;SOLDAN(C1;UZUNLUK($A1))<>METNEÇEVİR($A1;"[$-ar-SA,200]0"))

Biçimlendirmeden renk seçimini yapın.

Muzaffer Ali Bey çok teşekkürler.
işe yaradı..

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[asdsxx]

Rica ederim. Kolay gelsin.

Muzaffer Ali Bey Selamlar...
Sizden bir konuda daha yardıma ihtiyacım var. Sütunlardaki satırları karşılaşmada sabit bir sütuna göre değil de iki sütunda aynı sayı ile başlamayanları bulmak için nasıl bir formül yada kod yazabiliriz. Aşağıdaki örnekdeki gibi. Burada dikkat edilecek nokta karşılıklı hücrelerin başlangıç numaralarının eşit olup olmaması. Hücrenin içeriği değil. Yukarıdaki formülde Sabit bir referans sütunu vardı ve o sütuna göre kontrol ediyordu. Burada sabit bir referans sütunu yok iki sütun karşılaştırılacak.
Sayılar ardışık olacak (1.2.3.4.5.6 gibi) diye bir kural da yok. İki sütundaki aynı satırdaki hücrelerin ilk başlangıç sayısının aynı olup olmadığına bakacak. Farklı ise renklendirecek

 

[Muzaffer Ali]

Örnek dosya ekler misiniz?

 

[Muzaffer Ali]

Şu mantık ile olsa da olur sanırım; Eğer Sıra numarası doğru yerde değilse sarıya boyansın. İki hücreyi karşılaştırmaya gerek yok gibi görünüyor.

 

[Muzaffer Ali]

Eğer dediğim gibi olursa A ve B sütunlarının ikisini de seçiliyken koşullu biçimlendirme formül kısmına aşağıdaki formülü kopyalayın.

=SAYIYAÇEVİR(PARÇAAL(A1;1;BUL("-";A1)-1))<>SATIR(A1)-1