hata mesajı "kelime arama"

[acar6783]

Kolay gelsin arkadaşlar.Aşağıdaki kodda düşeyara ile hücredeki verinin ilk 5 harfini içeren kelimeyi diğersayfada aratıp o kelimeyi içeren hücrenin yanındaki 2. ve 3. veriyi almakistiyorum ama nerede hata yapıyorum.
Vlook up özelliği kullanılamıyor hatası alıyorum.

s1.Range("a13") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 6, 0)
s1.Range("k28") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 4, 0)
s1.Range("h28") = "1"
s1.Range("a28") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 3, 0)

[COLOR="Red"][SIZE="2"]ara = Left(s1.Range("a13"), 5)
s1.Range("a15") = WorksheetFunction.VLookup((" * " & ara & " * "), s3.Range("B:AW"), 2, 0)
s1.Range("a17") = WorksheetFunction.VLookup((" * " & ara & " * "), s3.Range("B:AW"), 3, 0)
s1.Range("a18") = WorksheetFunction.VLookup((" * " & ara & " * "), s3.Range("B:AW"), 4, 0[/SIZE][/COLOR]

 

[Ömer]

Merhaba,

Veriyi bulamadığı için hata veriyordur.

Bunun yerine find komutunu kullanmanızı tavsiye ederim. Sorunsuz ve çok daha hızlı bir komuttur.

Linkte örnek var.

http://www.excel.web.tr/f48/veri-kar-yla-tyrma-t136989.html

.

 

[acar6783]

Teşekkürler Ömer bey

Aşağıdaki şekilde bir kod hazırladım fakat ürün bulunamadığında " ürün bulunamadı koddan aransın mı şeklide uyarı çıkıp evet dersem kod makrosunun çalışmasını istiyorum. amöa uyarlayamadım

Sub barkod()
Set s1 = Sheets("ARIZA GÖNDERİM")
Set s2 = Sheets("teknoloji envanter")
Set s3 = Sheets("firma")
aranan = s1.Range("b2")

 Range("A8:BN51").ClearContents
 
s1.Range("a13") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 6, 0)
s1.Range("k28") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 4, 0)
s1.Range("h28") = "1"
s1.Range("a28") = WorksheetFunction.VLookup(aranan, s2.Range("A:AW"), 3, 0)
 
bul = Left(s1.Range("a13"), 5)
A = s3.Cells.Find([bul])

s1.Range("a15") = WorksheetFunction.VLookup((A), s3.Range("B:AW"), 2, 0)
s1.Range("a17") = WorksheetFunction.VLookup((A), s3.Range("B:AW"), 3, 0)
s1.Range("a18") = WorksheetFunction.VLookup((A), s3.Range("B:AW"), 4, 0)
s1.Range("a8") = WorksheetFunction.VLookup((A), s3.Range("B:AW"), 5, 0)
s1.Range("a9") = WorksheetFunction.VLookup((A), s3.Range("B:AW"), 6, 0)

Range("A6:U51").Copy Range("W6")
Range("A6:U51").Copy Range("AS6")
Range("Q22") = Now
Range("Q23") = Now
Range("Q24") = Now
Range("Q27") = "SERİ NO"
hata:      Exit Sub
 Application.CutCopyMode = False
End Sub