Personel İcra Takibi

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
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.
 

Ekli dosyalar

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
lütfen proğram için yardımcı olunuz.
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
sayın yuttas lütfen proğram için yardım edin açilen ihtiyaç var
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
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
 

Ekli dosyalar

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
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.
 

Ekli dosyalar

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
işe yarar insan yok galiba yardım edecek.
lütfen bir yardım edin.
 

parametre

Destek Ekibi
Destek Ekibi
Katılım
28 Ocak 2007
Mesajlar
1,585
Excel Vers. ve Dili
ofis 2010 turkce
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 :)
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
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
 

Ekli dosyalar

Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
Arkadaşlar sorunu açık olarak belirttim yardımlarınızı bekliyorum. Anlaşılmayan yeri gün içinde sorabilirsiniz.
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
O kadar proğramcıdan yardım edecek biri yokmu.
Yoksa bir daha yazmıyayım.
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
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.
 
Katılım
30 Eylül 2005
Mesajlar
303
Excel Vers. ve Dili
2003 excel türkçe
Proğramıma yardım edecek biri kalmadı galiba.Bütün proğramcılar tatile girdi galiba.Yada yardım etmege zamnları yok.
 
Katılım
8 Aralık 2005
Mesajlar
840
Excel Vers. ve Dili
İş:Excel 2000 Türkçe
Ev:Excel xp Türkçe
Altın Üyelik Bitiş Tarihi
11.06.2022
Arkadaşlar bu konu yarım kalmış, bu konuda fikri olan arkadaşlar varsa ve yardımcı olurlarsa sevinirim.
 
Katılım
8 Aralık 2005
Mesajlar
840
Excel Vers. ve Dili
İş:Excel 2000 Türkçe
Ev:Excel xp Türkçe
Altın Üyelik Bitiş Tarihi
11.06.2022
Arkadaşın sorduğu soruyu sonuçlandırabilirsek bende aynı dertten muzdariptim, Benim içinde bir çözüm olmuş olacak.
 
Üst