Userformla ilgili

[osmanucel]

Eklediğim dosyada acıklamam mevcuttur yardımlarınız için teşekkür ederim şimdiden

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, sat1 As Long, i As Long
Dim x As Long, k As Byte
Set s1 = Sheets("SATIŞ")
Set s2 = Sheets("FATURA")
s2.Range("A6:K" & Rows.Count).ClearContents
s2.Range("A1").Value = CDbl(TextBox24.Value)
ListView1.ListItems.Clear
sat1 = s2.Cells(Rows.Count, "A").End(xlUp).Row
For i = 6 To sat1
    ListView1.ListItems.Add , , s2.Cells(i, 1).Value
    For k = 2 To 11
        ListView1.ListItems(i - 5).SubItems(k - 1) = s2.Cells(i, k).Value
    Next k
Next i
End Sub

 

[osmanucel]

olmus hocam cok sagolun

 

[osmanucel]

Sütunları nasıl sekıllendırebılırım acaba

 

[Orion1]

Sütunları nasıl sekıllendırebılırım acaba

Hangi sütunları?
Listviewimi?
Listviewde sadece karakterler renklenir.

 

[osmanucel]

Yok hocam yanlıs sordum özür dilerim listwievde sutunlara sag sol para birimi gibi uyarlamaya calısdım yapamadımda

 

[Korhan Ayhan]

Merhaba,

Aşşağıdaki linkte detaylı bilgiler bulunmaktadır. İnceleyiniz.

ListView Özellikleri

 

[osmanucel]

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, sat1 As Long, i As Long
Dim x As Long, k As Byte
Set s1 = Sheets("SATIŞ")
Set s2 = Sheets("FATURA")
s2.Range("A6:K" & Rows.Count).ClearContents
s2.Range("A1").Value = CDbl(TextBox24.Value)
ListView1.ListItems.Clear
sat1 = s2.Cells(Rows.Count, "A").End(xlUp).Row
For i = 6 To sat1
ListView1.ListItems.Add , , s2.Cells(i, 1).Value
For k = 2 To 11
ListView1.ListItems(i - 5).SubItems(k - 1) = s2.Cells(i, k).Value
Next k
Next i
End Sub


Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Private Sub UserForm_Initialize()
Dim k As Range, s1 As Worksheet
Me.Caption = "C A R İ H E S A P K A R T L A R I " & Format(Now, "dd mmmm yyyy dddd hh:mm")
Me.Height = Application.Height
Me.Width = Application.Width
Set s1 = Sheets("FATURA")
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Gridlines = True
ListView1.Font.Size = 10

With ListView1.ColumnHeaders
.Add , , s1.Range("A1"), 30, lvwColumnLeft
.Add , , s1.Range("B1"), 65, lvwColumnLeft
.Add , , s1.Range("C1"), 65, lvwColumnLeft
.Add , , s1.Range("D1"), 30, lvwColumnLeft
.Add , , s1.Range("E1"), 40, lvwColumnLeft
.Add , , s1.Range("F1"), 160, lvwColumnLeft
.Add , , s1.Range("G1"), 180, lvwColumnRight
.Add , , s1.Range("H1"), 70, lvwColumnRight
.Add , , s1.Range("I1"), 50, lvwColumnRight
.Add , , s1.Range("J1"), 90, lvwColumnRight
.Add , , s1.Range("K1"), 90, lvwColumnRight
.Add , , s1.Range("L1"), 90, lvwColumnRight
End With
Call listele
ListView1.SelectedItem = Nothing
End Sub
Sub listele()
Dim i As Long, x As Long, s1 As Worksheet
Set s1 = Sheets("FATURA")
ListView1.ListItems.Clear
sat = s1.Cells(Rows.Count, "A").End(xlUp).Row + 1
With ListView1
For i = 2 To sat
x = x + 1
.ListItems.Add x, , s1.Cells(i, "A").Value
.ListItems(i - 1).SubItems(1) = s1.Cells(i, "B")
.ListItems(i - 1).SubItems(2) = Format(s1.Cells(i, "C"), "dd.mm.yyyy")
.ListItems(i - 1).SubItems(3) = s1.Cells(i, "D")
.ListItems(i - 1).SubItems(4) = s1.Cells(i, "E")
.ListItems(i - 1).SubItems(5) = s1.Cells(i, "F")
.ListItems(i - 1).SubItems(6) = s1.Cells(i, "G")
.ListItems(i - 1).SubItems(7) = Format(s1.Cells(i, "H"), "#,000 KG")
.ListItems(i - 1).SubItems(8) = Format(s1.Cells(i, "I"), "#.000 TL")
.ListItems(i - 1).SubItems(10) = Format(s1.Cells(i, "K"), "#,###.00 TL")

Next i
End With
End Sub

 

[osmanucel]

Hocam bu şekılde duzenledım ilk cagormada ıyı ama ilk listelediğimde bir sorun yok ikinci listelediğimde liste a sütunundan degılde b sutunundan baslıyor çözemedım bır turlu