ListBox Sorunu

[yavuz829]

Arkadaşlar ekli dosyamdaki fatura sayfasını UserForm1 deki ListBox1 de görüntülemek istiyorum. Bu konuda yardımlarınızı bekliyorum.

 

[excel_ance]

örnek dosyanız ektedir

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Urunler!b2:b200"
'tamekran UserForm'

'tamekran UserForm'

    For i = 6 To [B65536].End(3).Row
        If WorksheetFunction.CountIf(Range("a6:b" & i), Cells(i, "a")) = 1 Then
         
        End If
    Next
      [COLOR="Red"][B]ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "40;80;80;80;80;80;80;80"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A6:K" & [a65536].End(3).Row + 1[/B][/COLOR]

 

[yavuz829]

Çok teşekkürler hocalarım. Değiştirmek veya silmek üzere ListBox daki verilere çift tıklayarak ComboBox ve TextBox lara alabilirmiyiz.

 

[excel_ance]

Private Sub CommandButton12_Click()
If TextBox53.Text = Empty Then: Exit Sub
If TextBox54.Text = Empty Then: Exit Sub
If TextBox55.Text = Empty Then: Exit Sub
If TextBox23.Text = Empty Then: Exit Sub
If TextBox52.Text = Empty Then: Exit Sub
If TextBox6.Text = Empty Then: Exit Sub
If ComboBox1.Text = Empty Then: Exit Sub
If ComboBox2.Text = Empty Then: Exit Sub
If TextBox24.Text = Empty Then: Exit Sub
If TextBox3.Text = Empty Then: Exit Sub
If TextBox11.Text = Empty Then: Exit Sub
If TextBox5.Text = Empty Then: Exit Sub
If TextBox25.Text = Empty Then: Exit Sub
If TextBox26.Text = Empty Then: Exit Sub
sat = ListBox1.ListIndex + 2
cevap = MsgBox("DEĞİŞTİRMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If cevap = vbNo Then Exit Sub
Sheets("Fatura").Select
ListBox1.RowSource = ""
Cells(sat, "A") = TextBox53.Value
Cells(sat, "B") = TextBox54.Value
Cells(sat, "C") = TextBox55.Value
Cells(sat, "D") = TextBox23.Value
Cells(sat, "E") = TextBox6.Value
Cells(sat, "F") = ComboBox1.Value
Cells(sat, "G") = TextBox24.Value
Cells(sat, "H") = TextBox3.Value
Cells(sat, "I") = ComboBox2.Value
Cells(sat, "J") = TextBox11.Value
Cells(sat, "K") = TextBox5.Value
Cells(sat, "L") = TextBox25.Value
Cells(sat, "M") = TextBox26.Value
UserForm_Initialize
End Sub
bu kodu değiştir butonuna uygulayınız

 

[yavuz829]

Hocam kodunuzu ekledim ListBox daki veriyi TextBoxlara almak üzere satıra tıkladığım zaman aşağıdaki kod hata veriyor. Size zahmet olacak eklediğiniz kodu dosyaya uygularmısınız.

Private Sub TextBox3_Change()

If TextBox24 <> "" Then
TextBox3 = ""
MsgBox "+ KDV VEYA KDV DAİL SATIŞLARINDAN BİRİNİ GİRİNİZ"
End If

deg1 = Replace(IIf(TextBox3 = "", 0, TextBox3), ".", ",")
deg2 = Replace(IIf(TextBox5 = "", 0, TextBox5), ".", ",")
TextBox50 = Format(Replace(CDbl(deg1) / (deg2 + 100) * CDbl(deg2), ".", ","), "#,##0.00")' Hata veren kod
End Sub