Userform Üzerindeki Label Veri Gelmesi Kayıt Etme?

[baba]

Herkese Merhaba;
İlk Önce ne Yapmak İstediğimi anlatayım; Bu çalışmada Personellerin verilerinin kontrollerin sağlamak ve eksik yâda yanlış olanları tespit etmektir.
1. UserForm olarak Personel_Görev_Sablon oluşturmak.
2. ComboBox10’da Ara yapabilmek hem İsimin hemde T.C. No Üzerinden
3. TextBox’lar veri giriş yapılabilecek Arama Yapıldığında ise Hem TextBox, ComboBox, ve Label’ler de görünecek Yeni Kayıt Yapılabilmeli.
4. OptionButton’larda ise Üzerlerinde bulunan Örneği Erkek ise (1) Bayan ise (0) Rakamaları Label’da Görünmesini sağlamak.
5. ComboBox’larda ise çalışma Kitaplarında bulunan Sayfalarda Verilerini çekebilmek, Çekilen Verileri Label’larda görünmesini Sağlamak (Örneği: Kadro Unvanı Olan Sayfada verisi B2:B254 çekecek ve Label’le ise A2:A254 deki Karşılığı Olacak yani ComboBox’da RÖNTGEN TEKNİSYENİ ise Label’de de 10033 Unvan Kodu Gelmesini Sağlamaktır.) Yine Diğer ComboBox’larda da aynı Şekilde olmasını sağlamak.
6. ListBox’da ise VERİGİRİŞİ Sayfasındaki verilerin görünmesini sağlamak Üzerine gelindiğinde ise Hem TextBox’lar, ComboBoxlar, ve Labeller Aktarım sağlamak değişiklik Yapabilinmeli.
7. CommandButton’larda ise kayıt Değişitir Sil Kapat gibi butonlarında Aktif olması sağlamaktır.
Şimdiden yardımınız için teşekkürler ederim.



Saygılarımla...

 

[vardar07]

Merhaba .Kaydet kodları denermisin.

Private Sub CommandButton2_Click()
Set S1 = Sheets("VERİGİRİŞİ")
  If TextBox1.Text <> "" And TextBox2.Value <> "" And TextBox2.Value <> "" Then
    Son_Dolu_Satir = S1.Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    
    S1.Range("A" & Bos_Satir).Value = TextBox1.Text
    S1.Range("B" & Bos_Satir).Value = TextBox2.Text
    S1.Range("C" & Bos_Satir).Value = TextBox3.Text
    S1.Range("D" & Bos_Satir).Value = TextBox4.Text
    S1.Range("E" & Bos_Satir).Value = TextBox5.Text
    If OptionButton11.Value = True Then S1.Range("F" & Bos_Satir).Value = "2"
    If OptionButton12.Value = True Then S1.Range("F" & Bos_Satir).Value = "1"
    S1.Range("G" & Bos_Satir).Value = TextBox6.Text
    S1.Range("H" & Bos_Satir).Value = TextBox7.Text
    S1.Range("I" & Bos_Satir).Value = TextBox8.Text
    S1.Range("J" & Bos_Satir).Value = ComboBox1.Text
    S1.Range("K" & Bos_Satir).Value = ComboBox2.Text
    S1.Range("L" & Bos_Satir).Value = ComboBox3.Text
    S1.Range("M" & Bos_Satir).Value = ComboBox8.Text
    S1.Range("N" & Bos_Satir).Value = ComboBox9.Text
    S1.Range("O" & Bos_Satir).Value = TextBox9.Text
    If OptionButton9.Value = True Then S1.Range("P" & Bos_Satir).Value = "1"
    If OptionButton10.Value = True Then S1.Range("P" & Bos_Satir).Value = "0"
    S1.Range("Q" & Bos_Satir).Value = ComboBox5.Text
    S1.Range("R" & Bos_Satir).Value = TextBox10.Text
    If OptionButton1.Value = True Then S1.Range("S" & Bos_Satir).Value = "0"
    If OptionButton2.Value = True Then S1.Range("S" & Bos_Satir).Value = "1"
    If OptionButton3.Value = True Then S1.Range("T" & Bos_Satir).Value = "1"
    If OptionButton4.Value = True Then S1.Range("T" & Bos_Satir).Value = "0"
    If OptionButton5.Value = True Then S1.Range("U" & Bos_Satir).Value = "1"
    If OptionButton6.Value = True Then S1.Range("U" & Bos_Satir).Value = "0"
    S1.Range("V" & Bos_Satir).Value = ComboBox6.Text
    S1.Range("W" & Bos_Satir).Value = ComboBox7.Text
    S1.Range("X" & Bos_Satir).Value = TextBox11.Text
    If OptionButton7.Value = True Then S1.Range("Y" & Bos_Satir).Value = "1"
    If OptionButton8.Value = True Then S1.Range("Y" & Bos_Satir).Value = "0"
 Else
    MsgBox "GİRİŞLER BOŞ GEÇİLMEZ"
    TextBox1 = "": TextBox2 = "": TextBox3 = ""
    End If
End Sub

 

[baba]

Sayın vardar07
Evet Olmuş Kaydet. Yanlız benim Burada yapmak istediklerim TextBox, ComboBox ve diğer ToolBox daki Nesnelerin eklediği zaman Labeller Karşılığının gelmesidir. Buda Örnek Çalışma Kitabımın içerisinde Kadro Ünvanları, Görevi, Klinikler, Branşlar, Akademik_Ünvanlar, Bankalar Listesi, Derece Kademe ler sayfasındaki verilerin çekilmesini sağlamak. Örneği; (Kadro Ünvanı olan ComboBox1'e gelmesini sağlamak ve Kadro Ünvanı sayfasındaki Yeri olan Yani ComboBox1'e SAĞLIK MEMURU geldiğinde Label10 ise 8410 kodunun gelmesini sağlamaktır.) Kayıt ederkende Labellar gelen Bilgilerin Kayıtlarını Sağlamaktır.
İnşallah Anlata bilmişimdir.
Saygılarımla....

 

[vardar07]

Aşağıdaki örneğe göre ComboBoxX_Change() olaylarını düzenlerseniz labellere verileri alırsınız.

Private Sub ComboBox1_Change()
Label10.Caption = Sheets("Akademik_Ünvanlar").Cells(ComboBox1.ListIndex + 2, 1)
'AÇIKLAMA:
'[COLOR="Red"][SIZE="2"]labelX.Caption =Sheets("verinin alındığı sayfa adı").Hücre adresi(ComboBox1.ListIndex + 2,sutun adı"A" yada "A" yerine 1)[/SIZE][/COLOR]
End Sub

 

[baba]

Sayın Vardar07
Emeğinize sağlık teşekkürler ederim.
ComboBoxlara Sayfalarda Veri Almayı nasıl sağlarım?
Saygılarımla...

 

[vardar07]

Aşağıdaki yollardan birini kullanabilirsin.
Ya RowSource:

ComboBox1.RowSource = "sayfa1!A2:A" & Sheets("Banka").Cells(65536,
"A").End(xlUp).Row

Yada döngü ile

ComboBox1.Clear
For i = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
ComboBox1.AddItem Worksheets("Sayfa1").Cells(i, "A").Value
Next i

 

[baba]

Bir böyle yaptım olmadı.

Private Sub ComboBox1_Change()
ComboBox1.Clear
For i = 2 To Worksheets("Kadro Ünvanları").Cells(Rows.Count, "b").End(3).Row
ComboBox1.AddItem Worksheets("Kadro Ünvanları").Cells(i, "b").Value
Next i
End Sub

Bir de böyle yaptım yine olmadı.

Private Sub ComboBox1_Change()
ComboBox1.RowSource = "Kadro Ünvanları!B2:B" & Sheets("Kadro Ünvanları").Cells(65536, "b").End(xlUp).Row
End Sub

ComboBox1'e gelmesini istediğim şey; Kadro Ünvanları Sayfasındaki B2:B255 Hücreleri arasında bulunan Ünvanları ComboBox1'e gelmesini sağlamak. Gelen verinin Karşılığı olarak yine aynı safya içerisinde bulunan A2:B255 hücresinde bulunan kodu karşılığı Label10 gelmesidir.

 

[vardar07]

Sayfa isimlerinde türkçe karakter ve aralarda boşluk kullanmadan denermisin.
Kadro Ünvanları yerine Kadro_Ünvanları
Bunu yapınca kodlardaki sayfa isimlerini yeni yazım şekline göre düzenlemek lazım.

 

[vardar07]

UserForm_Initialize altındaki kırmızılı yeri 4 yap düzelsin

 ComboBox1.AddItem Sayfa[COLOR="Red"]8[/COLOR].Cells(i, 2)

 

[baba]

Private Sub ComboBox1_Change()
ComboBox1.RowSource = "Kadro_Unvanlari!B2:B" & Sheets("Kadro_Unvanlari").Cells(65536, "b").End(xlUp).Row
Label10.Caption = Sheets("Kadro_Unvanlari").Cells(ComboBox1.ListIndex + 2, 1)
End Sub

Şeklinde düzeltmeler yaptım. ama yine ComboBox verileri getiremiyorum. Nerede Yanlışlık Yapıyorum Bilemedim.

Sayfaların adlarınıda değiştim.
Sayfaların Adlarını şöyle yaptım ama (Kadro_Unvalari, Gorevi, Klinikler, Branslar, Akademik_Unvanlar, Bankalar_Listesi, ve Derece_Kademe) Şekilde.

 

[baba]

Merhaba;
Ekte tekrar bazı verileri değiştirdim. Başka Yerden Alarak Düzeltmeler yapmaya çalıştım. Lakin Kafam şişti. Sizlerle paylaşmak istedim.
Saygılarımla