Makro kodu düzenleme

[mersilen]

Merhabalar
Makro ile isimleri karşılaştırıp veri alırken isimlerin büyük küçük harf yazım farklılığından dolayı verileri tam olarak alamıyorum.Sorunu nasıl çözebilirz.
Sayfa2 deki nolarını buldurmak istiyorum.
Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub gulnihal()
Dim sonsatir As Long, sat2 As Long, a As Long, i As Long, k As Range
Sheets("Sayfa1").Select
Range("A2:A" & Rows.Count).ClearContents
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

sonsatir1 = Sheets("sayfa1").Range("b" & Rows.Count).End(xlUp).Row
sat2 = Sheets("Sayfa2").Range("B" & Rows.Count).End(xlUp).Row

For a = 2 To sonsatir1
    Set k = Sheets("Sayfa2").Range("B3:B" & sat2).Find(Cells(a, "B").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(a, "A").Value = k.Offset(0, -1).Value
    End If
    Set k = Nothing
Next a
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

 

[mersilen]

Evren bey
çok teşekkür ederim.