İzin Takip

[sbayyigit]

Arkdaşlar bir türlü işin içinden çıkamadım yardımlarınızı ve fikirleriniz beni memnun edecektir.
Veritabanı sayfasında personel ile ilgili bilgiler mevcut. İzin Sayfasında Form çağırıldığında seçilen kişi ile ilgili bilgileri form üzerindeki gerekli yerlere alabiliyorum. yazdır butunu ile de izin sayfasına verileri gerekli yerlere gönderiyorum.
Sorunum : izin sayfasında yazdırılan verilerin ilgili personelin kayıtlarına geçmesi yani ilk defa izin alıyorsa izin başlama tarihi veritabanı sayfasının N sütununda ilgili personelin karşısına. İzin süresinin ise Yine veritabanı Sayfasının O sütunun ilgili karşılığına geçmesi. aynı yıl içerisinde aynı kişi izin alırsa bu defa ise veritabanı sayfasının P sütünün ilgili karşılığına diyerek devam etmesi.
Saygılarımla ...

 

[veyselemre]

[vb:1:fae4251961]Private Sub CommandButton1_Click()
If adi.Value = "" Or adres.Value = "" Or tel.Value = "" Then
MsgBox "Eksik bilgi girişi yaptınız. Lütfen ilgili bölümleri doldurunuz.", vbOKOnly + vbInformation, "Hasta Sevk Programı"
adi.SetFocus
Exit Sub
Else
Sheets("izin").Select
Range("g10").Value = adi.Value
Range("g11").Value = gorevi.Value
Range("g12").Value = sicil.Value
Range("ı5").Value = izin.Value
Range("a10").Value = adres.Value
Range("b13").Value = tel.Value
Range("a17").Value = izin.Value
Range("b17").Value = sure.Value
Range("d17").Value = miktar.Value
Range("a25").Value = sorumlu.Value
Range("a26").Value = sorunvan.Value
Range("c25").Value = sgb.Value
Range("c26").Value = sgbunvan.Value
Range("g25").Value = onaylayan.Value
Range("g26").Value = onayunvan.Value
Range("H18").Value = TextBox2.Value
Range("H19").Value = TextBox3.Value
Range("H20").Value = TextBox4.Value
Range("f5").Value = Yili.Value
Range("a5").Value = " " & tarih.Value & " " & "Tarihinden geçerli olmak üzere" & " " & Yili.Value & " " & "yılına ait" & " " & sure.Value & " " & "gün" & " " & izin.Value & " " & "iznimi kullanmak istiyorum."
Range("a6").Value = " " & "Gereğini müsadelerinize arz ederim." & Date
End If
Sheets("veritabani").Activate
Cells(ActiveCell.Row, 256).End(xlToLeft).Activate
Selection.Offset(0, 1) = tarih.Value
Selection.Offset(0, 2) = sure.Value
Sheets("izin").Select
End Sub[/vb:1:fae4251961]

 

[sbayyigit]

eline sağlık usta tam istediğim gibi

 

[sbayyigit]

Usta bu konu ile ilgili son bir şey:
form üzerindeki lstpersonel listboxu içersinde seçilen personelin yıl içinde kullanmış olduğu izinleri (vertabanı sayfası) listbox1 içerisinde Tarih -yılı- günsayısı başlıklarında alt alta nasıl sıralayabiliriz.

 

[veyselemre]

[vb:1:387807af5c]Private Sub lstpersonel_Click()
On Error Resume Next
Sheets("veritabani").Select
Columns("B:B").Select
adi.Value = lstpersonel.Value
Selection.Find(adi.Value, ActiveCell).Activate
'adi.Value = ActiveCell.Offset(0, 0)
gorevi.Value = ActiveCell.Offset(0, 2)
sicil.Value = ActiveCell.Offset(0, 3)
tc.Value = ActiveCell.Offset(0, 4)
kadro.Value = ActiveCell.Offset(0, 5)
karne.Value = ActiveCell.Offset(0, 6)
tel.Value = ActiveCell.Offset(0, 7)
hasta.Value = ActiveCell.Offset(0, 8)
miktar.Value = ActiveCell.Offset(0, 11)
ListBox1.Clear
sat = ActiveCell.Row
a = 0
For x = 14 To 21 Step 3
If Cells(sat, x) <> "" Then
ListBox1.AddItem
ListBox1.List(a, 0) = Format(Cells(sat, x), "dd.mm.yyyy")
For y = 1 To 2
ListBox1.List(a, y) = Cells(sat, x + y)
Next y
a = a + 1
End If
Next x
hata:
If Err = 91 Then
cevap = MsgBox(adi.Value & " isimli kişiye ait hiçbir kayıt bulunamadı. Lütfen yazdığınız adı kontrol ediniz.", vbOKOnly, "Hasta Sevk Programı")
cevap = vbOK
adi.Value = ""
End If
End Sub[/vb:1:387807af5c]

 

[sbayyigit]

usta eline sağlık. Allah razı olsun.

 

[mehmet021]

sbayyigit1,
kolay gelsin eğer formun tamamını bitirdiysen örneğini almak isterim tşk

 

[sbayyigit]

henüz bitmedi tamamlarsam gönderirim

 

[sbayyigit]

arkadaşlar form üzerinde değişiklik yapma ihtiyacı hissettim. ama yapamadığım konu şu. form üzerindeki bilgiler yazdır butonu ile "izinler" sayfasına kaydoluyor. buradaki bilgilerden sadece izin türü "yıllık olanlar "izintürü ve yılı cinsinden ayrılıp hangi kişi, hangi yılda ne kadar yııllık izin kullandığı. "veritabani" sayfasında ilgili kişinin karşısına yazılacak
N sütunu=2005 yılı İçin Kullandığı toplam yıllık İzin
M sütunu=2006 yılı İçin Kullandığı toplam yıllık İzin
son olarak da kişinin son iki yıl içerisinde kullandığı izinler listbox1 içersinde listelenmesi

 

[canercan02]

izinler sayfasının
N1 hücresine =2005
O1 hücresine =2006
P1 hücresine =Yıllık yaz ve

N2 Hücresine =TOPLA.ÇARPIM((izinler!$C$2:$C$10000=B2)*(izinler!$G$2:$G$10000=$P$1)*(izinler!$F$2:$F$10000=$N$1)*(izinler!$E$2:$E$10000))

O2 hücresine =TOPLA.ÇARPIM((izinler!$C$2:$C$10000=B2)*(izinler!$G$2:$G$10000=$P$1)*(izinler!$F$2:$F$10000=$O$1)*(izinler!$E$2:$E$10000))formüllerini yaz ve ben 10000 hücre ekledim bu durumda 10000 hücre aşağı doğru kopyalayabilirsin.
son olarak listbox1 içersine kişiye ait aldığı izinleri ben ekleyemedim. forumdaki arkadaşlar yardımcı olurlar. allah hepsinden razı olsun

yanlız bu durumda sistem ağır çalışıyor. haberin olsun

 

[sbayyigit]

Arkadaşlar yukarıda belirttiğim sorunumu sayın Salih Koca nın desteği ile yaptım. ve kod çok güzel çalıştı. ama sayın canercan ustanın verdiği formül ne yazıkki sistemi çok kasıyor. acaba yukarıdaki =TOPLA.ÇARPIM formülü ile aynı işlemi yapacak vb kodu oluşturulabilir mi vaya oluşturulursa sistem daha hızlı çalışır mı?
bu konudaki yorumlaınız beni memnun edecektir. herkese saygılar....

 

[tevfikdemir]

izin takip programı süper birşey.izniniz olursa bitince bende almak isterim.Emeğinize sağlık.
Saygılar..

 

[a_self_lion]

İZİN TAKİP PROGRAMINI BENDE ALABİLİRİM

 

[sbayyigit]

http://www.excel.web.tr/viewtopic.php?t=17369

 

[orumcek]

http://www.excel.web.tr/viewtopic.php?t=17369

üstad bu link neden çalışmıyor

 

[canaffar]

te&#351;ek&#252;rler

 

[sbayyigit]

Programı 2006 yılında yapmıştım. En son 200 personeli olan bir ilçe müftülüğü için uyarlamıştım. Hasta sevk ve İzin programı olarak kullanıyorlardı. Çok memnun kalmışlardı. Son 10 yıldır hiç kullanmadım. Bu süre zarfında içinde vba şifresini de unuttum. Maalesef hatırlamıyorum.

Bu programın tamamını bu forumdaki arkadaşların yardımıyla yaptım. Siteye de atmıştım fakat sitenin taşınması sırasında bazı doysalar kaybolmuştu. Benim izin takip formu da arada kaybolmuştu. Epeyce aramadan sonra bir arkadaşın arşivinde buldum.

Son zamanlarda Forumda İzin takibi ile ilgili talepler olduğunu görüyorum.

Belki birilerine faydası olur/ geliştirir diye tekrar atıyorum. (Benim geliştirme için pek zamanım yok)

Programın kullanımı ile ilgili Bilgiler:

User Kullanıcı adı/şifresi= sedat/sedat veya deneme/deneme

• Kurum Bilgilerini Giriniz/Güncelleyiniz. şifresi: sedat
• Personel Bilgilerini Giriniz/Güncelleyiniz.
• Kurum amirleri bilgilerini Giriniz/Güncelleyiniz.
• Kullanıcı Ekleme şifresi: sedat