Personel dosyası

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Merhaba Murat bey;
Userforma hoşgeldin.
:)
Biz burada paylaştıkça çoğalıyoruz.

1-userform yada labellerin yerini değiştirmeyin.
2-şimdilik userformda sütun gizlemeyi kullanmayın. (userformu tanıdıktan sonra bunu kullanın)
3-silme işlemi çift tıklama ile veri textboxlara alındıktan sonra tc verisi aynı olan/olanları siler. (tc no olarak aynı tc mi kullandınız?)
Eki deneyin. (Önlem olarak data sayfasında çift tıklama ile silme makrosunu askıya aldım.)
kayıt yapın silin ve sonucu olumlu yada olumsuz yazın.
İyi çalışmalar.
Hocam teşekkür ederim. Bir tane personel PASİF yaptım. Çift tıklayınca bilgiler ekrana geliyor yukarda PASİF yazıyor sıkıntı yok.. Yukarıda AKTİF ve PASİF seçme tıkı var, onun amacı nedir. PASİF tıklayınca pasif olanlar yani çalışmayanlar mı gelmesi lazım. AKTİF tıklayınca çalışanlar.
Bir de hocam şu adres (artık mahcup oluyorum ama) CTRL+ENTER yapınca satır atlıyor, güzel. Ama aşağıda ¶ beliriyor (bu sadece görsellik için 😊)
Saygılarımla
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
8,303
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Yukardaki açıklamamda belirttiğim gibi bir veriyi silmek yerine pasif olarak belirlemek (silindi gibi düşünün) daha mantıklı
AKTİF PASİF in esprisi bu...
ayrıca excelde rapor diye bir sayfa var.
yine userformda İŞLEMLER sayfasına geçerek rapor sayfasına aktif yada pasifleri getirebilirsiniz. ayrıca istediğiniz sütun adına göre rapor sayfasını artan sırada sıralayabilirsiniz.
CTRL+ENTER meselesine gelince;
userformda böyle bir şeye gerek yok.
Tüm TextBox lar;
Private Sub UserForm_Activate()
altında;
Controls("TextBox" & i - 1).MultiLine = True

kodu ile tıpkı word sayfası özelliğine kavuşturuldu. Yani yazdıkça kelime sığıyorsa aynı satıra sığmıyorsa alt satıra kayacak.
TextBox içinde iken üst alt yön tuşu ile gezinirseniz yazdıklarınızı yada gelen veriyi görürsünüz.
İyi çalışmalar.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Merhaba;
Yukardaki açıklamamda belirttiğim gibi bir veriyi silmek yerine pasif olarak belirlemek (silindi gibi düşünün) daha mantıklı
AKTİF PASİF in esprisi bu...
ayrıca excelde rapor diye bir sayfa var.
yine userformda İŞLEMLER sayfasına geçerek rapor sayfasına aktif yada pasifleri getirebilirsiniz. ayrıca istediğiniz sütun adına göre rapor sayfasını artan sırada sıralayabilirsiniz.
CTRL+ENTER meselesine gelince;
userformda böyle bir şeye gerek yok.
Tüm TextBox lar;
Private Sub UserForm_Activate()
altında;
Controls("TextBox" & i - 1).MultiLine = True

kodu ile tıpkı word sayfası özelliğine kavuşturuldu. Yani yazdıkça kelime sığıyorsa aynı satıra sığmıyorsa alt satıra kayacak.
TextBox içinde iken üst alt yön tuşu ile gezinirseniz yazdıklarınızı yada gelen veriyi görürsünüz.
İyi çalışmalar.
Anladım hocam. Teşekkür ederim.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Merhaba @muygun hocam. Hocam sizden son 4 istirhamım olacak. (mümkünse tabi) ve sizin vaktinizi almadan tabi. Neticede yarın olmazsa ölürüz diye bir şey yok. Sonra bu kayıtları sizden silmenizi rica ederim. Ben gerçek kayıtları girerim (ben silmeyeyim, bozuyorum 😊 Ben PASİF olarak değiştiririm. Kayıtta durur) Yanlış anlatmamak açısından photoshop ile hazırladım. Numara ile yazayım diye.
1- O bölüme 11 rakam sığar. Küçük kare TC no doğruysa yeşil, yanlışsa kırmızı olabilir mi. Daha önce yaptığınızda vardı. Çok güzel bir özellikti.
2- ARAMA, hocam, son bölümü arama yapmak mümkün mü. Çok personel varya. Açılır liste açılsa ADI SOYADI falan yanına yazsak (mesela ADI SOYADI ara, mu yazıp ENTER yapınca 'MU' ile başlayan isimleri sıralasa ya da KAN GRUBU) Listede tüm başlıklar mı olur, mesela ben sonra MEMLEKETİ ekledim, o da listede belirir mi. Yoksa listede çıkacak seçenekler belirlenir mi.
3- YAZDIR. Hocam yazdır deyince. Sadece A4 kağıda düz olarak, alt alta TC, ADI SOYADI, TELEFON........... PDF olarak yazdırsa.
4- Her türlü fikre açığım. Bu tabloya fotoğraf koymak mümkün mü. Şöyle mesela (biraz kötü oldu ama)
Saygılarımla hocam.

Not. Sadece meraktan hocam- Siz normal excel dosyasına nasıl kod yazıyorsunuz. Bana yazdırtmıyor, hata veriyor. Macro içerebilen excel dosyası olarak kaydetmek zorunda kalıyorum.
Ekran Alıntısı.PNGEkran Alıntısı - Kopya.PNG
 

Ekli dosyalar

Son düzenleme:

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
8,303
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
1 ve 4 tamam;
2 için açıklama gerekiyor (halledilebilir)
3 .pdf kaydını ofis 2003 içinde yapamam. (ben ofis 2003 kullanıyorum)

Eki (1-4 için) deneyin.
İyi çalışmalar.
 

Ekli dosyalar

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Hocam öncelikle çok teşekkür ederim. Fotoğraf seç çalışmıyor ama, yanlış mı yaptım acaba.
Yine fotoğraf atmış olayım.
1- Hocam tamamı değil de, sadece küçük yer yeşil kırmızı olsa, mümkünse size zahmet.
2- Tıklayınca seçenekler açılsa ve ona göre arama yapılsa. Mesela doğum günü bile 1974 deyince gelir. Boş olan yerlerde şimdiden hazır olmuş olur. Daha sonra sizi rahatsız etmemiş olurum. 😊 Fikir tabi. Siz daha iyi bilirsiniz.
Hocam. Azıcık daralttım ama, bir sıkıntı olmadı sanırım.
Hocam, yazdır dediğim şöyle örnekteki gibi. Yazdır kısmı en sona kalsa. Sadece o kalırsa, mesela bu sizi ne kadar meşgul eder. Hani 2003 olmasa.
Tekrar teşekkür ederim.
Saygılarımla.
Not: Hocam sağ tarafı dikkate almayın lütfen. Eski fotoğraf üzerinden photoshop yaptığım için. Sadece 1 ve 2 için yaptım.
Ekran Alıntısı - Kopya.PNG
 

Ekli dosyalar

Karamanli.70

Altın Üye
Katılım
26 Mart 2019
Mesajlar
15
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016
muygun hocam kolay gelsin. Bu uygulama çok güzel olmuş elinize sağlık. Ben bir şey soracaktım. Bu rapor kısmında departmana göre aktif ve pasif personellerin sayısal verilerini nasıl alabiliriz? Yani departman seçerek aktif ve pasif personel sayısı listeleme olabilirmi?
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
8,303
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Ekteki uygulama sanırım muratgunay48 ve Karamanli.70 isteklerini karşılar.
Foto seç butonunu önce uyguladım sonra gereksiz gördüğüm için kodlarını kaldırdım (butonu unutmuşum)
Eki deneyin.
Bundan sonrasını geliştirmek (biraz araştırma ile) size kalmış.
İyi çalışmalar.
 

Ekli dosyalar

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Merhaba;
Ekteki uygulama sanırım muratgunay48 ve Karamanli.70 isteklerini karşılar.
Foto seç butonunu önce uyguladım sonra gereksiz gördüğüm için kodlarını kaldırdım (butonu unutmuşum)
Eki deneyin.
Bundan sonrasını geliştirmek (biraz araştırma ile) size kalmış.
İyi çalışmalar.
Teşekkür ederim hocam.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Hocam merhaba, liste ve yazdır kısmında düzenleme yaptım ama hocam arama sayfası çalışmıyor sanki. Fotoğraf ekleme için kod koyduğum kod direk birinci sıradaki kişiye gidiyor. Hocam son olarak Userform açılınca excel kapanabilir mi acaba. Haddim olmayarak açılmasını yaptım ama. Teşekkür ederim.
Saygılarımla.
 

Ekli dosyalar

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Hocam, araştırın demiştiniz. Oldukça yaptım. Kaydet kapat, userform açma, diğer butonlar, yazdırma sayfası, (sadece arama sayfası küçük büyük harf duyarlı, onu yapacağım)
Sadece resim kaldı. Başka bir postta sizin paylaşımınız olan kodu uyguladım. Şurada hata verdi. Size zahmet hocam.
Teşekkür ederim. Saygılarımla.
 

Ekli dosyalar

  • 9.8 KB Görüntüleme: 4
  • 6.7 KB Görüntüleme: 4

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
8,303
Excel Vers. ve Dili
Excel-2003 Türkçe
Userformda image2 var
uyguladığınız kodda image1?
Ayrıca resim seçmeyi neden ve nasıl kullanacaksınız?

Private Sub resimm_seçç_Click()
ChDir ("C:\resim\")
dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.jpg", _
Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi"
Exit Sub
Else
Image2.Picture = LoadPicture("")
Label18.Caption = ""
Label18.Caption = yol & dosya & uzanti
Image2.Picture = LoadPicture(yol & dosya & uzanti)
End If
End Sub


Yukardaki kodu userform üzerinde bir commandbutton a bağlarsanız image2 ye resim alırsınız.
Programı kapatıp açtınız (hiçbir yere yazılmayan resim yolu resim adı ve kime ait bölümleri de kayboldu)
Bunlar için veri tabanı başlıklarınızın belirlenmesi gerekiyordu. Ama değişken başlık kullanmakta ısrar edince resim seçme iptal ettim.
İyi çalışmalar.
 
Son düzenleme:

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
411
Excel Vers. ve Dili
Excel 2010 - Türkçe
Userformda image2 var
uyguladığınız kodda image1?
Ayrıca resim seçmeyi neden ve nasıl kullanacaksınız?

Private Sub resimm_seçç_Click()
ChDir ("C:\resim\")
dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.jpg", _
Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi"
Exit Sub
Else
Image2.Picture = LoadPicture("")
Label18.Caption = ""
Label18.Caption = yol & dosya & uzanti
Image2.Picture = LoadPicture(yol & dosya & uzanti)
End If
End Sub


Yukardaki kodu userform üzerinde bir commandbutton a bağlarsanız image2 ye resim alırsınız.
Programı kapatıp açtınız (hiçbir yere yazılmayan resim yolu resim adı ve kime ait bölümleri de kayboldu)
Bunlar için veri tabanı başlıklarınızın belirlenmesi gerekiyordu. Ama değişken başlık kullanmakta ısrar edince resim seçme iptal ettim.
İyi çalışmalar.
Aynen dediğiniz gibi oldu hocam 😊 kapatıp açılınca resimler kayboldu. Aslında dosya masaüstünde duruyor ama. Yine de kayboldu. Yolu yokmu.
En azından yazdır sayfasından kaybolmuyor.
 

Karamanli.70

Altın Üye
Katılım
26 Mart 2019
Mesajlar
15
Excel Vers. ve Dili
Microsoft Office Professional Plus 2016
Merhaba;
Ekteki uygulama sanırım muratgunay48 ve Karamanli.70 isteklerini karşılar.
Foto seç butonunu önce uyguladım sonra gereksiz gördüğüm için kodlarını kaldırdım (butonu unutmuşum)
Eki deneyin.
Bundan sonrasını geliştirmek (biraz araştırma ile) size kalmış.
İyi çalışmalar.
ÇOK TEŞEKKÜR EDERİM ELİNİZE SAĞLIK.
 
Üst