Bakiyesi olan carileri listeleme

[mecnun24_]

bir cari hesap defteri hazırlamaya çalışıyorum(ekte). yalnız bir yerde takıldım.
bakiyesi olan carileri döktürmeye çalıştığımda (anasayfa 4.buton listeler sayfasına geçiyor ve bilgileri döküyor ancak, bakiyesi olmayanlar için bir satır boş bırakıyor.bunu nasıl önleyebilirim.yada bildiğiniz başka bir yolu varmıdır.şimdiden tşkrler.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton4_Click()
Sheets("Listeler").Activate
ActiveSheet.Range("a4:ı500").Select
Selection.ClearContents
ActiveSheet.Range("a4").Select
Dim i As Integer
For i = 4 To Worksheets.Count
If Worksheets(i).Range("f2").Value >= 1 Then
[B]sat[/B] = ActiveSheet.[a65536].End(3).Row + 1
ActiveSheet.Cells(sat, 1).Value = Worksheets(i).Range("a4")
ActiveSheet.Cells(sat, 2).Value = Worksheets(i).Range("g2")
ActiveSheet.Cells(sat, 3).Value = Worksheets(i).Range("a2")
ActiveSheet.Cells(sat, 4).Value = Worksheets(i).Range("c2")
ActiveSheet.Cells(sat, 5).Value = Worksheets(i).Range("c3")
ActiveSheet.Cells(sat, 6).Value = Worksheets(i).Range("e2")
ActiveSheet.Cells(sat, 7).Value = Worksheets(i).Range("e3")
ActiveSheet.Cells(sat, 8).Value = Worksheets(i).Range("f2")
End If
Next i
MsgBox ("Liste hazırlandı, saygılar ")
End Sub

 

[mecnun24_]

üstadım ellerine sağlık çok teşekkürler....

 

[Recep İpek]

önemli değil...

 

[mecnun24_]

birşey daha sorabilirmiyim aynı çalışmayla ilgili.

 

[Recep İpek]

tabiki sorabilirsiniz.

 

[mecnun24_]

ilginiz için tşkrler. ödeme userformundaki tamam butonunun olayına bir kod eklemek istiyorum.eğer kayıt bittikten sonra bakiyede bulunan tutar eğer girdiğimiz faturaların birinin tutarına eşitse o fatura numarasını h3 hücresine yazdırmak istiyorum.birden fazla varsa en sondakini.yani kısacası bakiye bi faturadan ötürü ise o fatura numarasını oraya yazdırmak istiyorum üstadım.... birde textboxlarda metin girilirken girileni küçük harf veya büyük harf olarak kısıtlayacak bir fonksiyon yada kod varmıdır.. çok tşkrler.

 

[Recep İpek]

Problemi tam olarak kavrayamadım ama aşağıdaki ilave işinize yarar mı?

......
TextBox2 = "" Then ActiveCell.Offset(0, 6).Value = "-"
ActiveCell.Offset(0, 7).FormulaR1C1 = "=IF(RC[-1]=""-"",""-"",IF(RC[-1]<=TODAY(),""gelmiş"",""gelmemiş""))"
Unload Me
If CDbl(ActiveCell.Offset(0, 5).Text) = CDbl(Range("f2").Text) Then
[h3].Value = TextBox2.Text
Exit Sub
Else
MsgBox ("Yuhh diyorum Bakiyede bir problem var kontrol edin")
End If
End Sub

 

[Recep İpek]

Diğer konu için aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/f48/textbox-harf-format-t31684.html

 

[mecnun24_]

For Each bakbi In Range("e7:e301")
If CDbl(bakbi.Value) = CDbl(TextBox2.Text) Then
Range("h3").Value = bakbi.Offset(0, -3).Value
End If
Next bakbi
bunu denedim ama bir türlü yazdıramadım.bi bakarmısınız nerde yanlış yapıyorum.yada yanlış sıralamaylamı yapıyorum.tşkrler.