indis ve kaçıncı fonksiyonları

[yilmaz1717]

Merhaba Arkadaşlar,
Aşağıfaki formülü makro ile yapabilirmiyiz.
yardımlarınız için teşekkürler.

=İNDİS($P$2:$BJ$340; KAÇINCI(C2;$P$2:$P$340; KAÇINCI(N$1;$P$1:$BJ$1))

 

[Necdet]

Merhaba,

Örnek dosya eklerseniz sonuca daha hızlı ulaşırsınız.

 

[yilmaz1717]

Örnek bir dosya yükledim.
Yardımlarınız için teşekkürler

 

[İhsan Tank]

Örnek bir dosya yükledim.
Yardımlarınız için teşekkürler

merhaba
bir module atayarak dener misiniz

Sub getir()
Dim a As Long
If Range("B1") <> "" Then
asi = MsgBox(Range("B1").Value & " Yılına Ait Veriler'i Aktarayım Mı_?", vbYesNo, _
"Onay")
If asi = vbNo Then Exit Sub
For a = 2 To Cells(65536, "A").End(xlUp).Row
Cells(a, "B") = WorksheetFunction.Index(Range("G2:L10"), WorksheetFunction.Match(Range("A" & a).Value, Range("F2:F10"), 0), _
WorksheetFunction.Match(Range("B1"), Range("G1:L1"), 0))
Next
MsgBox Range("B1").Value & " Verileri Aktarıldı", vbInformation
Else
MsgBox "Veri Girmediğiniz İçin İşlem Yapılmadı", vbInformation
End If
End Sub

 

[Necdet]

Merhaba,

Alternatif, Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayarak deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    Dim i As Long, _
        c As Range
    
    Application.ScreenUpdating = False
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i < 2 Then i = 2
    Range("B2:B" & i).ClearContents
    
    Set c = Range("G1:XFD1").Find([B1], LookIn:=xlValues)
    If Not c Is Nothing Then
        i = Cells(Rows.Count, c.Column).End(3).Row
        Range(Cells(2, c.Column), Cells(i, c.Column)).Copy Range("B2")
    End If
    
    Application.ScreenUpdating = False
End Sub

 

[yilmaz1717]

Yardımlarınız için teşekkürler,
deneyip geri dönüş yapacağım.

 

[assenucler]

Sayın Necdet Yeşertener;

Günaydınlar...

Katkılarınız için teşekkürler..

Sevgi ve saygılar.

 

[yilmaz1717]

Arkadaşlar ikiside çalıştı.
Yardımlarınız ve emeğiniz için çok teşekkür ediyorum.
Sağlıklı günler dileği ile

 

[İhsan Tank]

Arkadaşlar ikiside çalıştı.
Yardımlarınız ve emeğiniz için çok teşekkür ediyorum.
Sağlıklı günler dileği ile

rica ederim
Syn : Necdet Yeşertener Hocam'ada Teşekkür Ederim.
:yazici: