Maaş Mesai Prog.Yardım

[mustafakoker]

Öncelıkle herkese Hayırlı akşamlar dilerim
ekte gönderdiğim sayfaya bı bakarmısınız bazı eksıklerım kaldı userformda (Personel Bilgileri)hazırladığım tabloya verı gırışı nasıl yapabılırım excel açıldığında karşılama mesajından sonra verı gırışı yapmak istiyorum bu yaptığım girişleri sayfa 2 de kayıt altına alınması lazım yardım eden herkese şimdiden teşekkur ederım

 

[Orion1]

Öncelikle kaydedilecek sayfaya başlıkları giriniz.Sonrada userform üzerindeki gereksiz listboxların yerine Textbox ve Combobox kullanınız.

 

[mustafakoker]

Günaydın Teşekkur ederım ama ben bu konularda daha yenıyım ektekı dosyayıda başka bır arkadaşın gönderdığı çalışmadan yola çıkarak yaptım nasıl çalıştıracağımı bılmıyorum yani

 

[Orion1]

Öncelikle kaydedilecek sayfaya başlıkları giriniz.Sonrada userform üzerindeki gereksiz listboxların yerine Textbox ve Combobox kullanınız.

Günaydın Teşekkur ederım ama ben bu konularda daha yenıyım ektekı dosyayıda başka bır arkadaşın gönderdığı çalışmadan yola çıkarak yaptım nasıl çalıştıracağımı bılmıyorum yani

Yukarıda söylediklerimi yeniliyorum.
Önce bunları yapın sonra çalıştırma faslına geçilir.

 

[mustafakoker]

ok söyledıklerınızı yapmaya çalışıcağım daha sonra yaptıklarımı sıze gönderırım

 

[mustafakoker]

maaş mesai programı yardım

merhaba arkadaşım söylediğin gibi userformdakı lıstboxları texbox veya comboboxa çevirdim sayfalar oluşturarrak başlıkları yerleştırdım şimdi yapmaya çalıştığım ama beceremediğim karşılama ekranına makro atıyarak verı gırısı yapılacak userformun açılması ve orada gırış yaptıklarım excel sayfalarında yerlerıne geçmesı yardımlarınızı rıca ederım

 

[Orion1]

Kaydet butonuna Personel Bilgileri için ben kodları yazdım.Diğer sayfalar içinde siz yazınız..

Private Sub CommandButton2_Click()
Dim s1 As Worksheet
Dim sat As Long
If Not IsNumeric(TextBox2.Text) Then
    MsgBox "Kayıt Yapılmadı" & vbLf & _
    "Kimlik numarası sayısal bir değer olmaıdır..!!", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox5.Text) Then
    MsgBox "Kayıt Yapılmadı" & vbLf & _
    "Doğum Tarihi sayısal bir değer olmaıdır..!!", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If
Set s1 = Sheets("Personel Bilgileri")
sat = s1.Cells(65536, "A").End(xlUp).Row + 1
s1.Cells(sat, "A").Value = CDbl(TextBox2.Text)
s1.Cells(sat, "B").Value = TextBox1.Text
s1.Cells(sat, "C").Value = TextBox3.Text
s1.Cells(sat, "D").Value = TextBox4.Text
s1.Cells(sat, "E").Value = CDbl(TextBox5.Text)
s1.Cells(sat, "F").Value = TextBox6.Text
s1.Cells(sat, "G").Value = ComboBox1.Value
s1.Cells(sat, "H").Value = TextBox7.Text
s1.Cells(sat, "I").Value = ComboBox10.Value
MsgBox "Kayıt Girildi..", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mustafakoker]

Evren Bey Çok Teşekkur ederım emeğinize sağlık bır rıcam daha olacak mumkunse çıkış butonuna ve yazdır butonuna nasıl bır kod atamam gerekıyor (yazdır dediğimde butun sayfaların yazdırılması gerekıyor)

 

[mustafakoker]

Evren Bey Yukarıda verdığınız kodu nereye yazdınız ben userforma bakıyorum bulamadım

 

[Orion1]

Evren Bey Yukarıda verdığınız kodu nereye yazdınız ben userforma bakıyorum bulamadım

VBE deyken kaydet butonuna çift tıklarsanız kodu görebilirsiniz.VBE = vba editörü

 

[Orion1]

Evren Bey Çok Teşekkur ederım emeğinize sağlık bır rıcam daha olacak mumkunse çıkış butonuna ve yazdır butonuna nasıl bır kod atamam gerekıyor (yazdır dediğimde butun sayfaların yazdırılması gerekıyor)

Kodu yazmasına yazarımda,her defasında bütün sayfaların yazdırılması pratik olmaz.Kağıt ve mürekkep israfı olur.

 

[mustafakoker]

İyi Günler

Evren Bey Ne Kadar Uğraştıysam da sizin kodu görüntüleyemedim
lütfen capslermısınız

 

[mustafakoker]

Yazdır dediğmde çıktık olarak yazdırmayacağım pdf olarak yazdıracağım onun için sorun olmaz çıkış butonuna da bı bakarmısın teşekkur

 

[Orion1]

Evren Bey Ne Kadar Uğraştıysam da sizin kodu görüntüleyemedim
lütfen capslermısınız

Resimdede görüldüğü üzere kaydet butonu var.Onun üzerine çift click yapın kod sayfası açılacak ve kodları göreceksiniz.

 

[mustafakoker]

Kaydet butonu hatası

Kaydet butonuna çift tıkladığımda hata mesajı vermekte bu sebeple görememekteyım hayır dediğimde ise belge kaydedılmedı dıyor resım ekte

 

[ümgülsüm]

MERHABALAR,
maaş mesai programını banada gönderebilirmisiniz,resimden baktım benim kullanabileceğim gibi.kolay gelsin

 

[mustafakoker]

Merhaba ümgülsüm Henuz Tamamlanmadı daha yapım aşamasında Evren Beyın desteklerı sayesınde bıtırdıkten sonra forumda tabıkı yayınlayacağım ama deneme olarak ıstıyorsan farklı otomatık kaydedıldı ısmı altında 1.sayfada var ordan alıp çalışma yapabılırsın.

 

[mustafakoker]

Maaş Ve Mesai Prg Yardım Lutfen

Evren Bey ektekı çalışmada işyeri bilgileri,alınan maaş,ve mesai bilgileri textboxlarına giriş yaptığımda ilgili sayfaların ılgılı stunlarına girdiğim bilgilerin atanmasını rica ediyorum birden çok giriş yapacağım için aşağıya doğru butun satırların kullanılması gerekıyor.Bide userform2 ile karşılama yapıp userform1 ile kayıt girdisi yapmak istiyorum hoşgeldınız sayfası pek içime sinmedı onun için açıldığında önce userform2 dekı resımle ve giriş bilgileri için userform1 geçmesi yardımlarınız ıçın tekrar teşekkurler

 

[Orion1]

Dosyanız ekte.
Yeni kayıt butonuna basınız.

Private Sub CommandButton7_Click()
Dim sat As Long, i As Byte, nesne As Control, s As Worksheet, sut As Byte
Dim sat1 As Long, sat2 As Long, sat3 As Long
If MsgBox("Yeni Kayıt Girmek İstiyormusunuz?", vbYesNo + vbQuestion, "YENİ KAYIT") = vbNo Then Exit Sub
On Error Resume Next
sat1 = Sheets("Personel Bilgileri").Cells(65536, "A").End(xlUp).Row + 1
sat2 = Sheets("İşyeri Bilgileri").Cells(65536, "A").End(xlUp).Row + 1
sat3 = Sheets("Mesai Bilgileri").Cells(65536, "A").End(xlUp).Row
For Each nesne In Controls
    If nesne.Tag <> "" Then
        If Left(nesne.Tag, 2) = "PB" Then
            Set s = Sheets("Personel Bilgileri")
            sut = CDbl(Replace(nesne.Tag, "PB", ""))
            sat = sat1
        End If
        If Left(nesne.Tag, 2) = "ib" Then
            Set s = Sheets("İşyeri Bilgileri")
            sut = CDbl(Replace(nesne.Tag, "ib", ""))
            sat = sat2
        End If
        If Left(nesne.Tag, 2) = "mb" Then
            Set s = Sheets("Mesai Bilgileri")
            sut = CDbl(Replace(nesne.Tag, "mb", ""))
            sat = sat3
        End If
       If sat >= 65533 Then
           MsgBox "[ " & s.Name & " ] isimli sayfada satır doldu..!!" & vbLf & _
           "Bu sayfaya Kayıt Yapılmadı..!!", vbCritical, "UYARI"
           GoTo atla
        End If
           If s.Name = "Mesai Bilgileri" Then
            s.Cells(sat, sut).Value = CDbl(nesne)
            Else
            s.Cells(sat, sut).Value = nesne
           End If
atla:
    End If
Next
If sat1 >= 65533 Then
    MsgBox "Personel Bilgileri Sayfasında Satır doldu.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    GoTo atla2
End If
Sheets("Personel Bilgileri").Cells(sat1, "E").Value = CDate(TextBox5.Text)
atla2:
If sat2 >= 65533 Then
    MsgBox "İşyeri Bilgileri Sayfasında Satır doldu.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    GoTo atla3
End If
    Sheets("İşyeri Bilgileri").Cells(sat2, "F").Value = CDate(TextBox10.Text)
    Sheets("İşyeri Bilgileri").Cells(sat2, "G").Value = CDate(TextBox11.Text)
    Sheets("İşyeri Bilgileri").Cells(sat2, "H").Value = CDbl(TextBox12.Text)
    Sheets("İşyeri Bilgileri").Cells(sat2, "I").Value = CDbl(TextBox13.Text)
    Sheets("İşyeri Bilgileri").Cells(sat2, "F").NumberFormat = "dd.mm.yyyy"
    Sheets("İşyeri Bilgileri").Cells(sat2, "G").NumberFormat = "dd.mm.yyyy"
    Sheets("İşyeri Bilgileri").Cells(sat2, "H").NumberFormat = "#,##0.00"
    Sheets("İşyeri Bilgileri").Cells(sat2, "I").NumberFormat = "#,##0.00"
atla3:
If sat3 >= 65533 Then
    MsgBox "Maaş Bilgileri Sayfasında Satır doldu.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    GoTo atla4
End If
    Sheets("Mesai Bilgileri").Cells(sat3, "A").Value = CDate(ComboBox5.Value)
    Sheets("Mesai Bilgileri").Cells(sat3, "C").Value = CDate(ComboBox7.Value)
    Sheets("Mesai Bilgileri").Cells(sat3, "A").NumberFormat = "dd.mm.yyyy"
    Sheets("Mesai Bilgileri").Cells(sat3, "C").NumberFormat = "dd.mm.yyyy"
atla4:
sat = Sheets("Alınan Maaş").Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65533 Then
    MsgBox "Alınan Maaş Sayfasında Satır doldu.Kayıt yapılmadı..!!", vbCritical, "UYARI"
    GoTo atla5
End If
    Sheets("Alınan Maaş").Cells(sat, "B").Value = CDate(ComboBox3.Value)
    Sheets("Alınan Maaş").Cells(sat, "C").Value = CDbl(ComboBox4.Value)
    Sheets("Alınan Maaş").Cells(sat, "D").Value = CDbl(TextBox14.Text)
    Sheets("Alınan Maaş").Cells(sat, "B").NumberFormat = "dd.mm.yyyy"
    Sheets("Alınan Maaş").Cells(sat, "C").NumberFormat = "#,##0.00"
    Sheets("Alınan Maaş").Cells(sat, "D").NumberFormat = "#,##0.00"
atla5:
MsgBox "Yeni kayıt Girildi..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mustafakoker]

Evren Bey Teşekkur ederım fakat bazı gırdıler yanlış yerden başlıyor örneğin mesai bilgilerim 2 satırdan değil (o satır sonun kadar bılılerle dolu) 3 satırdan başlaması gerekıyor iş yeri bilgilerinde fırma ismi, adersı telFax boş kayıt yapılmıyor ve son olarak userform 2 ile açılmıyor dırekt hoşgeldınız karşılama ekrana gelıyor musaıt olduğunuz bı zaman bakarsanız sevınırım