ListView hakkında

[ozuberk]

Merhaba
1) Aşağıdaki kodda "ActiveSheet.Range" yazan yere benim istediğim sayfadan veri alsın nasıl yapabilirim (Örnek: Sayfa1!A1:A200 gibi) 2) Alınan verilerinin yazılarını sağa veya sola nasıl yerleştirebilirim

Private Sub UserForm_Initialize()
Dim i As Integer
ListView1.View = lvwReport 'ListView de buna dikkat et,
'Kolanlara isim ver
With ListView1.ColumnHeaders
.Add , , "Tarih ", 70 ' Burda 100 sütun genişliği
.Add , , "Cari Kodu ", 150
.Add , , "Evrak No ", 71
.Add , , "İşlem ", 71
.Add , , "Borç ", 76
.Add , , "Alacak ", 76
.Add , , "Kaynak ", 70
End With
'Kolanlara verileri al
captan = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
With ListView1
For i = 1 To captan
x = x + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(x).SubItems(1) = Cells(i + 1, 2)
.ListItems(x).SubItems(2) = Cells(i + 1, 3)
.ListItems(x).SubItems(3) = Cells(i + 1, 4)
.ListItems(x).SubItems(4) = Cells(i + 1, 5)
.ListItems(x).SubItems(5) = Cells(i + 1, 6)
.ListItems(x).SubItems(6) = Cells(i + 1, 7)
Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
'Umarım yardımcı olabilmişimir ! !
End Sub

 

[conari]

captan = WorksheetFunction.CountA(Sayfa3.Range("a:a"))

 

[ozuberk]

Sayın conari resimdeki hatayı veriyor

 

[ozuberk]

pardon yanlış resim oldu

Private Sub UserForm_Initialize()
Dim i As Integer
ListView1.View = lvwReport 'ListView de buna dikkat et,
'Kolanlara isim ver
With ListView1.ColumnHeaders
.Add , , "Tarih ", 70 ' Burda 100 sütun genişliği
.Add , , "Cari Kodu ", 150
.Add , , "Evrak No ", 71
.Add , , "İşlem ", 71
.Add , , "Borç ", 76
.Add , , "Alacak ", 76
.Add , , "Kaynak ", 70
End With
'Kolanlara verileri al
captan = WorksheetFunction.CountA(CariHareket.Range("a:a"))
With ListView1
For i = 1 To captan
x = x + 1
.ListItems.Add , , Cells(i + 1, 1)
.ListItems(x).SubItems(1) = Cells(i + 1, 2)
.ListItems(x).SubItems(2) = Cells(i + 1, 3)
.ListItems(x).SubItems(3) = Cells(i + 1, 4)
.ListItems(x).SubItems(4) = Cells(i + 1, 5)
.ListItems(x).SubItems(5) = Cells(i + 1, 6)
.ListItems(x).SubItems(6) = Cells(i + 1, 7)
Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
'Umarım yardımcı olabilmişimir ! !
End Sub

 

[bedersu]

sheets("CariHareket") olarak düzeltin.