İç içe formül yardım !!!

[selphi7]

ekteki dosyada personel eğitim takip listesi sayfasında sicil numarası yazılan personelin bugüne kadar almış olduğu eğitimleri çıkaracak bir formül yazılabilirmi? Örnek sayfadaki gibi

 

[İhsan Tank]

ekteki dosyada personel eğitim takip listesi sayfasında sicil numarası yazılan personelin bugüne kadar almış olduğu eğitimleri çıkaracak bir formül yazılabilirmi? Örnek sayfadaki gibi

Merhaba

Option Explicit
Sub eğitim_aktar_61()
Dim ts, kaplan, trabzonspor, bordo, s1, s2
s1 = "GENEL EĞİTİM LİSTESİ": s2 = "Personel Eğitim Takip Listesi"
kaplan = 5
Sheets(s2).Range("A5:B65536").ClearContents
Set ts = Sheets(s1).Range("B:B").Find(Sheets(s2).Range("B2"), , , xlWhole)
If Not ts Is Nothing Then
bordo = ts.Address
Do
Sheets(s2).Cells(kaplan, "A") = Sheets(s1).Cells(ts.Row, "C")
kaplan = kaplan + 1
Set ts = Sheets(s1).Range("B:B").FindNext(ts)
Loop While Not ts Is Nothing And ts.Address <> bordo
End If
End Sub

Boş bir module kopyalayın ve deneyin.

 

[Mahir64]

MErhaba

Birleştirilmiş hücreleri iptal ederek.

Personel Eğitim Takip Listesi B5 hücresine,

=EĞER(SATIRSAY(B$5:B5)>$D$2;"";İNDİS('GENEL EĞİTİM LİSTESİ'!$C$2:$C$65500;KÜÇÜK(EĞER('GENEL EĞİTİM LİSTESİ'!$A$2:$A$65500=$A$2;SATIR($A$2:$A$65500)-SATIR($A$2)+1);SATIRSAY(B$5:B5))))

DİZİ formülüdür.

D2 hücresine,

=EĞERSAY('GENEL EĞİTİM LİSTESİ'!A:A;A2)

Yazarak deneyiniz.

 

[selphi7]

İhsan Bey, Mahir Bey ikinizede çok teşekkür ederim.
Allah razı olsun. Emeğinize sağlık.

 

[Mahir64]

İhsan bey ya sizde ya bende bir hata var. Makroyu 3851 sicil numarası için çalıştırdığımda 24 eğitim listiliyor. GENEL EĞİTİM LİSTESİ süzme yaparak kontrol ettiğimde 25 eğitim çıkıyor.

25.01.2007 İş Makinesi Kullanma Teknikleri Eğitimi makro bu eğitim listelemiyor.