Birinci sayfadan ikinci sayfaya veri almak

[mogretici]

Merhaba arkadaşlar. Birinci sayfada A satırındaki numarayı ikinci sayfaya yazdığımda birinci sayfada o numaranın karşısındaki ismi ve bölüm adını yazdırabileceğim bir kod varsa yardımcı olur musunuz? Ama bu işlemi dolaylı ve kaçıncı işlevlerini kullanarak yapmam gerekiyor.

Örnek Resimler:

 

[Ömer BARAN]

Aşağıdaki konuda az önce cevap yazıldı, inceleyiniz.
Formül hakkında yardım

 

[tahsinanarat]

Sayfanın Kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
    If IsEmpty(Target) Then Exit Sub

    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "" Then
    Target.Interior.ColorIndex = xlNone
    Target.Offset(0, 1) = ""
Else
    Set Bul = Sheets("SinavGirisListesi").Columns("a").Find(Target, Lookat:=xlWhole)
    If Bul Is Nothing Then
        Target.Interior.ColorIndex = 3
        Target.Offset(0, 1) = ""
       MsgBox Target.Value & " Degerini Bulamadim "
    Else
        Target.Interior.ColorIndex = xlNone
        Target.Offset(0, 1) = Sheets("SinavGirisListesi").Cells(Bul.Row, "B")
        Target.Offset(0, 2) = Sheets("SinavGirisListesi").Cells(Bul.Row, "C")
        Target.Offset(, 2).Next.Select
     End If
End If
son:
End Sub

 

[mogretici]

çok teşekkür ederim sağolun Ama bu işlemi dolaylı ve kaçıncı işlevlerini kullanarak yapmam gerekiyor.

 

[tahsinanarat]

A sütunundaki kodların hepsini aynı anda getirmek için ise

Sub arabulgetir()
Range("B2:C65536").ClearContents
a = WorksheetFunction.CountA(Range("A2:A65536"))
c = 0
For aa = 2 To a + 1
For bb = 2 To Sheets("SinavGirisListesi").Cells(65536, 1).End(xlUp).Row
If Cells(aa, 1) = Sheets("SinavGirisListesi").Cells(bb, 1).Value Then
c = c + 1
Cells(c + 1, 2) = Sheets("SinavGirisListesi").Cells(bb, 2).Value
Cells(c + 1, 3) = Sheets("SinavGirisListesi").Cells(bb, 3).Value
End If
Next bb
Next aa
End Sub

 

[mogretici]

çok teşekkürler hocam sağolun ama dediğim gibi bana bu iki komutla yazılmış bir kod lazım

 

[tahsinanarat]

sn. mogretici Kod mu lazım, formül mü?, bu işinizi görmüyor mu?

 

[ZorBey_]

Sayın tahsinanarat iyi çalışmalar arkadaş
Galiba Formül İstiyor denermisiniz
Sayfa 2 B1 Hücresine yapıştırın Aşağıya çekin.

İNDİS(Sayfa1!$B$1:$B$1000;TOPLA.ÇARPIM(KAÇINCI($A1;Sayfa1!$A$1:$A$1000;0));1)

C1 Hücresine

=İNDİS(Sayfa1!$C$1:$C$1000;TOPLA.ÇARPIM(KAÇINCI($A1&$B1;Sayfa1!$A$1:$A$1000&Sayfa1!$B$1:$B$1000;0));1)

 

[mogretici]

ya yanlış anlaşlıdım herpinizden özür dilerim formül demek istiyorum tahsinanarat çok teşekkür ederim düzeltmeniz için çok sağolun

 

[mogretici]

teşekkür ederim sayenizde hallettim sağolun

 

[Ömer BARAN]

İNDİS ve DÜŞEYARA olmadan DOLAYLI, KAÇINCI ve ADRES fonksiyonlarıyla hazırlanmış öneri.
Aşağıdaki formülü B1 hücresine uygulayın sonra sağa ve aşağı formülü kopyalayın.

=DOLAYLI("SinavGirisListesi!"&ADRES(KAÇINCI($A1;DOLAYLI("SinavGirisListesi!A:A");0);SÜTUN();4))

 

[mogretici]

İNDİS ve DÜŞEYARA olmadan DOLAYLI, KAÇINCI ve ADRES fonksiyonlarıyla hazırlanmış öneri.
Aşağıdaki formülü B1 hücresine uygulayın sonra sağa ve aşağı formülü kopyalayın.

=DOLAYLI("SinavGirisListesi!"&ADRES(KAÇINCI($A1;DOLAYLI("SinavGirisListesi!A:A");0);SÜTUN();4))

Dolaylı ve kaçıncı içeren fonksiyon için ayrıca teşekkür ediyorum sağolun