inputbox yardım

[korucu16]

inputbox ile klavyeden bilgi istiyorum

dim a
a=inputbox("isim giriniz")

if a = ("j3") then
Range("F8").Select
Selection.Copy
Sheets("Sayfa1").Select
Range("E7").Select
ActiveSheet.Paste
End If
end if

diye komutları yazdım. istediğim şu klavyeden girilen j3 e eşit ise f8 i sayfa 1 e7 kopyalasın

mesaj kutusuna j3 teki isimi yazıyorum.
ama kopyalama işlemini yapmıyor. ben nerede yanlış yapıyorum acaba

 

[Skorpiyon]

Sayın korucu16,

Kodu şu şekilde bir dener misiniz.

Dim a
a = InputBox("İsim giriniz")
If a = Range("J3").Value Then
Range("F8").Copy Sheets("Sayfa1").Range("E7")
End If

 

[Orion1]

Küçük büyük harflere duyarsız.

Dim a
a = InputBox("İsim giriniz")
If UCase(Replace(Replace(a, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(Range("J3").Value, "ı", "I"), "i", "İ")) Then
Range("F8").Copy Sheets("Sayfa1").Range("E7")
End If

 

[korucu16]

teşekkürler..