Çözüldü Kapalı Sayfaya, Personel İşlem

Sayın Hunkar50

yazdıklarınızı kontrol etmenizde fayda var. V sütunu inceleyin

Adnan' Alıntı:

Sayın Hunkar50
Ekli dosyayı görüntüle 12522
yazdıklarınızı kontrol etmenizde fayda var. V sütunu inceleyin

Genişletmek için tıkla...

V3 e Listbox1 den tıklanan personel ismini yazması gerekli ,
U4 : W16 ya kadar olan veriyi alması gerekiyor Hocam. Sonda Bulunan Ocak Ayını ; aralık hesabı için yazdım. yani sonda olan ocak ayının hesabımda önemi kalmıyor.
hata yaptıgım şey nedir fark edemedim kusura bakmayın.

Arkadaşlar Anlatımımda veya taslağımda hatamı var algılayamadım..

Sayın hunkar yazdıklarınız anlaşılamıyor mesela "Multi page de olan Label Ve Textboxlara " diye başlayan isteğiniz var. Multi page neresi form ise form multipage değil sayfa desen hiç değil neresi. U4 den başlayan ....nereye kadar belli değil list2 2 ye ne aktarılacak daha derli toplu izahata gerek var daha öncede yazmıştım Kontrol etmenizi istemiştim. Sebep anlaşılamaması

Haklısınız Hocam.. Bazen bende arkadaşların yardım için paylaştıkları dosyalara bakıyorum. anlam veremiyorum..
aklımızda bir taslak var ve sizlerinde hemen anlayabilecekmişsiniz gibi paylaşımda bulunuyoruz..
Yarın Düzenleme yapacağım. teşekkür ediyorum..

açıklamalı yazıyorum hocam..
1- Test çalışma kitabımızdaki Menü Tıkladıgımızda açılan Personel Vba da bulunan Listbox1 e ; PERSONEL \PERSONEL.xlsm nin P.İşlem Sayfasında yer alan M3 sutunundan Dolu olan son satıra kadar olan isimlerin çıkması gerekli.

2- Lisbox1 den Tıkladıgımız personelin ;
A ) Listbox1 den tıkladıgında ; Kapalı personel.xlsm çalışma itabında ; P.İşlem sayfasıda V3 e akratması gerekiyor ( V3) e hangi isim yazılırsa Y Sutununa o personele ilişkin veriler sıralanıyor )
B)" Yukardaki işlem bitinminde" ; Personel VBA da yer alan (multipage : page1 ) de bulunan Personel işlem bölümündeki Label47 ye seçilen personelin adının yazması,
C) (multipage : page2 )de bulunan Personel Menü Sekmesine textbox5 den başlayıp altındaki textboxlara M:S arasındaki verilerin gelmesi gerekiyor .

Listbox2 ye ise ; Listbox1 tıklandıgında PSEROSNEL.xlsm Kitabının Extra Sayfasındaki 8 satırdan başlayan verilerin gelmesi gerekiyor.
Listbox2 Nin altında bulunan : hak Ediş Yanındaki ;Label63 e Extra sayfasındaki G4 / Label 64 e G5 / label 65 e G6 daki verilerin gelmesi gerekiyor.
_____________________________________________________________________________________________________________________________________________________

***** Yukarıdaki işlemler Listbox1 e gelecek veri ve Listbox1 e tıklandıgında yapacagı işlemlerin anlatamı idi hocam..


PART2 :
1- Test çalışma kitabımızdaki , Personel Vba da bulunan Page1 (personel işlem ) ; Listbox1 den seçilen personele ;
hak ediş , ödeme tarih ve açıklama textboxlarından ilgili textbox doldurulup Kaydet dediğimizde ;
Kapalı PERSONEL.xlsm kitabının P.İşlem Sayfasını secerek A:F satırındaki boş olan hücreye kayıt yapması..

2- Test çalışma kitabımızdaki , Personel Vba da bulunan Page2 ( Personel menü ) Bölümünden Kapalı Sayfadaki Listbox1 den seçili Personel kaydını Güncelleme, Silme Ve Yeni Personel ekleme işlemlerini yapabilmek ..
bu işlemlerin yapılacagı satun aralığı L:S sutunları arasıdır.


İsterseniz adım adımda gidebiliriz hocam..

Umarım anlatımım yeterli derecede olmuştur.

Sabrınıza ve anlayışınıza ( tüm hocamlarımızın ) teşekkür ederim..

Adnan' Alıntı:

inceleyiniz

Genişletmek için tıkla...

Hocam Elleriniz dert görmesin..

• personele cari işlem yaparken sıra numarası +1 vermiyor hocam.
• Aynı keza personel kaydı yaparken +1 sıra no vermiyor .
• personel silim sırasında sildiği satır boş kalıyor, boşluk doldurmak mümkün mü hocam ?

Teşekkür ediyorum

Kırmızı ile yazılan yeri kodunuza ekleyin
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim son As Integer

Set ws = Sheets("P.işlem")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row+1
ws.Cells(son, 1) = ws.Cells(son - 1, 1) + 1
ws.Cells(son, 2) = Label47.Caption
ws.Cells(son, 3) = TextBox1.Text
ws.Cells(son, 4) = TextBox2.Text
ws.Cells(son, 5) = TextBox3.Text
ws.Cells(son, 6) = TextBox4.Text
temizle
End Sub
Sub temizle()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Label47.Caption = ""
End Sub

Private Sub CommandButton2_Click()
'kaydet
Set ws = Sheets("P.işlem")
son = ws.Cells(Rows.Count, "L").End(xlUp).Row
Debug.Print ws.Range("L" & son).Value
ws.Range("L" & son + 1) = ws.Range("L" & son).Value + 1
ws.Range("M" & son + 1) = TextBox5.Text
ws.Range("M" & son + 1) = TextBox5.Text
ws.Range("N" & son + 1) = TextBox6.Text
ws.Range("O" & son + 1) = TextBox7.Text
ws.Range("P" & son + 1) = TextBox8.Text
ws.Range("Q" & son + 1) = TextBox9.Text
ws.Range("R" & son + 1) = TextBox10.Text
ws.Range("S" & son + 1) = TextBox11.Text
MsgBox "İşlem Başarılı", vbExclamation, "Başarılı"
End Sub

Adnan' Alıntı:

Kırmızı ile yazılan yeri kodunuza ekleyin
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim son As Integer

Set ws = Sheets("P.işlem")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row+1
ws.Cells(son, 1) = ws.Cells(son - 1, 1) + 1
ws.Cells(son, 2) = Label47.Caption
ws.Cells(son, 3) = TextBox1.Text
ws.Cells(son, 4) = TextBox2.Text
ws.Cells(son, 5) = TextBox3.Text
ws.Cells(son, 6) = TextBox4.Text
temizle
End Sub
Sub temizle()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Label47.Caption = ""
End Sub

Private Sub CommandButton2_Click()
'kaydet
Set ws = Sheets("P.işlem")
son = ws.Cells(Rows.Count, "L").End(xlUp).Row
Debug.Print ws.Range("L" & son).Value
ws.Range("L" & son + 1) = ws.Range("L" & son).Value + 1
ws.Range("M" & son + 1) = TextBox5.Text
ws.Range("M" & son + 1) = TextBox5.Text
ws.Range("N" & son + 1) = TextBox6.Text
ws.Range("O" & son + 1) = TextBox7.Text
ws.Range("P" & son + 1) = TextBox8.Text
ws.Range("Q" & son + 1) = TextBox9.Text
ws.Range("R" & son + 1) = TextBox10.Text
ws.Range("S" & son + 1) = TextBox11.Text
MsgBox "İşlem Başarılı", vbExclamation, "Başarılı"
End Sub

Genişletmek için tıkla...

Hocam Elinize Emeğinize saglık..
işimi gördü,