ListBox.AddItem

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar aşağıdaki kodlarda nasıl bir hata vardır ki ListBox3'e üç satır değil de iki satır yazdırır. TextBox2 ile TextBox5'in verilerini yazmıyor, hep atlıyor.


Dim syf1 As Worksheet
Dim syf2 As Worksheet


Set syf1 = Worksheets("Sayfa1")
Set syf2 = Worksheets("Sayfa2")


'ListBox3.Clear
With ListBox3
.ColumnCount = 3
.ColumnWidths = "30;30;30"
End With
ListBox3.AddItem

If IsNumeric(TextBox4) Then
t1 = Val(TextBox4)
Else
t1 = TextBox4.Text
End If

If IsNumeric(TextBox5) Then
t2 = Val(TextBox5)
Else
t2 = TextBox5.Text
End If

If IsNumeric(TextBox6) Then
t3 = Val(TextBox6)
Else
t3 = TextBox6.Text
End If

ListBox3.AddItem

ListBox3.List(0, 0) = Val(TextBox1)
ListBox3.List(0, 1) = t1
ListBox3.List(0, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox1), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t1), syf1.Range("F1:K1"), 0))

ListBox3.List(ListBox3.ListCount - 1, 0) = Val(TextBox2)
ListBox3.List(ListBox3.ListCount - 1, 1) = t2
ListBox3.List(ListBox3.ListCount - 1, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox2), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t2), syf1.Range("F1:K1"), 0))

ListBox3.List(ListBox3.ListCount - 1, 0) = Val(TextBox3)
ListBox3.List(ListBox3.ListCount - 1, 1) = t3
ListBox3.List(ListBox3.ListCount - 1, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox3), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t3), syf1.Range("F1:K1"), 0))

 

[halit3]

Kodlarınızı kode tag ın içine yazın.
Bunu denermisiniz.

Dim syf1 As Worksheet
Dim syf2 As Worksheet

Set syf1 = Worksheets("Sayfa1")
Set syf2 = Worksheets("Sayfa2")

'ListBox3.Clear
With ListBox3
.ColumnCount = 3
.ColumnWidths = "30;30;30"
End With

If IsNumeric(TextBox4) Then
t1 = Val(TextBox4)
Else
t1 = TextBox4.Text
End If
If IsNumeric(TextBox5) Then
t2 = Val(TextBox5)
Else
t2 = TextBox5.Text
End If
If IsNumeric(TextBox6) Then
t3 = Val(TextBox6)
Else
t3 = TextBox6.Text
End If
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox1)
ListBox3.List(sat, 1) = t1
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox1), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t1), syf1.Range("F1:K1"), 0))
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox2)
ListBox3.List(sat, 1) = t2
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox2), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t2), syf1.Range("F1:K1"), 0))
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox3)
ListBox3.List(sat, 1) = t3
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox3), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t3), syf1.Range("F1:K1"), 0))

 

[excellcan]

Kodlarınızı kode tag ın içine yazın.
Bunu denermisiniz.

Dim syf1 As Worksheet
Dim syf2 As Worksheet

Set syf1 = Worksheets("Sayfa1")
Set syf2 = Worksheets("Sayfa2")

'ListBox3.Clear
With ListBox3
.ColumnCount = 3
.ColumnWidths = "30;30;30"
End With

If IsNumeric(TextBox4) Then
t1 = Val(TextBox4)
Else
t1 = TextBox4.Text
End If
If IsNumeric(TextBox5) Then
t2 = Val(TextBox5)
Else
t2 = TextBox5.Text
End If
If IsNumeric(TextBox6) Then
t3 = Val(TextBox6)
Else
t3 = TextBox6.Text
End If
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox1)
ListBox3.List(sat, 1) = t1
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox1), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t1), syf1.Range("F1:K1"), 0))
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox2)
ListBox3.List(sat, 1) = t2
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox2), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t2), syf1.Range("F1:K1"), 0))
ListBox3.AddItem
sat = ListBox3.ListCount - 1
ListBox3.List(sat, 0) = Val(TextBox3)
ListBox3.List(sat, 1) = t3
ListBox3.List(sat, 2) = WorksheetFunction.Index(syf1.Range("F2:K13"), _
WorksheetFunction.Match(Val(TextBox3), syf1.Range("F2:F13"), 0), _
WorksheetFunction.Match((t3), syf1.Range("F1:K1"), 0))

Hocam teşekkürler. Emeğinize sağlık. UserFormda bir commandbuttona yazdım.
Her tür denemeyi de yaptım. Kodlar çalışıyor. Bir kez daha teşekkürler.

 

[halit3]

İyi çalışmalar