+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Maaş Ve Mesai Prgogramı Kişiye özel yardım (/konu-maas-ve-mesai-prgogrami-kisiye-ozel-yardim.html)
Cvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - mustafakoker - 20/12/2008
Sn BayFAruk öncelıkle sızı geçmış çalışmalaraınızı aratmak zorunda kaldığımdan dolayı uzgunum 2.örnek bende yoktu evet ama benım ıstediğim Personel Bılgılerını ben gırdım userformda işyeri bilgileri,alınan maaş,mesai bilgileri texboxlarına verı gırışı yaptığımda excele kaydetmesı ve ayrıca verdığım bılgıler bana aid değil yanı onlar deneme bılgılerdı emeklerınız ıçın şimdiden tesekkurler
Sn Sıte Yönetıcılerı sızlerden tekrar özür diliyorum Yazım Hatasından dolayı ilgilenen herkese de tesekkurler umarım özurlerım kabul edılmıştır
Cvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - mustafakoker - 25/12/2008
Arkadaşlar ekledığım dosyaya yardım edecek veya nasıl textboxlara verı gırışı yaptığımda ılgılı sayfanın ılgılı sutunlarına yazılması konusunda kod verecek varsa şimdiden teşekkur ederım yardım pls
Cvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - alpeki99 - 25/12/2008
Sorunuz Excel ile ilgili ve sitemizde sayın nihatkr bu konuda bilgi sahibi özellikle. Diğer yöneticilerden veya kullanıcılardan Excel i kullanan pek yok ne yazık ki. Nihatkr hocam size yardımcı olmaya çalışacaktır.
Cvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - mustafakoker - 25/12/2008
Teşekkurler Nıhat hocanın cevabını sabırsızlıkla beklıyorum iyi akşamlar
Cvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - nihatkr - 25/12/2008
Selam,
Sorunuzu biraz geç farkettim. kusura bakmayın.
tc kimlik numarası için aşağıdaki kodu kullanabilirisniz. ve her textbox için Unloada Userform1 den önce bir üstteki satırı kopyalayıp textbox adını yazıp tekrarlayabilirsiniz.
Yapamazsanız bildirin dosyanıza bir textbox örneği yapayım.
Kod:
Private Sub CommandButton1_Click()
If TextBox2.Text <> "" Then
If Yeni_mi = True Then
Son_Dolu_Satir = Sheets("Personel Bilgisi").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Personel Bilgisi").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Personel Bilgisi").Range("A:A")) + 1
Sheets("Personel Bilgisi").Range("A" & Bos_Satir).Value = TextBox2.Text
Unload UserForm1
End If
End SubCvp: Maaş Ve Mesai Prgogramı Kişiye özel yardım - nihatkr - 25/12/2008
Gerçi dosyanıza şöyle bir göz attım. Zaten sizin forma yazdığınız dosyanıza işleniyor. İsteğinizi tam olarak açarmısınız.