VLOOKUP'la Yapamadım

[xamimax]

Merhaba,

Şöyle bir tablomvar;

NO DEĞER
FG37 3
FG37 57
FG37 9
FG37 63

Bu tablodaki değerleri, bir başka çalışmada kullanmam gerekiyor. Yapmak istediğim şey şu;

FG37 değerini tabloda arasın; tabloda geçen 3. FG37'nin olduğu sıradaki DEĞER'i (9) yazsın.

Vlookup'la yapamadım, bunu nasıl yapabilirim?

 

[numan şamil]

Merhaba,

Şöyle bir tablomvar;

NO DEĞER
FG37 3
FG37 57
FG37 9
FG37 63

Bu tablodaki değerleri, bir başka çalışmada kullanmam gerekiyor. Yapmak istediğim şey şu;

FG37 değerini tabloda arasın; tabloda geçen 3. FG37'nin olduğu sıradaki DEĞER'i (9) yazsın.

Vlookup'la yapamadım, bunu nasıl yapabilirim?

Merhaba
İşinizi görür mü?

Sub numan()
    Dim Son As Long
    Dim X As Long
   Application.ScreenUpdating = False
Range("c2:c" & Rows.Count).ClearContents
Son = Cells(Rows.Count, 1).End(3).Row
For X = 2 To Son
If WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, "A")) = 3 Then
Range("c" & X) = Range("b" & X)
End If
Next X
 Application.ScreenUpdating = True
End Sub

 

[numan şamil]

Bu da "d1" hücresine yazılan veriyi "A" sütununda Arayıp mükerrer olan 3. verinin karşısındaki değeri yazıyor

Sub numan()
    Dim Son As Long
    Dim X As Long
   Application.ScreenUpdating = False
Range("c2:c" & Rows.Count).ClearContents
Son = Cells(Rows.Count, 1).End(3).Row
For X = 2 To Son
If Range("d1") = Range("a" & X) And WorksheetFunction.CountIf(Range("A2:A" & X), Cells(X, "A")) = 3 Then
Range("c" & X) = Range("b" & X)
End If
Next X
 Application.ScreenUpdating = True
End Sub

 

[Ömer]

Merhaba,

Formülle çözüm için linki inceleyiniz.

Düşeyara n. sayıya karşılık gelen değer için bir soru

.