Aranan bir verinin ait olduğu satır ve sütundaki belirli bir hücredeki veri....?

[tkabaca]

Selam Arkadaşlar;

Foruma yeni üye oldum. Bu forumun mimarlarına sonsuz teşekkürler. Excell ile amatör programlar yapıyorum ve foruma üye olduğum ilk günde bile bir çok yeni bilgi edindim. Çözemediğim bir sorunum var, yardımcı olabilirseniz çok sevinirim.

Sözgelimi adı "Sayfa1" olan bir çalışma sayfamda bir tablom var. tablonun satırlarında saat bilgileri, sütunlarında ise tarih bilgileri mevcut. Tablonun içindeki hücrelerde "1A", "2B" veya "13A" gibi kodlar var. Bu kodların her biri bir öğrenciyi temsil ediyor. Bu tablo bir öğretmenin hangi gün ve saatlerde hangi öğrencilere ders verdiğini özetliyor. Soruma geçmeden önce tabloyu biraz daha tasvir edeyim;

A2 hücresinden A10 hücresine kadar alt alta saatler yazılı, B1 hücresinden B30 hücresine kadar da yanyana bir aylık günler yazılı. tablonun içindeki her hücrede belirli bir kod ile öğrencileri yazdım.

Amacım şu;
"sayfa2" adlı diğer bir çalışma sayfasında oluşturduğum başka bir tabloda sözgelimi "13B" kodlu öğrenciye ait bir döküm çıkarmak istiyorum. "13B" kodunu "sayfa1"deki tabloda arattırıp bu kodun bulunduğu satırdaki saat ve sütundaki tarih bilgisini "sayfa2"de bulunan yeni tablodaki yanyana hücrelere yazdırmak istiyorum.

Bu sayede "13B" kodlu öğrencinin bir ay boyunca hangi tarih ve hangi saatlerde ders aldığını gösteren bir tablo elde etmiş olacağım.

formüller ile çözüm bulamadım. Muhtemelen VBA kodlama ile bir çözüm gerekiyor.

Yardımcı olabilecek arkadaşım varsa çalışma kitabımı gönderebilirim.

Şimdiden sonsuz teşekkürler...

 

[Ömer]

Merhaba,

Öncelikle aramıza hoşgeldiniz.

Örnek bir tablo eklermisiniz..

 

[tkabaca]

Örneğim ekte

Eklediğim çalışma kitabındaki sayfa2'deki B1 hücresine yazdığım kodu sayfa1'deki tabloda aratıp ilgili tarih ve saat bilgisinin sayfa2'deki tabloya eklenmesini istiyorum...

Merhaba,

Öncelikle aramıza hoşgeldiniz.

Örnek bir tablo eklermisiniz..

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kod kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim z As Integer
    
    On Error GoTo hatayakala
    
    z = 3
    
    Application.EnableEvents = False
    
    Range("A" & z + 1 & ":B1000").ClearContents
    
    If Target.Address = Range("B1").Address Then
        
        With Sheets("Sayfa1")
            Set bul = .Cells.Find(Range("B1"), Lookat:=xlWhole)
            
            If Not bul Is Nothing Then
                adr = bul.Address
                z = 3
                
                Do
                    z = z + 1
                    
                    Range("A" & z) = .Cells(bul.Row, 1)
                    Range("A" & z).NumberFormat = "hh:mm;@"
                    
                    Range("B" & z) = .Cells(1, bul.Column)
                    Range("B" & z).NumberFormat = "dd/mm/yy;@"
                    
                    Set bul = .Cells.FindNext(bul)
                Loop While Not bul Is Nothing And adr <> bul.Address
            
            Else
                MsgBox "Öğrenci bulunamadı", vbCritical, "UYARI"
            End If
            
        End With
    
    End If
hatayakala:
    
    Application.EnableEvents = True
    
    Set bul = Nothing
End Sub

 

[Orion1]

KTF hazırladım.
Dosyanız ekte.

Function saati(aralik As Range, deg As Range)
Dim k As Range
Set k = aralik.Find(deg, , xlValues, xlWhole)
If k Is Nothing Then
    saati = "BULUNAMADI"
    Else
    saati = Sheets("Sayfa1").Cells(k.Row, "A").Value
End If
Set k = Nothing
End Function
Function tarihi(aralik As Range, deg As Range)
Dim k As Range
Set k = aralik.Find(deg, , xlValues, xlWhole)
If k Is Nothing Then
    tarihi = "BULUNAMADI"
    Else
    tarihi = Sheets("Sayfa1").Cells(1, k.Column).Value
End If
Set k = Nothing
End Function

 

[Ali]

formüller ile çözüm bulamadım. Muhtemelen VBA kodlama ile bir çözüm gerekiyor.
.

Şart değil fonksiyonlarlada olur.


Sayfa2'deki A ve B sütunundaki formüller dizi formülü olup direk enter tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak girilmelidir.

Excel formül başına ve sonuna { } ayıraçlarını otomatik olarak ekleyecektir.


Örnek dosya ektedir.

 

[tkabaca]

Arkadaşlar süpersiniz;

Hepinize minnettarım. Özellikle sorunu pratik bir şekilde fonksiyonlarla çözen Ali arkadaşımız yazdığı fonksiyonu kısaca açıklarsa çok memnun olurum...

Çok yararlı bir sitenin üyeleri olmaktan gurur duyuyor olmalısınız...

 

[Orion1]

Benimkide fonksiyon.Kullanıcı Tanımlı Fonksiyon (KTF)

 

[tkabaca]

Kendi çalışma kitabıma uyarlayabildim ama sorun var...

Benimkide fonksiyon.Kullanıcı Tanımlı Fonksiyon (KTF)

Çok teşekkürler Evren bey, gerçekten sizin öneriniz daha kullanışlı. formül çubuğuna faza kalabalık yazmaya gerek kalmıyor.

Ancak bir sorun var. Eğer tabloda 13B kodu birden fazla geçiyorsa ne yapacağız?

Ben aynı tabloda geçen bütün 13B kodlarına ait tarih ve saat bilgisini alt alta istiyorum....

 

[tkabaca]

çok iyi ama bir sorun var

Şart değil fonksiyonlarlada olur.


Sayfa2'deki A ve B sütunundaki formüller dizi formülü olup direk enter tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak girilmelidir.

Excel formül başına ve sonuna { } ayıraçlarını otomatik olarak ekleyecektir.


Örnek dosya ektedir.

Şu tarih ve saati tablodan bulma sorunuma ilgi gösterdiğiniz için çok teşekkürler... Çözümünüz çok işime yaradı.

Ama yeni fark edip çözüm bulamadığım bir sorun var;

Eğer aradığım kod tabloda bir tane ise hiç bir sorun yok ama birden fazla ise saatleri hiç aksatmadan doğru olarak alırken tarihler hatalı geliyor.

Kendim sorunu çözemedim bir türlü. Yardımcı olabilir misiniz?

 

[Orion1]

Çok teşekkürler Evren bey, gerçekten sizin öneriniz daha kullanışlı. formül çubuğuna faza kalabalık yazmaya gerek kalmıyor.

Ancak bir sorun var. Eğer tabloda 13B kodu birden fazla geçiyorsa ne yapacağız?

Ben aynı tabloda geçen bütün 13B kodlarına ait tarih ve saat bilgisini alt alta istiyorum....

O zaman makro yazalım.Sub prosedür yazalım.

 

[Ali]

Şu tarih ve saati tablodan bulma sorunuma ilgi gösterdiğiniz için çok teşekkürler... Çözümünüz çok işime yaradı.

Ama yeni fark edip çözüm bulamadığım bir sorun var;

Eğer aradığım kod tabloda bir tane ise hiç bir sorun yok ama birden fazla ise saatleri hiç aksatmadan doğru olarak alırken tarihler hatalı geliyor.

Kendim sorunu çözemedim bir türlü. Yardımcı olabilir misiniz?

Farklı bir çözüm ektedir. Saatleri ve tarihlerin tümünü listelemektedir.

C16 hücresine kriterinizi yazınız. Sarı renkli alanda tümü listelenecektir.