excelde Vlookup sorunsali (vakka)

[velociraptor]

Soru:
elimde bir excel tablosu var, bu tablonun a sütununda girilmis degiskenleri, b sütunundaki 108 adet farklı degiskenle tarayıp, aynı olanlar olursa (yani a sütunu içerisinde bakıp, b sütununda olan herhangi bir deger bulursa) c sütununa "16" yazmasını saglayabilecek bir formül var mıdır? Görünüse göre basit bir olay ama beceremedim nedense bir türlü.

Cevap:
yöntem 1
A ve B sütunundaki degerler var iken C sütunundaki hücrelere yazılacak formül;
=EĞER(EYOKSA(DÜsEYARA(A1;$B$1:$B$108;;)) = YANLIs; 16; "")

yöntem2
asagidaki macro yu uygulayin

Kod: Tümünü seç

Option Explicit
Sub AynisiniBul()
Dim d, i As Integer
Dim j As Range
' d deðeri A sütununda kaç tane deðer olduðunu gösterir
d = Cells(65536, 1).End(xlUp).Row
' A1 den Ad ye kadar bütün hücreler için tek tek karþýlatýrma yapar
For i = 1 To d
' Her Ai için B sütunun komple tarar, aynýsý varsa Ci hücresine 16 yazar
    For Each j In Range("B1:B108")
        If Range("A" & i).Value = j.Value Then
        Range("C" & i).Value = 16
' Bulduðu anda yeni i için devam eder
GoTo yeni
        End If
    Next j
yeni:
Next i
End Sub

macroyu iceren dosya:

Kod: Tümünü seç

http://rapidshare.com/files/113704535/Deneme.xls

ALINTIDIR