Listbox ile ilgili

[karacali06]

Sizlerin çalışmalarınızdan faydalanarak hazırladığım Formda takıldığım noktalar var. Bunlar;

1-) Cinsiyet seçimini nasıl ilgili kişinin bilgileri arasına kaydedebilirim

2-) Bazı CommandButton lar oluşturdum.
- BİLGİ SİSTEMLERİ
- YEMEKHANE
- TEKNİK SERVİS
- GÜVENLİK
- TEMİZLİK
Yapmaya çalıştığım bu butonlarla DEPARTMAN bilgisine göre listboxta veri çağırmak, sıralamak ve üzerine tıkladığım verinin ilgili yerlere aktarmak.
Örneğin -GÜVENLİK- butonuna tıkladığımda listboxta sadece güvenlik depatmanında çalışanlar listelensin ve bunlarla ilgili işlemleri yapabileyim.

3-) AYRILANLAR butonuna bastığımda eğer işten çıkış tarihi girilmişse ilgili kayıtları listelemek

4-) TÜM BİRİMLER butonu ile işten çıkanlar hariç mevcut çalışanların hepsini listelemek

5-) DEPARTMAN EKLEME ve GÖREV EKLEME formlarındaki SİL butonunu ayarlayamadım.

Üzerinde çalıştığım dosyayı ekte sunuyorum. Bu konularla ilgili yardımlarınızı talep ediyorum.

 

[halit3]

yeni konu açmak için
Excele yeni başlayanlar/yeni konu

seçeneğini tıklayarak yeni konu açabilirsiniz.

sorunu bu başlık altına gönledirdim.

 

[karacali06]

Teşekkür

Bukadar çabuk geri döneceğinizi ummamıştım.
Çok teşekkür ederim.

Konuyla ilgili yardımlarınızı bekliyorum.

 

[halit3]

Sizlerin çalışmalarınızdan faydalanarak hazırladığım Formda takıldığım noktalar var. Bunlar;

1-) Cinsiyet seçimini nasıl ilgili kişinin bilgileri arasına kaydedebilirim

2-) Bazı CommandButton lar oluşturdum.
- BİLGİ SİSTEMLERİ
- YEMEKHANE
- TEKNİK SERVİS
- GÜVENLİK
- TEMİZLİK
Yapmaya çalıştığım bu butonlarla DEPARTMAN bilgisine göre listboxta veri çağırmak, sıralamak ve üzerine tıkladığım verinin ilgili yerlere aktarmak.
Örneğin -GÜVENLİK- butonuna tıkladığımda listboxta sadece güvenlik depatmanında çalışanlar listelensin ve bunlarla ilgili işlemleri yapabileyim.

3-) AYRILANLAR butonuna bastığımda eğer işten çıkış tarihi girilmişse ilgili kayıtları listelemek

4-) TÜM BİRİMLER butonu ile işten çıkanlar hariç mevcut çalışanların hepsini listelemek

5-) DEPARTMAN EKLEME ve GÖREV EKLEME formlarındaki SİL butonunu ayarlayamadım.

Üzerinde çalıştığım dosyayı ekte sunuyorum. Bu konularla ilgili yardımlarınızı talep ediyorum.

Lütfen! açılan konulara isim belirterek hitap etmeyiniz

ekli dosyaya bir bakınız.

 

[karacali06]

Elinize emeğinize sağlık.
Yardımlarınızdan dolayı teşekkür ederim.

 

[karacali06]

Elinize emeğinize sağlık.
Yardımlarınızdan dolayı teşekkür ederim.

Birkaç maruzatım daha var;
1-) Cinsiyet için seçim yaptığımda bütün kayıtlara işleniyor. Seçimin sadece seçili kayıda işlenmesi mümkün mü?

2-) Ayrılanlar arasına geçen kaydın sadece ayrılanlar butonuna tıklandığında listboxa gelmesi, diğer departman kayıtlarından ve tüm birimler listesinden düşmesi mümkün mü?

3-)
* TÜM BİRİMLER
* BİLGİ SİSTEMLERİ
* YEMEKHANE
* TEKNİK SERVİS
* GÜVENLİK
* TEMİZLİK
* AYRILANLAR
Butonlarında kaç adet personel kaydı olduğunun ( AYRILANLAR kaydı TÜM BİRİMLER kaydına dahil edilmeyecek şekilde ) butonun bir köşesinde sayısal olarak ifade edilmesi mümkün mü?

4-) Doğum tarihi , işe giriş tarihi vs. tarihlerin '' / / '' gibi bir görünüm (örn: 01/01/2010) ve T.C. Kimlik no hanesinin 11 karakter zorunlu olması...

5-) Form Yazdır butonu aracılığıyla YAZDIR sayfasının çıktısını alıyorum ancak YAZDIR sayfasına Image2 deki seçili resmi göndermeyi beceremedim.

*UserFormda birkaç değişiklik yaptığım için dosyayı yeniden ekledim.
*Bu konularda yardımlarınızı talep ediyorum. Saygılar. İyi çalışmalar.

 

[halit3]

ekli dosyaya bir bakınız.


1-resim getirme düzenini değiştirdim ilgili kişiye ait resm varsa resimler gelecek yoksa resim nesnesi gizlenecek
2-Resimler klasörü bu dosyanın yanıda olacak yoksa resimler gelmez
3-proğram açılınca dosya nerde ise Resimler klasörü yoksa hemen yanına Resimler klasörünü oluşturacak
4- 10 adet resim uzantısını algılıyor
5-resimler listbox nesnesinden seçtiğin kişiye ait olan resimler kendiliğinden gelecektir.

6-saati çalıştıran kodu durdurdum saat için başka nesne koydum.

 

[karacali06]

Ellerinize sağlık.

Cinsiyet butonları hala sıkıntılı.
Bir kayıt seçip cinsiyeti işaretliyorum kayıt güncelle dediğimde güncellemeyi yapıyor ancak seçtiğim cinsiyet butonu sürekli işaretli kalıyor ve aynı kayıta tekrar tıkladığımda yapmış olduğum seçim ekrana gelmiyor

 

[halit3]

onunla ilgili boş seçenek düğmesini tıklıyacaksınız.

 

[karacali06]

Sağolun varolun.

* Yazdırma sayfasındaki resmin ebatını ayarlayabilyor muyuz?

* Birde textboxlarda alt satıra geçmek için ctrl+enter kullanıyorum ancak form yazdırdığımda bu alt satıra geçişlerim çıktıya kutucuk içinde soru işareti olarak yansıyor. Bu düzelir mi?

 

[halit3]

Sağolun varolun.

* Yazdırma sayfasındaki resmin ebatını ayarlayabilyor muyuz?

* Birde textboxlarda alt satıra geçmek için ctrl+enter kullanıyorum ancak form yazdırdığımda bu alt satıra geçişlerim çıktıya kutucuk içinde soru işareti olarak yansıyor. Bu düzelir mi?

yazdırma kodunu değiştirdim
resimlerlede ilgili seçenek düğmesi koydum zom için
textboxlardan hızlı ayrılırken tab tuşunu kullanacaksınız.

 

[karacali06]

Sorunumu net olarak ifade edemedim.
Anlatmak istediğim textboxta yazarken aynı textboxun içinde alt satıra birşeyler yazacağımda ctrl+enter yapıp o şekilde yazıyorum ( başka yolu var mı bilmiyorum ).
Yazıcıdan çıktı aldığımda birde bakıyorum ki ctrl+enter yaparak alt alta maddeler halinde yazdığım satırların sonunda işaret var.
Bu işareti kaldırmanın bir yolu var mı?

 

[NEW_ZAT]

Selam ,
Tüm yazacağınız metni hücre içerisine alt satıra geçmeksizin ( ctrl+enter kullanmaksızın ) yazın .
Daha sonra hücre üzerinde iken sağ klik ile açılan pencereden *hücreleri biçimlendir* / *hizalama* / *metin denetimi* / *metni kaydır* emrini işaretleyin .
Metinin hücre içerisinde uygun aralıklarda otomatik dizildiğini göreceksiniz .

 

[halit3]

Sorunumu net olarak ifade edemedim.
Anlatmak istediğim textboxta yazarken aynı textboxun içinde alt satıra birşeyler yazacağımda ctrl+enter yapıp o şekilde yazıyorum ( başka yolu var mı bilmiyorum ).
Yazıcıdan çıktı aldığımda birde bakıyorum ki ctrl+enter yaparak alt alta maddeler halinde yazdığım satırların sonunda işaret var.
Bu işareti kaldırmanın bir yolu var mı?

anladığım kadarı ile örnek olarak kayıt güncelledeki adres bölümü için

Cells(ActiveCell.Row, "L") = TextBox13.Text

yukarıdaki kodun yerine aşağıdakini denermisiniz.

 Cells(ActiveCell.Row, "L") = Replace(TextBox13.Text, Chr(13), "")

 

[karacali06]

Hayır.
Asıl kullanım yeri eğitim ve sertifikalar ile ilgili textbox.
Çünkü burada, alınan eğitimleri ve sertifikaları alt alta yazıyoruz ve ctrl+enter i bunun için kullanıyoruz.
Bu da yazıcıdan çıktı alınca görüntüde sorun oluyor ( ctrl+enter yaptığım hamlelerde işaret oluyor)

 

[halit3]

bunu denermisiniz.

Private Sub TextBox16_Change()
Sheets("YAZDIR").Range("A9") = Replace(TextBox16.Text, Chr(13), "")
End Sub

 

[karacali06]

Emeği geçen herkese çok teşekkür ederim.
Çalışma mükemmel oldu sayenizde.

 

[halit3]

Emeği geçen herkese çok teşekkür ederim.
Çalışma mükemmel oldu sayenizde.

iyi çalışmalar

 

[karacali06]

Bir maruzatım daha olacak
Daha önceden yoktu ama şu an formda iki sorunla karşılaştım.
* Formu ilk açtığımda sağ üstte simge durumunda küçültme var ama işlem yapmaya başlayınca bu kayboluyor.
* İşlem yapmaya başlayınca formun orjinal adı gidiyor yerine işlem yapacağım kaydın adı geliyor.

Bunları nasıl düzeltebilirim?

 

[halit3]

Bir maruzatım daha olacak
Daha önceden yoktu ama şu an formda iki sorunla karşılaştım.
* Formu ilk açtığımda sağ üstte simge durumunda küçültme var ama işlem yapmaya başlayınca bu kayboluyor.
* İşlem yapmaya başlayınca formun orjinal adı gidiyor yerine işlem yapacağım kaydın adı geliyor.

Bunları nasıl düzeltebilirim?

bunu sil düzelir.

UserForm1.Caption = TextBox11.Text