listwiewde güncelleme

[osmanucel]

kayır yada rapor alındıgında,kapatıp yenıden acmadan göruntü saglanamıyor,anında göruntu nasıl alabılırım yardımcı olabılırmısınız

 

[Ömer]

Merhaba,

Görmeden yorum yapmak zor.

Örnek, kayıt kodlarınız,
------------------------------------------
Private Sub CommandButton1_Click()

End Sub
------------------------------------------
olsun.

End sub satırından önce ileve edilecek olan kırmızı ile işaretli.
------------------------------------------
Private Sub CommandButton1_Click()

UserForm_Initialize
End Sub
------------------------------------------

 

[osmanucel]

oldu hocam ama bıraz yavaş işliyor

 

[Korhan Ayhan]

Merhaba,

ListView nesnesine veriler For-Next döngüsü ile yüklendiği için yavaş çalışıyor. Hele bir veri sayınız fazla ise bekleme süresinin uzaması kaçınılmazdır. Eğer ListView nesnesini kullanmanızın özel bir sebebi yoksa ListBox nesnesi kullanırsanız verileri daha hızlı yükleyebilirsiniz. Bununda forumda bol miktarca örnekleri var. Arama yaparsanız ulaşırsınız.

 

[osmanucel]

Teşekkür ederim
sagolun

 

[osmanucel]

Listwiew

Acaba burda neyı yanlıs yapıyorum bı bakabılırmısınız

 

[osmanucel]

bı yardım edersenız sevınırım

 

[gencerker]

bende bu düzeni listbox üzerinde denedim fakat otomatik listelemiyor

 

[Orion1]

Dosyanız ektedir.

With ListView1
For i = 2 To Range("A65530").End(3).Row
    .ListItems.Add , , Range("A" & i)
    .ListItems(i - 1).SubItems(1) = Range("B" & i).Value
    .ListItems(i - 1).SubItems(2) = Range("C" & i).Value
    .ListItems(i - 1).SubItems(3) = Range("D" & i).Value
    .ListItems(i - 1).SubItems(4) = Range("E" & i).Value
    .ListItems(i - 1).SubItems(5) = Range("F" & i).Value
    .ListItems(i - 1).SubItems(6) = Range("G" & i).Value
    .ListItems(i - 1).SubItems(7) = Range("H" & i).Value
    .ListItems(i - 1).SubItems(8) = Range("I" & i).Value
    .ListItems(i - 1).SubItems(9) = Range("J" & i).Value
    .ListItems(i - 1).SubItems(10) = Range("K" & i).Value
    .ListItems(i - 1).SubItems(11) = Range("L" & i).Value
Next i
End With