Personel İcra Takibi

[mor45]

Ben Personel İcar Takip programı oluşturma istiyorum.
Yardımcı olursanız sevinir. Birazını yazdım diğerlerini bilemiyorum.çalışması için programa yardım edebilirmisiniz.

Program ekte olup şöyle çalışacak.
Excel açıldığında icra giriş bilgiler butonu tıkladığımızda çıkacak user forum 1 gelecek orda bilgi girişi yapılacak. Bu bilgiler kayıt edilip güncelle butonları ile çalıştırlabilecek.
Borç ödeme girişi butonu ile açılan user forum 2 gelecek buradan da İcralının adını soyadını seçme butonu ile kişi seçme sağlanmalı altında ki buton ile o kişinin kaçıncı icrası oldu seçildikten sonra sarıl alanlar kendisi gelmeli. Buraya beyaz olan yerler ödeme tarih, ödenen miktar , faiz ve masraf manuel yazıldıktan sonra kayda alınmalı.
User forum 2 nin yeşil olan alanın içindeki pembe bilgiler daha önce ödediği miktarları göstermeli. Buradan kayıt sil değiştir butonları çalışabilmeli
İclar bilgiler sayfası User forum 1 ile doldurulmalı kayıt yapmalı buraya
Ödenen sayfası User forum 2 ile doldurulmalı ve kayıt yapması buraya sağlanmalı
User Forum 2 deki sağ taraftaki yeşil alanın içi deki pembe bölüme gelecek olan yazılar yazıcı çıktısından çıkmalı . Çıktı sayfasındaki gibi olmalı Sarı alanlar kalıcı diğer yerler değişkten olmalı.
Anlatmış olduğum bu programa yardımcı olursanız çok sevinirim.

 

[mor45]

lütfen proğram için yardımcı olunuz.

 

[mor45]

sayın yuttas lütfen proğram için yardım edin açilen ihtiyaç var

 

[mor45]

poğram ekte olup bağzı degişitlikler yapıldı.
forum Data Ac nasıl çalıştırabirim.
dosya ekte yeni hali
forum şöyle

KitapYolu = App.Path + "\İcaraBilgisi xls"
Workbooks.Open (KitapYolu)
Sheets("İcraBilgisi").Select
Range("A4").Select
txtSira.Text = WorksheetFunction.Count(Range("A4:A65000")) + 1

Private Sub Frame1_Click()

End Sub

Private Sub Kaydet_Click()
txtSira.Text = WorksheetFunction.Count(Range("A4:A65000")) + 1

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(4, 0).Select
Loop
ActiveCell Value = txtSira.Text
ActiveCell Offset(0, 1).Value = txtAd.Text
ActiveCell Offset(0, 2).Value = txtGörevi.Text
ActiveCell Offset(0, 3).Value = txtKaç.Text
ActiveCell Offset(0, 5).Value = txtİcaradairesi.Text
ActiveCell Offset(0, 6).Value = txtDosyano.Text
ActiveCell Offset(0, 7).Value = txtAlacaklıad.Text
ActiveCell Offset(0, 8).Value = txtBorçmiktarı.Text
ActiveCell Offset(0, 4).Value = txtTakibinbaşlanğıctarih.Text
MsgBox "Verileriniz Kaydedildi"
ActiveWorkbook.Save
txtSira.Text = WorksheetFunction.Count(Range("A4:A65000")) + 1
txtAd.Text = ""
txtGörevi.Text = ""
txtKaç.Text = ""
txtİcaradairesi.Text = ""
txtDosyano.Text = ""
txtAlacaklıad.Text = ""
txtBorçmiktarı.Text = ""
txtTakibinbaşlanğıctarih.TexttxtAd.Text = ""
txtAd.SetFocus
End Sub
Private Sub Kapat_Click()
Application.Quit
Unload Me
End Sub
Private Sub Güncelle_Click()
txtSira.Text = WorksheetFunction.Count(Range("A4:A65000")) + 1
txtAd.Text = ""
txtGörevi.Text = ""
txtKaç.Text = ""
txtİcaradairesi.Text = ""
txtDosyano.Text = ""
txtAlacaklıad.Text = ""
txtBorçmiktarı.Text = ""
txtTakibinbaşlanğıctarih.TexttxtAd.Text = ""
txtAd.SetFocus
End Sub

Sub form_load()
KitapYolu = App.Path + "\İcraBilgisi xls"
Workbooks.Open (KitapYolu)
Sheets("İcraBilgisi").Select
Range("A4").Select
txtSira Text = WorksheetFunction.Count(Range("A4:A65000")) + 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Application Quit
End Sub

 

[mor45]

Private Sub Kaydet_Click()
txtSira.Text = WorksheetFunction.Count(Range("A1:A65000")) + 1

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = txtSira.Text
ActiveCell.Offset(0, 1).Value = txtAd
ActiveCell.Offset(0, 2).Value = txtGörevi
ActiveCell.Offset(0, 3).Value = txtKaç
ActiveCell.Offset(0, 4).Value = txtTakibinbaşlanğıctarih
ActiveCell.Offset(0, 5).Value = txtİcaradairesi
ActiveCell.Offset(0, 6).Value = txtDosyano
ActiveCell.Offset(0, 7).Value = txtAlacaklıad
ActiveCell.Offset(0, 8).Value = txtBorçmiktarı
MsgBox "Verileriniz Kaydedildi"
ActiveWorkbook.Save
txtSira.Text = WorksheetFunction.Count(Range("A1:A65000")) + 1
txtAd = ""
txtGörevi = ""
txtKaç = ""
txtİcaradairesi = ""
txtDosyano = ""
txtAlacaklıad = ""
txtBorçmiktarı = ""
txtTakibinbaşlanğıctarih = ""
txtAd.SetFocus
End Sub
Private Sub Kapat_Click()
Application.Quit
Unload Me
End Sub
Private Sub Güncelle_Click()
txtSira.Text = WorksheetFunction.Count(Range("A1:A65000")) + 1
txtAd.Text = ""
txtGörevi.Text = ""
txtKaç.Text = ""
txtİcaradairesi.Text = ""
txtDosyano.Text = ""
txtAlacaklıad.Text = ""
txtBorçmiktarı.Text = ""
txtTakibinbaşlanğıctarih.TexttxtAd.Text = ""
txtAd.SetFocus
End Sub

Sub form_load()
KitapYolu = App.Path + "\İcraBilgisi xls"
Workbooks.Open (KitapYolu)
Sheets("İcraBilgisi").Select
Range("A4").Select
txtSira Text = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Application Quit
End Sub




Private Sub Label10_Click()

End Sub

Private Sub TextBox2_Change()

End Sub






Yukarıdaki DataAc formunda girilen kodlar ile icra giriş bilgileri butonuna girip verileri kayıt yapıyor uyarısı geliyor ama,kaydı yapmıyor sadece sıra no aşağıya atıyor. Vba daki verileri excele nasıl kayıt yaptıra bilirim. Koda yardım.

 

[mor45]

işe yarar insan yok galiba yardım edecek.
lütfen bir yardım edin.

 

[parametre]

Demekki anlasılır acıklama yapamamısınız ne zor sorular cozulmuş ki guzel yeterki anlatılabilsin tercih sizin bizce guzel guzel anlasılır sekilde konuyu (istediğinizi ) anlatabilmek kolay gelsin

 

[mor45]

Kurumumuzda çalışan personellerin içraları takip etmek için bir çalışma yapmaya çalıştım.
Bir türlü çalıştıramadım.
Açılan excel sayfasınada İCRA GİRİŞ BİLGİLERİ butonu taklayarak açılan DataAc forumda gelen görüntü ekranında bilgiler girilebilir olmalı KAYIT -KAPAT-GÜNCELLE butonları çalışır olmalı.
Bu verileri (İcralıBilgisi) sayfasına ilgili olan yerlere kayıt yapabilmeli.
Kayıt yapılabilekçek Hüçrelerin yerlerini forumda yazmaya çalıştım.
İcralıbilgiler sayfasında B1 hüçresinden I1 hüçresine kadar bir kişinin bilgilerini kayıt yapabilmeli.

İcralıBilgisi sayfasında bulunan BORC ÖDEME GİRİŞİ butonu tıkladığında çıkan UserForum2 de
ise Borc Giriş ekranı gelmeli.
Burda Personel Bilgsi olan = icralının adı soyadı-Kaçıncı icrası= olduğunu seçincez bize
İcra Bilgis olan = Mahkeme ve icra dairesi müdürlüğü -Dosya No-Alacaklının Adı Soyadı- Borç Miktarı ve Kalan Borç= miktarları dolu olarak gelmeli.

Sonram Ödemeler yerinde ise =Ödeme tarih- Ödenen Miktar -Faiz ve masraf = girişi yapılabilmeli. (Ödeme tarih- Ödenen Miktar -Faiz ve masraf )Bu boşluklar doldurulduktan sonra KAYIT VE SİL butonları çalışabilmeli.
Sağ tarafında ise kişinin kayıtlı olan bilgileri gelmeli bu bilgiler aynı zananda ilk açılan exel deki ÖDENEN sayfasınada yazdırılabilmeli.
inşallah anlatabilmişimdir.
Şimdiden yakın dostlunuza teşekkür ediyorum.
ihsan45@msn.com
dosya yeni haliyle ekte

 

[mor45]

Arkadaşlar sorunu açık olarak belirttim yardımlarınızı bekliyorum. Anlaşılmayan yeri gün içinde sorabilirsiniz.

 

[mor45]

O kadar proğramcıdan yardım edecek biri yokmu.
Yoksa bir daha yazmıyayım.

 

[mor45]

Demekki anlasılır acıklama yapamamısınız ne zor sorular cozulmuş ki guzel yeterki anlatılabilsin tercih sizin bizce guzel guzel anlasılır sekilde konuyu (istediğinizi ) anlatabilmek kolay gelsin

Sayın Parametre konuyu anladıysanız yardımlarınızı bekliyorum.

 

[mor45]

Proğramıma yardım edecek biri kalmadı galiba.Bütün proğramcılar tatile girdi galiba.Yada yardım etmege zamnları yok.

 

[unur]

Arkadaşlar bu konu yarım kalmış, bu konuda fikri olan arkadaşlar varsa ve yardımcı olurlarsa sevinirim.

 

[unur]

Arkadaşın sorduğu soruyu sonuçlandırabilirsek bende aynı dertten muzdariptim, Benim içinde bir çözüm olmuş olacak.