• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Birinci sayfadan ikinci sayfaya veri almak

Katılım
8 Mart 2015
Mesajlar
11
Excel Vers. ve Dili
Microsoft Excel 2010 Türkçe
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:
hFubl6p.png

SuZ3pfj.png
 
Sayfanın Kod bölümüne;
Kod:
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
 
çok teşekkür ederim sağolun :) Ama bu işlemi dolaylı ve kaçıncı işlevlerini kullanarak yapmam gerekiyor.
 
A sütunundaki kodların hepsini aynı anda getirmek için ise
Kod:
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
 
çok teşekkürler hocam sağolun ama dediğim gibi bana bu iki komutla yazılmış bir kod lazım :)
 
sn. mogretici Kod mu lazım, formül mü?, bu işinizi görmüyor mu?
 
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.
Kod:
İNDİS(Sayfa1!$B$1:$B$1000;TOPLA.ÇARPIM(KAÇINCI($A1;Sayfa1!$A$1:$A$1000;0));1)
C1 Hücresine
Kod:
=İ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)
 
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 :)
 
teşekkür ederim sayenizde hallettim sağolun
 
İ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.
Kod:
=DOLAYLI("SinavGirisListesi!"&ADRES(KAÇINCI($A1;DOLAYLI("SinavGirisListesi!A:A");0);SÜTUN();4))
 
İ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.
Kod:
=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
 
Geri
Üst