banka takip

[marlalı1]

arkadaş herkese selam.ekte yapmaya çalıştığım bir dosya var.excel de veri girişi sayfasınadaki bilgileri userform üzerinde ilgili yerlere yazılmasını istiyorum.diyelimki veri giriş sayfasında yapı kredi bankasında 1500 tl var.bu 1500 tl nin userform üzerinde bulunan yapı kredi tl hesaba nasıl yazdırırız.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub UserForm_Initialize()
Label26 = Format(Sayfa2.[b2], "#,##0.00")
End Sub

 

[Orion1]

Sayın marlalı bence benim kullandığım yöntemle yapsanız daha kullanışlı ve daha doğru olacak işiniz.
Listview ekledim.
Dosyanız ektedir.İnceleyiniz.

Private Sub UserForm_Initialize()
Dim k As Byte, i As Byte
ListView1.View = lvwReport
For k = 1 To 5
    ListView1.ColumnHeaders.Add , , Sheets("VERİ GİRİŞİ").Cells(8, k).Value, 100
    If k > 1 Then ListView1.ColumnHeaders.Item(k).Alignment = lvwColumnRight
Next
For i = 9 To 13
    ListView1.ListItems.Add , , Sheets(2).Cells(i, "A").Value
    ListView1.ListItems(i - 8).Bold = True
    ListView1.ListItems(i - 8).ForeColor = vbRed
    For k = 1 To 5
        ListView1.ListItems(i - 8).ListSubItems.Add , , Format(Sheets(2).Cells(i, k + 1).Value, "#,##0.00")
        ListView1.ListItems(i - 8).ListSubItems(k).Bold = True
        If k Mod 2 = 0 Then
            ListView1.ListItems(i - 8).ListSubItems(k).ForeColor = vbRed
            Else
            ListView1.ListItems(i - 8).ListSubItems(k).ForeColor = vbBlue
        End If
    Next
Next
ListView1.ListItems.Add , , "T O P L A M"
ListView1.ListItems(i - 8).Bold = True
ListView1.ListItems(i - 8).ForeColor = RGB(200, 50, 200)
For k = 1 To 5
    ListView1.ListItems(i - 8).ListSubItems.Add , , Format(WorksheetFunction.Sum(Sheets(2). _
    Range(Sheets(2).Cells(9, k + 1), Sheets(2).Cells(13, k + 1)).Value), "#,##0.00")
    ListView1.ListItems(i - 8).ListSubItems(k).Bold = True
    If k Mod 2 = 0 Then
        ListView1.ListItems(i - 8).ListSubItems(k).ForeColor = vbRed
        Else
        ListView1.ListItems(i - 8).ListSubItems(k).ForeColor = vbBlue
    End If
Next

ListView1.FullRowSelect = True
ListView1.Gridlines = True
End Sub

 

[marlalı1]

hocam çok teşekkür ederim çok güzel olmuş elinize sağlık.birde çek takip proğramına bakabilirmisniz.

 

[marlalı1]

banka takip dosyasını yazıcıya gönderiyorum rakamlar çıkmıyor hocam

 

[marlalı1]

arkadaşlar dosyayı yazıcıya gönderince rakamları yazdırmıyor.

 

[Orion1]

banka takip dosyasını yazıcıya gönderiyorum rakamlar çıkmıyor hocam

Nasıl gönderiyorsunuz.VBA kod ilemi.
Neresini gönderiyorsunuz.
Manuel mi gönderiyorsunuz.
Yazdırma alanı belirliyormusunuz.
Dosya==>Yazdırma alanı ile yazdırma alnının -ı belirledinizmi.
Önce yazdırma alnını seçin sonra dediğim yerden seçin sonra yazdırın.