Userformda ComboBox oluşturma

[plus44]

Forumu bayagı inceledim ama bulamadım, ekli tabloda userform yaptım TexsBox oluşturdum ama comboBox su formüle edemedim, ekli tabloda ki Sayfa2 deki tahsil bilgilerini ComboBox sa aktarmak istiyorum yadım ederseniz sevinirim,
şimdiden tşklr

 

[asi_kral]

Forumu bayagı inceledim ama bulamadım, ekli tabloda userform yaptım TexsBox oluşturdum ama comboBox su formüle edemedim, ekli tabloda ki Sayfa2 deki tahsil bilgilerini ComboBox sa aktarmak istiyorum yadım ederseniz sevinirim,
şimdiden tşklr

Merhaba
Userforum'un kod bölümüne Ekleyin

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
     If TextBox2.Text <> "" Then
                Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1
                Sheets("Sayfa2").Range("A" & Bos_Satir).Value = _
                           Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("A:A")) + 1
                Sheets("Sayfa2").Range("B" & Bos_Satir).Value = TextBox1.Text
                Sheets("Sayfa2").Range("C" & Bos_Satir).Value = TextBox2.Text
                Sheets("Sayfa2").Range("D" & Bos_Satir).Value = ComboBox1.Text
                Sheets("Sayfa2").Select
                Unload UserForm1
      Else
              MsgBox "Gerekli Bilgileri Giriniz"
      End If
    Else
            MsgBox "Gerekli Bilgileri Giriniz"
    End If
End Sub
Private Sub UserForm_Initialize()
'Konu       :   Combobox'a Verileri Alma
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
ComboBox1.RowSource = "Sayfa2!N3:N" & Sheets("Sayfa2").Range _
("N" & Rows.Count).End(xlUp).Row
End Sub

Eki inceleyiniz.

 

[plus44]

sayın asi kral çok sağol
ben yazmayı unutmuşum kusura bakmayınbu comboBox ta seçtiklerim diğer Texsbox taki bilgiler gibi sayfa2 ye kaydet dediğimde kaydetsin, bilgiler gelmiş ama kaydet dediğimde kaydetmiyor sayfa2 ye, onuda yaparsanız çok makbule geçer

 

[asi_kral]

sayın asi kral çok sağol
ben yazmayı unutmuşum kusura bakmayınbu comboBox ta seçtiklerim diğer Texsbox taki bilgiler gibi sayfa2 ye kaydet dediğimde kaydetsin, bilgiler gelmiş ama kaydet dediğimde kaydetmiyor sayfa2 ye, onuda yaparsanız çok makbule geçer

Üstteki kodu ve dosyayı güncelledim.

 

[plus44]

asi kral çok sağol Allah Razı olsun hayırlı çalışmalar,
aynı formülle birden fazla comboBox Userformda yapabilirim değilmi ?

 

[asi_kral]

asi kral çok sağol Allah Razı olsun hayırlı çalışmalar,
aynı formülle birden fazla comboBox Userformda yapabilirim değilmi ?

Yapabilirsiniz_?
Kolay Gelsin.

 

[plus44]

Sayın Asi Kral

Sheets("Sayfa2").Range("E" & Bos_Satir).Value = ComboBox2.Text


Private Sub UserForm_Initialize()
'Konu : Combobox'a Verileri Alma
'Mail : m.batu.1967@gmail.com
'Coder By : asi_kral_1967
ComboBox2.RowSource = "Sayfa2!M3:M" & Sheets("Sayfa2").Range _
("M" & Rows.Count).End(xlUp).Row
End Sub

şeklinde 2. bir ComboBox yaptım ama sürekli hata veriyor, acaba nerde yanlış yapıyorum

 

[asi_kral]

Sayın Asi Kral

Sheets("Sayfa2").Range("E" & Bos_Satir).Value = ComboBox2.Text


Private Sub UserForm_Initialize()
'Konu : Combobox'a Verileri Alma
'Mail : m.batu.1967@gmail.com
'Coder By : asi_kral_1967
ComboBox2.RowSource = "Sayfa2!M3:M" & Sheets("Sayfa2").Range _
("M" & Rows.Count).End(xlUp).Row
End Sub

şeklinde 2. bir ComboBox yaptım ama sürekli hata veriyor, acaba nerde yanlış yapıyorum

Dosyayı görmeden bir şey söyliyemem

 

[plus44]

sayın asi kral dosyayı ekledim

 

[asi_kral]

sayın asi kral dosyayı ekledim

Bir olayı kod bloğunda bir defa kullanabilirsiniz_?
Userform'un kod bloğunda İnıtailize olayını iki defa kullanmışsınız.
Kodu bununla değiştirip deneyin.

Private Sub CommandButton1_Click()
    If TextBox1.Text <> "" Then
     If TextBox2.Text <> "" Then
                Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1
                Sheets("Sayfa2").Range("A" & Bos_Satir).Value = _
                           Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("A:A")) + 1
                Sheets("Sayfa2").Range("B" & Bos_Satir).Value = TextBox1.Text
                Sheets("Sayfa2").Range("C" & Bos_Satir).Value = TextBox2.Text
                Sheets("Sayfa2").Range("D" & Bos_Satir).Value = ComboBox1.Text
                Sheets("Sayfa2").Range("E" & Bos_Satir).Value = ComboBox2.Text
                Sheets("Sayfa2").Select
                Unload UserForm1
      Else
              MsgBox "Gerekli Bilgileri Giriniz"
      End If
    Else
            MsgBox "Gerekli Bilgileri Giriniz"
    End If
End Sub
Private Sub UserForm_Initialize()
'Konu       :   Combobox'a Verileri Alma
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
ComboBox1.RowSource = "Sayfa2!N3:N" & Sheets("Sayfa2").Range _
("N" & Rows.Count).End(xlUp).Row
ComboBox2.RowSource = "Sayfa2!M3:M" & Sheets("Sayfa2").Range _
("M" & Rows.Count).End(xlUp).Row
End Sub

 

[plus44]

tamm çok sağol hayırlı çalışmalar