is error

[heft]

Merhaba
Aşağıdaki dizinde hata alıyorum, nerede hata yapıyorum?

If IsError(WorksheetFunction.VLookup(ActiveCell.Offset(0, 5).Value, Range("A!A2:CI10000"), 87, 0).Value) = False Then
ActiveCell.Offset(0, 10).Value = ""
Else
ActiveCell.Offset(0, 10).Value = WorksheetFunction.VLookup(ActiveCell.Offset(0, 5).Value, Range("A!A2:CI10000"), 87, 0)
End If

 

[Merhum İdris SERDAR]

.

Şeklinde deneyin.

Dim v
v=WorksheetFunction.VLookup(ActiveCell.Offset(0, 5).Value, Range("A!A2:CI10000"), 87, 0)
If IsError(v) Then
ActiveCell.Offset(0, 10) = ""

Else
ActiveCell.Offset(0, 10) = v.Value
End If

.

 

[Orion1]

Bu worksheetfunctionlar çok kullanılıyor.
Bunun yerine vba nın find komutunu neden kullanmıyorsunuz?
Find komutu kullanırsanız eğer aradığınız yoksa hata almazsınız.Ve hücrenin offset özellinden faydalanabilirsiniz.

 

[heft]

Çok teşekkürler, ama olmadı

Run-time error '1004'
WorksheetFunction sınıfının VLookup özelliği alınmıyor

hatası almaya devam ediyorum.


"Find" Aklıma geldi sayın orion, ama nasıl kullanacağımı çözemedim.

Öğrenebileceğim bir link var mı?

 

[Orion1]

Forumda find diye arama yapınız.

 

[Orion1]

Aşağıdaki gibi bir kod kullanabilirsiniz.
*A sütununda arama yapıyor.
*B1 hücresindeki değeri arıyor.
*xlwhole verinin tamamını arıyor,xlpart yazarsanız içerir şeklinde arama yapabilirsiniz.range("B1").value & "*"
yazarsanız ile başlar şeklinde arayabilirsiniz.
*xlvalues,değer aradığınızı belirtirsiniz.

Sub bul()
Set k = Sheets("deneme").Columns(1).Find(Range("B1").Value, lookat:=xlWhole, LookIn:=xlValues)
If k Is Nothing Then
MsgBox Range("B1").Value & " ismi bulunamadı"
Else
MsgBox Range("B1").Value & " ismi bulundu"
End If
End Sub

 

[heft]

Teşekkürler
A kolonunda yakaladığı eşleşmeye karşık gelen 30. kolondaki (örn: AD30 da yazan değer) değeri almak istiyorum, bunun için düşeyarayı kullanmıştım.

WorksheetFunction.VLookup(ActiveCell.Offset(0, 5).Value, Range("A!A2:CI10000"), 87, 0).Value)
dizininde eğer aranan değer varsa bulup getiriyor, ama yoksa

WorksheetFunction sınıfının VLookup özelliği alınmıyor

hatası geliyor, çözemedim.

 

[Orion1]

A kolonunda hangi değeri arıyorsunuz?Ben size find komutuyla yapacam:Hatada vermeyecek.

 

[heft]

çok teşekkürler uyku tutmayacak yoksa;

aranan değer plan sayfasında ActiveCell.Offset(0, 5).Value
aramanın yapılacağı yer :Range("A!A2:A10000")

eğer değeri bulursa Range("A!CI2:CI10000") daki karşışığı yazılacak eğer A da kaşılık bulamazsa " " değeri atacak
özetle yapmak istediğim bu.

 

[Orion1]

Linkteki dosyayı inceleyin.

DOSYAYI INDIR

Sub arabul_59()
Dim k As Range
Range("A10").Select
Set k = Sheets("A").Range("A2:A" & Rows.Count).Find(ActiveCell.Offset(0, 5).Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    ActiveCell.Offset(0, 6).Value = Sheets("A").Range("CI" & k.Row).Value
Else
    ActiveCell.Value = ""
End If
End Sub

 

[heft]

çok teşekkürler olduuu..

 

[Orion1]

çok teşekkürler olduuu..

Kuşkunuzmu vardı?
İyi çalışmalar.

 

[heft]

çok teşekkürler, tabii ki yoktu.

Burası öyle bir platform ki, mantık dahilinde olan herşey bir şekilde çözülür.