userform'daki combobox hakkında

[İhsan Tank]

selam arkadaşlar bir kaçtane sorunum mevcut
dosya içerisindede açıkalama yaptım
soru 1 : combobox'tan seçtiğim kesilen fatura'ya ft numarası eklemem gerekli eklediğim taktirde istediğim işlemi yapmıyor
soru 2 : combobox'tan seçtiğim'de boş olan textbox'a 0 ( sıfır ) yazsın
soru 3 : bir'de rakam olarak kayıt yapsın. Textbox'un sonuna *1 koyduğumda hata veriyor.
yardımlarınızı bekliyorum
teşekkür ederim

 

[ynmcan]

Syn. İhsan Tank ;
Ekteki dosyayı inceleyin. Combobox' ta kesilen faturayı seçtiğinizde fatura nosu için ayrı bir textbox açılacak. fatura nosunu oraya yazın.
3.sorunuzu tam olarak anlayamadığımdan bir işlem yapmadım.

 

[Ömer]

Merhaba,

Alternatif olarak, kodları aşağıdaki gibi değiştirerek de kullanabilirsiniz..

Private Sub ComboBox1_Change()
    If ComboBox1.Value Like "*Kesilen Fatura*" Then
        TextBox3.Enabled = True
        TextBox2.Enabled = False
    Else
        TextBox3.Enabled = False
        TextBox2.Enabled = True
    End If
End Sub
 
Private Sub CommandButton1_Click()
Set Sk = Sheets("kayıt")
If TextBox1.Text = Empty Then MsgBox "tarih Giriniz.": Exit Sub
Bos_Satir = Sk.Range("A65536").End(xlUp).Row + 1
    Sk.Range("A" & Bos_Satir).Value = CDate(TextBox1.Text)
    Sk.Range("B" & Bos_Satir).Value = ComboBox1.Value
    Sk.Range("C" & Bos_Satir).Value = CDbl(TextBox2.Text)
    Sk.Range("D" & Bos_Satir).Value = CDbl(TextBox3.Text)
    MsgBox "Kayıt Başarı İle Tamamlandı", , "İhsan Tank"
Unload UserForm1
End Sub
 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Kesilen Fatura"
    ComboBox1.AddItem "Makbuz"
    ComboBox1.AddItem "Dekont"
    TextBox2.Text = 0: TextBox3.Text = 0
End Sub

.

 

[İhsan Tank]

Merhaba,

Alternatif olarak, kodları aşağıdaki gibi değiştirerek de kullanabilirsiniz..

.

ömer hocam teşekkür ederim bu kod işimi gördü
ynmcany arkadaşım sana2da teşekkür ederim