• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Bakiyesi olan carileri listeleme

M

mecnun24_

Katılım
26 Temmuz 2008
Mesajlar
162
Excel Vers. ve Dili
excel 2003
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.
 

Ekli dosyalar

Aşağıdaki kodları deneyiniz.

Kod: 
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
 
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.
 
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
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst