Eşit ise boyansın

[van_65166]

Üstadlarım merhaba

Ben bir turizim firmasında müşterilerle rezervasyon yapan firma arasında müşteri kontrolü yapıyorum bir makrom var a1=b1' ikisinide boyuyor

Yani

A1 HÜCRESİ = HASAN ALİ
B1 HÜCRESİ= HASAN ALİ

hücre boyanıyor

rezervasyon yapan firma bazı müşterilerin önce soy ismini sonra ismini yazıyor o zamanda mümkün mertebe hücre boyanmıyor

Benim istediğim ,

A1 HÜCRESİ = HASAN ALİ
B1 HÜCRESİ= ALİ HASAN

olsa dahi hücre boyansın şimdiden teşekkürler.

 

[YUSUF44]

O makro kodlarını belirtir misiniz?

 

[van_65166]

O makro kodlarını belirtir misiniz?

pgt = 3
nrt = 3
a = Cells(65536, "e").End(xlUp).Row
b = Cells(65536, "c").End(xlUp).Row

q = 3
y = Right(Cells(q, 3), 1)
ye = Cells(q, 3)
Dim ab As Range
For Each ab In Range("c3:c65530")
y = Right(ab, 1)
If y = " " Then
If Len(ab) > 1 Then
ab = Application.Replace(ab, Len(ab) - 0, 1, "")
End If

Else
'MsgBox "dolu karakter"
End If

Next ab


pgt = 3
nrt = 3
a = Cells(65536, "e").End(xlUp).Row
b = Cells(65536, "c").End(xlUp).Row
For y = 3 To b
x = 3
pgt = 3
For x = 3 To a
If cevir(Cells(nrt, 3).Value) = cevir(Cells(pgt, 5).Value) Then
With Cells(nrt, 3).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Cells(pgt, 5).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Exit For
Else
pgt = pgt + 1
End If
Next x
nrt = nrt + 1
Next y

 

[YUSUF44]

Aşağıdaki kodlar ile 1. satırdan 20. satıra kadar A ve B sütunları karşılaştırılarak eşitlik kontrolü yapılıyor ve eşitse sarıya boyuyor.

Sub isim()
For i = 1 To 20
If Cells(i, 1) = Cells(i, 2) Or _
    Cells(i, 1) = Right(Cells(i, 2), Len(Cells(i, 2)) - WorksheetFunction.Find(" ", Cells(i, 2))) & " " & _
    Left(Cells(i, 2), WorksheetFunction.Find(" ", Cells(i, 2)) - 1) Then
Cells(i, 1).Interior.Color = 65535
Cells(i, 2).Interior.Color = 65535
End If
Next
End Sub

Sizin kodlarınızda "cevir" diye bir şey var, onun ne olduğunu bil(e)mediğim için kodları size uyarlayamadım. Normalde benim kodlarımda cells(i,1) kısmı A sütununu, cells(i,2) ise B sütununu gösteriyor. Sizin kodlardaki (nrt,3) ve (pgt,5) yerine bu ifadeleri yazacaktım ama "cevir"in fonksiyonunu bilmediğimden yapamadım.