AccessTr.neT

Bul · 20/12/2008, 22:10

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

Bul · 25/12/2008, 00:24

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

Bul · 25/12/2008, 00:29

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.

Bul · 25/12/2008, 01:06

Teşekkurler Nıhat hocanın cevabını sabırsızlıkla beklıyorum iyi akşamlar

Bul · 25/12/2008, 23:34

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

Bul · 25/12/2008, 23:45

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.

AccessTr.neT

Maaş Ve Mesai Prgogramı Kişiye özel yardım

Maaş Ve Mesai Prgogramı Kişiye özel yardım

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri