Sub Swift_BoldKeyStrings_Turkish_MultiColumn()
Dim a As Variant
Dim i As Long, pos As Long, L As Long
Dim keystr As String, searchText As String
Dim keyNorm As String, textNorm As String
Dim col As Long

' Loop through all columns W (23) to AM (39)
For col = 23 To 39
With Range("A2", Cells(Rows.Count, col).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
searchText = a(i, col)

' Normalize for Turkish-insensitive comparison
keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
With .Cells(i, col).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
Next i
End With
Next col
End Sub

' Turkish normalization helper function
Private Function NormalizeTurkish(ByVal txt As String) As String
Dim result As String
result = UCase(txt)
result = Replace(result, "İ", "I")
result = Replace(result, "I", "I")
result = Replace(result, "Ş", "S")
result = Replace(result, "Ğ", "G")
result = Replace(result, "Ü", "U")
result = Replace(result, "Ö", "O")
result = Replace(result, "Ç", "C")
result = Replace(result, "ş", "S")
result = Replace(result, "ğ", "G")
result = Replace(result, "ü", "U")
result = Replace(result, "ö", "O")
result = Replace(result, "ç", "C")
result = Replace(result, "ı", "I")
result = Replace(result, "i", "I")
NormalizeTurkish = result
End Function

Sub Swift_BoldKeyStrings()
Dim a As Variant
Dim i As Long, pos As Long, L As Long
Dim keystr As String, searchText As String
Dim keyNorm As String, textNorm As String

' Column W
With Range("A2", Range("W" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
searchText = a(i, 23) ' column W

' Normalize for Turkish-insensitive comparison
keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
With .Cells(i, 23).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
Next i
End With

' Column X
With Range("A2", Range("X" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
searchText = a(i, 24) ' column X

keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
With .Cells(i, 24).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
Next i
End With

' Column Y
With Range("A2", Range("Y" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
searchText = a(i, 25) ' column Y

keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
With .Cells(i, 25).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
Next i
End With

' Repeat exactly the same structure for columns Z (26) to AM (39)
' Only change searchText = a(i, colIndex) and .Cells(i, colIndex)
' You can copy/paste from above blocks for all remaining columns

End Sub

' Turkish normalization helper function
Private Function NormalizeTurkish(ByVal txt As String) As String
Dim result As String
result = UCase(txt)
result = Replace(result, "İ", "I")
result = Replace(result, "I", "I")
result = Replace(result, "Ş", "S")
result = Replace(result, "Ğ", "G")
result = Replace(result, "Ü", "U")
result = Replace(result, "Ö", "O")
result = Replace(result, "Ç", "C")
result = Replace(result, "ş", "S")
result = Replace(result, "ğ", "G")
result = Replace(result, "ü", "U")
result = Replace(result, "ö", "O")
result = Replace(result, "ç", "C")
result = Replace(result, "ı", "I")
result = Replace(result, "i", "I")
NormalizeTurkish = result
End Function

Sub Swift_BoldKeyStrings()
Dim a As Variant
Dim i As Long, pos As Long, L As Long
Dim keystr As String, searchText As String
Dim keyNorm As String, textNorm As String

With Range("A2", Range("N" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
searchText = a(i, 14)

' Normalize both strings for Turkish-insensitive comparison
keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
' Apply formatting on the original cell text
With .Cells(i, 14).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
Next i
End With
End Sub

' Helper function to replace Turkish characters with ASCII equivalents
Private Function NormalizeTurkish(ByVal txt As String) As String
Dim result As String
result = UCase(txt)
result = Replace(result, "İ", "I")
result = Replace(result, "I", "I")
result = Replace(result, "Ş", "S")
result = Replace(result, "Ğ", "G")
result = Replace(result, "Ü", "U")
result = Replace(result, "Ö", "O")
result = Replace(result, "Ç", "C")
result = Replace(result, "ş", "S")
result = Replace(result, "ğ", "G")
result = Replace(result, "ü", "U")
result = Replace(result, "ö", "O")
result = Replace(result, "ç", "C")
result = Replace(result, "ı", "I")
result = Replace(result, "i", "I")
NormalizeTurkish = result
End Function

Sub Swift_BoldKeyStrings_MultiColumn()
Dim ws As Worksheet
Dim a As Variant
Dim i As Long, pos As Long, L As Long
Dim keystr As String, searchText As String
Dim keyNorm As String, textNorm As String
Dim firstCol As Long, lastCol As Long
Dim lastRow As Long, c As Long

Set ws = ActiveSheet
firstCol = 2 ' Column B
lastCol = 112 ' Column DG

' Find last row based on column A
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If lastRow < 2 Then Exit Sub

' Read column A once
a = ws.Range("A2:A" & lastRow).Value

For c = firstCol To lastCol
For i = 1 To UBound(a, 1)
keystr = a(i, 1)
searchText = CStr(ws.Cells(i + 1, c).Value)

If Len(keystr) = 0 Or Len(searchText) = 0 Then GoTo NextRow

' Normalize both for Turkish-insensitive matching
keyNorm = NormalizeTurkish(keystr)
textNorm = NormalizeTurkish(searchText)

L = Len(keystr)
pos = 0
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)

Do While pos > 0
With ws.Cells(i + 1, c).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, textNorm, keyNorm, vbTextCompare)
Loop
NextRow:
Next i
Next c
End Sub

Private Function NormalizeTurkish(ByVal txt As String) As String
Dim result As String
result = UCase(txt)
result = Replace(result, "İ", "I")
result = Replace(result, "I", "I")
result = Replace(result, "Ş", "S")
result = Replace(result, "Ğ", "G")
result = Replace(result, "Ü", "U")
result = Replace(result, "Ö", "O")
result = Replace(result, "Ç", "C")
result = Replace(result, "ş", "S")
result = Replace(result, "ğ", "G")
result = Replace(result, "ü", "U")
result = Replace(result, "ö", "O")
result = Replace(result, "ç", "C")
result = Replace(result, "ı", "I")
result = Replace(result, "i", "I")
NormalizeTurkish = result
End Function

Sub Swift_BoldKeyStrings()
Dim a As Variant
Dim i As Long, j As Long, pos As Long, L As Long
Dim keystr As String

With Range("A2", Range("W" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 23), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 23).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 23), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("X" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 24), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 24).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 24), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("Y" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 25), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 25).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 25), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("Z" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 26), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 26).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 26), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AA" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 27), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 27).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 27), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AB" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 28), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 28).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 28), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AC" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 29), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 29).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 29), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AD" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 30), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 30).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 30), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AE" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 31), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 31).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 31), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AF" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 32), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 32).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 32), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AG" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 33), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 33).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 33), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AH" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 34), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 34).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 34), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AI" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 35), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 35).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 35), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AJ" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 36), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 36).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 36), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AK" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 37), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 37).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 37), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AL" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 38), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 38).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 38), keystr, vbTextCompare)
Loop
Next i
End With
With Range("A2", Range("AM" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 39), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 39).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 39), keystr, vbTextCompare)
Loop
Next i
End With


End Sub

Sub Swift_BoldKeyStrings()
Dim a As Variant
Dim i As Long, j As Long, pos As Long, L As Long
Dim keystr As String

With Range("A2", Range("N" & Rows.Count).End(xlUp))
a = .Value
For i = 1 To UBound(a)
keystr = a(i, 1)
L = Len(keystr)
pos = 0
pos = InStr(pos + 1, a(i, 14), keystr, vbTextCompare)
Do While pos > 0
With .Cells(i, 14).Characters(pos, L)
.Font.Bold = True
.Font.Color = vbRed
End With
pos = InStr(pos + 1, a(i, 14), keystr, vbTextCompare)
Loop
Next i
End With
End Sub