Son kaydı görmüyor.

[feryat]

aşağıdaki kodla müşteriye ait fiş bilgilerini görüntülüyorum. Başlangıçta sağlıklı çalışıyordu. Ancak şu anda müşteriye ait son fişi ya da listemdeki yapılmış son kaydı görmüyor. Sebebini bir türlü çözemedim. Kodda benim göremediğim bir problem mi var, ya da aynı işi yapabilecek alternatif bir kod mevcut mudur?



Private Sub CommandButton2_Click()
If CbAd.Value = "" Then
MsgBox "Lütfen Müşteri Adı giriniz"
Exit Sub
End If
Label7.Caption = "Tutar"
ListBox2.ColumnCount = 4
ListBox2.ColumnWidths = "30;60;60;50"
ListBox2.Clear
Sheets("dat").Select
Dim bak As Range
For Each bak In Range("b1:bf" & WorksheetFunction.CountA(Range("b1:b65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(CbAd.Value, vbUpperCase) Then
bak.Select
ListBox2.AddItem
ListBox2.Column(0, sat) = (ActiveCell.Offset(0, -1).Value)
ListBox2.Column(1, sat) = (ActiveCell.Offset(0, 48).Value)
ListBox2.Column(2, sat) = (ActiveCell.Offset(0, 52).Value)
ListBox2.Column(3, sat) = (ActiveCell.Offset(0, 56).Value)
ListBox4.AddItem (ActiveCell.Offset(0, 56).Value) 'KALAN TUTAR
sat = sat + 1
End If
Next bak
Z = 0
For i = 1 To ListBox4.ListCount
Z = Z + Val(ListBox4.List(i - 1))
Next i
TextBox1.Value = Z
Sheets("veri").Select
End Sub

 

[dEdE]

Merhaba,
Kodlarda bir sorun yok gibi görünüyor.
Son kaydınızın B sütununu kontrol eder misiniz. O hücre boş olabilir mi?
Sonuç: Örnek dosyanızı eklerseniz çözüm bulunur.
Hoşçakalın.

 

[feryat]

ilginize teşekkür ederim. Veri sayfamda fark etmediğim bir boş satır armış. Onu kaldırınca problem çözüldü.