Makro Hatası Hakkında

[seddur]

)
isim = InputBox("Aranacak Değeri Giriniz")
urun_miktari = Application.WorksheetFunction.VLookup(isim, Sayfa2.Range("A1:I1000"), 7, False)
Sayfa3.Cells(2, 2) = urun_miktari
MsgBox "Aranan Değer B2 Hücresine Yazılmıştır.", vbInformation, "..:: Ömür ÇAKIR ::.."

Yukarıya kopyaladığım ve Kullanmakta olduğum düşeyara formülünün kodlarını bugüne kadar sorunsuz bir şekilde çalıştırıyordum.
Fakat her nedense yeni sayfaya veya dosyaya kopyaladığımda 2. satır hatası veriyor.Sebebini çözemedim.
Dosya bozulduğundan dolayı yenisini yapmam gerekiyor.Yardımlarınızı bekliyorum.

 

[Orion1]

Vlookup worksheetfunctionu bulamazsa hata verir.
Forumda find diye arama yapınız.

 

[Orion1]

A sütununda arar.G sütunundaki değeri yazar.
Buyurun.Ben kodları yazdım.

Dim k As Range
isim = InputBox("Aranacak Değeri Giriniz")
Set k = Sheets("Sayfa2").Range("A:A").Find(isim, , xlValues, xlWhole)
If Not k Is Nothing Then
    Sayfa3.Cells(2, 2).Value = k.Offset(0, 6).Value
    Else
    MsgBox "İsim : " & isim & " bulunamadı.İşlem gerçekleşmedi", vbCritical, "UYARI"
    Exit Sub
End If
MsgBox "Aranan Değer B2 Hücresine Yazılmıştır.", vbInformation, "..:: Ömür ÇAKIR ::.."

 

[seddur]

A sütununda arar.G sütunundaki değeri yazar.
Buyurun.Ben kodları yazdım.

Dim k As Range
isim = InputBox("Aranacak Değeri Giriniz")
Set k = Sheets("Sayfa2").Range("A:A").Find(isim, , xlValues, xlWhole)
If Not k Is Nothing Then
    Sayfa3.Cells(2, 2).Value = k.Offset(0, 6).Value
    Else
    MsgBox "İsim : " & isim & " bulunamadı.İşlem gerçekleşmedi", vbCritical, "UYARI"
    Exit Sub
End If
MsgBox "Aranan Değer B2 Hücresine Yazılmıştır.", vbInformation, "..:: Ömür ÇAKIR ::.."

Hocam sağol çok makbule geçti.Kod çalışıyor

 

[çıtır]

Eğersay ile önce kontrol yaparak hatadan kurtulabilirsiniz.Örnek kod.Deneyiniz.

Sub duşeyara()
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa2")
isim = InputBox("Aranacak Değeri Giriniz")
If isim = "" Then
MsgBox "Değer girmediniz", vbInformation, "..:: Ömür ÇAKIR ::.."
Exit Sub
End If
knt = WorksheetFunction.CountIf(s2.Range("A1:A1000"), isim)
If knt = 0 Then
MsgBox "ürün yok", vbInformation, "..:: Ömür ÇAKIR ::.."
Exit Sub
End If
urun_miktari = Application.WorksheetFunction.VLookup(isim, s2.Range("A1:I1000"), 7, False)
Sayfa1.Cells(2, 2) = urun_miktari
MsgBox "işlem tamam", vbInformation, "..:: Ömür ÇAKIR ::.."
End Sub

 

[Orion1]

Find komutunu kullanırsanız daha avantajlı olursunuz.Buluduğunuz hücreye offset uygulayabilirsiniz.
Örnek : k.offset(1,1).value = "test"
Worksheetfunction Vlookup göre daha esnektir.