Iş güvenliği eğitimi için sertifika ve katılım listesi hakkında

[uyguralp]

Merhabalar bir uygulama yaptım fakat katılım listesinde takıldığım yer var bu konuda yardımcı olabilecek varmı

 

[uyguralp]

Katılım listesinde firmayı otomatik seçtiğimizde o firmaya ait kişilerin
tc, adı soyadı, ve görevinin otomatik gelmesini istiyorum. Yardımcı olursanız

 

[cems]

Yardımcı olursanız

(Bu başlıkta yeni konu açılması onaya bağlıdır.)

Sorunuz taşınacak zira ,yanlış bölümde açılmış , bölüm uyarılarına dikkat ediniz ve sorularınızı uygun başlık altında yayınlayınız. Diğer yandan , sağclick menüsü dosyanızda neden çalıştırılmıyor anlamadım.


Cevabınıza gelince ;
1-Veri doğrulama ile Tc listesini katılım listesi D25 Hücresine atayın. Daha sonra bu hücreyi tutup aşağı çekerek d36 ya kadar kopyalayın.
2-e25 hücresine ÖNCE düşeyara formülü ile , soldaki Tc ye bağlı olarak ismi getirin. Aynı şekilde g25 hücresine İşi getirin.
3-Her ikisi için =EĞERHATA düzeltme fonksiyonunu kullanın, #yok hatası geldiğinde hücre boş gösterilir.
4-Hata bildirimlerini hatayı yoksay ile kapatın , bunlar birleştirilmiş hücrelerde kalan boş hücreler yüzünden geliyor.

Sayfanın yarısını örnekledim , diğer yarısına siz devam edebilirsiniz.

 

[uyguralp]

teşekkür ediyorum.
sağ klik bende çalışıyor. bir sorun yok.
BENİM İSTEDİĞİM; KATILIM LİSTESİNDEN FİRMA ADINI SEÇTİĞİMDE AYNI FİRMADA ÇALIŞANLARIN OTOMATİK OLARAK LİSTEDEN KATILIM LİSTESİNE GETİRİLMESİ TC VEYA İSİMDEN TEK TEK SEÇEREK DEĞİL. VERİ DOĞRULAMA EN ÜSTTE SARI İLE İŞARETLİ KISIM ONA BAĞLI OLARAK KİŞİLER OTOMATİK GELSİN İSTİYORUM.

 

[uyguralp]

eğitim son.

dosyayı yeniden atıyorum.

 

[çıtır]

Katılım Listesi D25 kopyalayınız.Dizi formülü ,kopyaladıktan sonra formül çubuğuna tıklayınız.ctrl ve shift tuşlarına basılı iken enter tuşlayınız.Ad soyad a kadar sağa ve aşağı çekerek çoğlatınız.

=EĞERHATA(İNDİS(LİSTE!$A$1:$J$200;KÜÇÜK(EĞER($A$1=LİSTE!$E$2:$E$200;SATIR($A$2:$A$200));SATIR($A1));KAÇINCI(D$24;LİSTE!$A$1:$J$1;0));"")

G25 kopyalayınız.Dizi formülü.

=EĞERHATA(İNDİS(LİSTE!$A$1:$J$200;KÜÇÜK(EĞER($A$1=LİSTE!$E$2:$E$200;SATIR($A$2:$A$200));SATIR($A1));KAÇINCI(G$24;LİSTE!$A$1:$J$1;0));"")

 

[çıtır]

Makro ile isterseniz.Katılım listesi sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then
    Set s1 = Sheets("LİSTE")
    Set s2 = Sheets("KATILIM LİSTESİ")
    s2.Range("d25:G36").Select
    Selection.ClearContents
   ss = s2.Range("D" & Rows.Count).End(3).Row + 1
    For i = 2 To s1.Range("A" & Rows.Count).End(3).Row
        If s1.Cells(i, "E") = Target Then
            s2.Cells(ss, "D") = s1.Cells(i, "A")
            s2.Cells(ss, "E") = s1.Cells(i, "B")
            s2.Cells(ss, "G") = s1.Cells(i, "J")
            ss = ss + 1
        End If
    Next
End If
End Sub

 

[uyguralp]

Teşekkür ettim

 

[çıtır]

Teşekkür ettim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.