If Right

[excel_haso]

Merhaba arkadaşlar,
A kolonumda bayağı yüklü bir kod listesi var ve ben son 3 karakteri "4lü" olanları b kolonundaki değerlerini c kolonuna 4 ile çarptırmak istiyorum. Bunun içinde aşağıdaki kodu yazmaya çalıştım ama olmadı nerede hata yapıyorum acaba

Sub sagdan_bul()
    Dim i As Integer
           For i = 2 To Range("A65536").End(3).Row
            If Right(i, 3) = "4lü" = true Then
            Cells(i, 3).Value = Cells(i, 2) * 4
                     
            End If
              
    Next i
    
End Sub

 

[Recep İpek]

Kodlarını aşağıdaki şekilde değiştiriniz.

Sub sagdan_bul()
Dim i As Integer
    For i = 2 To Range("a65536").End(3).Row
        If Right(Cells(i, "a"), 3) = "4lü" Then
            Cells(i, "c").Value = Cells(i, "b") * 4
        End If
    Next i
End Sub

 

[excel_haso]

Teşekkür ederim