Soru Personel listesini çalışan bildirme listesine otomatik eklenmesi

[kocamehmet01]

Merhaba, 200 kişilik personel listesiniz linkteki çalışan bildirme formuna tek tek eklenmesi gerekiyor. Bunu makro ya da formulle nasıl yapabilirim? Her personel için tek tek form oluşturulması gerekiyor. Yardımcı olabilir misiniz? Yeni üye olduğum için dosya ekleyemiyorum.

çalışan bildirme formu

 

[YUSUF44]

Personel listesi nerede? O listedeki hangi veri formdaki hangi alana gelecek?

 

[aspava]

Merhaba, 200 kişilik personel listesiniz linkteki çalışan bildirme formuna tek tek eklenmesi gerekiyor. Bunu makro ya da formulle nasıl yapabilirim? Her personel için tek tek form oluşturulması gerekiyor. Yardımcı olabilir misiniz? Yeni üye olduğum için dosya ekleyemiyorum.

çalışan bildirme formu

Sanırım Jandarma ' ya verilecek Ek 2 formunu düzenlemek istiyorsunuz ama personel verileri bu listenin içinde yok.

 

[ByChilavert]

Merhaba
İstemiş olduğunuz formu ben kullanıyorum. "Veri" tablosuna personellerin bilgilerini yazacaksın. "22-KİMLİK BİLDİRİMİ" tablosunda "P2" satırına kayıt ettiğin personelin sıra numarasını yazdığın zaman bütün kimlik bilgileri geliyor. Kırmızı ile renklendirdiğim alanlardaki veriler için

=DÜŞEYARA(P2;Veri!A2:O2000;2;)

mantığı ile yapılmıştır.
..... Link .....

 

[kocamehmet01]

[TR][TD]
FORM
[/TD]
[TD]
PERSONEL RAPORU SÜTUNU
[/TD][/TR]
[TR][TD]
TC. KİMLİK NO
[/TD]
[TD]
TC Kimlik No
[/TD][/TR]
[TR][TD]
ADI SOYADI
[/TD]
[TD]
Adı Soyadı
[/TD][/TR]
[TR][TD]
BABA ADI
[/TD]
[TD]
Baba Adı
[/TD][/TR]
[TR][TD]
D.YERİ VE TARİHİ
[/TD]
[TD]
Doğum Yeri / Doğum Tarihi
[/TD][/TR]
[TR][TD]
UYRUĞU
[/TD]
[TD]
TC OLACAK
[/TD][/TR]
[TR][TD]
İŞİ
[/TD]
[TD]
Görev
[/TD][/TR]
[TR][TD]
KONUT ADRESİ VE TELEFONU
[/TD]
[TD]
Ev Adresi / Cep Telefonu
[/TD][/TR]
[TR][TD]
İŞE BAŞL.TARİHİ
[/TD]
[TD]
Giriş Tarihi
[/TD][/TR]

 

[ByChilavert]

Üstte yazdığım şekilde yaptığın zaman işini görüyor mu?

 

[kocamehmet01]

Üstte yazdığım şekilde yaptığın zaman işini görüyor mu?

işime yara tabiki tşk ederim. Acaba bunu yazdır dediğimde makro ile kaç kişi varsa otomatik hepsini yazdırabilir miyiz?

 

[ByChilavert]

Sub Toplu()
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long
    
    Set S1 = Sheets("22-KİMLİK BİLDİRİMİ")
    Set S2 = Sheets("Veri")
    Son = S2.Cells(S2.Rows.Count, 1).End(3).Value
    
    For X = S1.Range("P2").Value To Son
        Range("P2").Value = X
        S1.PrintOut
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub