Personel dosyası

[KASIM1983]

Ekteki dosya içersinde yazdığım gibi her yeni isim yazıldıkça otomatik alt alta numara yazacak ve yeni personel butonuna tıklayınca ekteki örnek gibi yeni tablo açacak.yardımcı olursanız sevinirim.

 

[Kemal Demir]

Merhaba,

A5 hucresine aşagıdaki formulum uygulayınız.

=IF(B5<>"";A4+1;"")

Sablon olusturmak için ise

Sub Ekle()
    Sheets("sablon").Select
    Sheets("sablon").Copy After:=Sheets(Sheets.Count)
    Sheets("ANASAYFA(Çalışan)").Select
End Sub

Ek'teki örneği inceleyiniz.

 

[KASIM1983]

teşekkürler ellerine sağlık çok işime yaradı