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
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
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.
Teşekkurler Nıhat hocanın cevabını sabırsızlıkla beklıyorum iyi akşamlar
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 Sub
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.