ListView Yineleme?

iaydin20 · 22 Ocak 2008

merhaba;
Düzenlediğim formda listbox tan seçilen isme göre başka bir sayfadan verileri çekiyor,ve bu veriler ListViewde görüntüleniyor.
Benim problemim Listboxtan başka bir isim seçtiğimde verileri sayfaya aktarıyor ancak ListViewde güncellemiyor güncellemesi için Kapatıp açmam gerekiyor ListView1.Refresh fonksiyonunu denedim ama olmuyor..yardımcı olan arkadaşlara teşekkür ederim....

hsayar · 22 Ocak 2008

MESALA;

Kod:

'userform lw_Sts de &#231;al&#305;&#351;ma sayfas&#305;n&#305; g&#246;ster
Sub Liste_Alis()
Mdl_00_Acls.DegiskenAl
Dim i&#37;, y%
With uf_isl.lw_Als
     .Sorted = False
     .ListItems.Clear
     .ColumnHeaders.Clear
     .View = lvwReport
     .FullRowSelect = True
     .Gridlines = True
     .LabelEdit = lvwManual
    
    'Fi&#351; No  P&#304;KN&#304;K  EV  LOKANTA SANAY&#304;
      With .ColumnHeaders
           .Add , , "SrNo", 40
           .Add , , "F&#351;No", 60, lvwColumnLeft
           .Add , , "Piknik", 60, lvwColumnRight
           .Add , , "Ev", 60, lvwColumnRight
           .Add , , "Lokanta", 60, lvwColumnRight
           .Add , , "Sanayi", 60, lvwColumnRight
      End With
      
      'kolonlar&#305; doldur
      For i = 4 To ckBU_sfALS.Cells(65536, "b").End(xlUp).Row
          y = y + 1
          .ListItems.Add , , Format(y, "000")
          .ListItems(y).SubItems(1) = Format(ckBU_sfALS.Cells(i, 1), "##")
          .ListItems(y).SubItems(2) = ckBU_sfALS.Cells(i, 2)
          .ListItems(y).SubItems(3) = ckBU_sfALS.Cells(i, 3)
          .ListItems(y).SubItems(4) = ckBU_sfALS.Cells(i, 4)
          .ListItems(y).SubItems(5) = ckBU_sfALS.Cells(i, 5)
      Next i
      'Listwievde s&#305;ralamak i&#231;in
      .SortKey = 0           'Kolon nosu
      .Sorted = True
End With
End Sub

USERFORM

Kod:

'UserForm A&#231;&#305;l&#305;&#351; Y&#252;klemesi\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Private Sub UserForm_Initialize()                                                                '||
Application.ScreenUpdating = False                     'yap&#305;lan i&#351;lemleri g&#246;sterme               '||
Call Mdl_00_Acls.DegiskenAl:        Call Mdl_10_Sfr.SifreAc        'genel de&#287;i&#351;kenleri oku       '||
YeniSatis = True                                       'A&#231;&#305;l&#305;&#351;ta yeni sat&#305;&#351; kayd&#305; yapmay&#305; a&#231;t&#305;k  '||
YeniAlis = True                                        'A&#231;&#305;l&#305;&#351;ta yeni sat&#305;&#351; kayd&#305; yapmay&#305; a&#231;t&#305;k  '||
'------------------------------------------------------------------------------------------------<<<
DTPicker1.Value = Date                                 'bug&#252;n&#252;n tarihini oku                     '||
Dim i%, j%, x%                                         'D&#246;ng&#252;de kullan&#305;lacak de&#287;i&#351;kenler         '||
'------------------------------------------------------------------------------------------------<<<
Call AyS_kont:             Call AyB_Kont  'Ay sonu ise eskileri kopyalar, Ayba&#351;&#305; ise devir ister.'||
'------------------------------------------------------------------------------------------------<<<
With Toolbar1                                                                                    '||
     .ImageList = ImageList1                                                                     '||
     .Buttons.Add(, , , tbrDefault, 2).TooltipText = "Yeni"                                      '||
     .Buttons.Add(, , , tbrDefault, 1).TooltipText = "G&#246;ster"                                    '||
     .Buttons.Add(, , , tbrDefault, 3).TooltipText = "Sil"                                       '||
     .Buttons.Add , , , tbrSeparator                                                             '||
     .Buttons.Add(, , , tbrDefault, 4).TooltipText = "Yard&#305;m"                                    '||
     .Buttons.Add , , , tbrSeparator                                                             '||
     .Buttons.Add(, , , tbrDefault, 5).TooltipText = "Hakk&#305;nda"                                  '||
End With                                                                                         '||
With Toolbar2                                                                                    '||
     .ImageList = ImageList1                                                                     '||
     .Buttons.Add(, , , tbrDefault, 2).TooltipText = "Yeni"                                      '||
     .Buttons.Add(, , , tbrDefault, 1).TooltipText = "G&#246;ster"                                    '||
     .Buttons.Add(, , , tbrDefault, 3).TooltipText = "Sil"                                       '||
     .Buttons.Add , , , tbrSeparator                                                             '||
     .Buttons.Add(, , , tbrDefault, 4).TooltipText = "Yard&#305;m"                                    '||
     .Buttons.Add , , , tbrSeparator                                                             '||
     .Buttons.Add(, , , tbrDefault, 5).TooltipText = "Hakk&#305;nda"                                  '||
End With
'------------------------------------------------------------------------------------------------<<<
[B][COLOR="GREEN"]Call Liste_Satis[/COLOR][/B]:            Call Liste_Alis           'sat&#305;&#351;lar/al&#305;&#351;lar sayfalar&#305;n&#305; listele     '||
'------------------------------------------------------------------------------------------------<<<
'Text Box Atamalar&#305;                                                                              '||
Call BirmF_Ata:              Call BirmF_kilitle:           uf_isl.Txt_Adt.Value = 1              '||
'------------------------------------------------------------------------------------------------<<<
'comboboxlara se&#231;ilecek de&#287;er al                                                                 '||
'Multipage, Sat&#305;&#351;
With uf_isl
    .cb_stk.RowSource = ckBU_sfTNM.Name & "!e2:e" & ckBU_sfTNM.[e65536].End(3).Row               '||
    .cb_stk.ListIndex = 1                                   'Stok tipleri      ikinci olan       '||
    .cb_isl.RowSource = ckBU_sfTNM.Name & "!f2:f" & ckBU_sfTNM.[f65536].End(3).Row               '||
    .cb_isl.ListIndex = 0                                   'i&#351;lem tipleri    ilk olan           '||
    .cb_mus.RowSource = ckBU_sfSAT.Name & "!d3:d" & ckBU_sfSAT.[d65536].End(3).Row               '||
    .cb_mus.Value = "L&#252;tfen M&#252;&#351;teri Ad&#305;n&#305; Giriniz veya Se&#231;iniz"  'M&#252;&#351;teri adlar&#305;   Se&#231;iniz!!!    '||
    'Multipage, Tan&#305;mlar
    .cb_hes.RowSource = ckBU_sfTNM.Name & "!a2:a" & ckBU_sfTNM.[a65536].End(3).Row               '||
    .cb_hes.ListIndex = 0                                   'hesap sorumlular&#305; ilk olan          '||
    .cb_arc.RowSource = ckBU_sfTNM.Name & "!b2:b" & ckBU_sfTNM.[b65536].End(3).Row               '||
    .cb_arc.ListIndex = 0                                   'ara&#231; sorumlular&#305;  ilk olan          '||
    .cb_sir.RowSource = ckBU_sfTNM.Name & "!c2:c" & ckBU_sfTNM.[c65536].End(3).Row               '||
    .cb_sir.ListIndex = 0                                   'sirketler         ilk olan          '||
    .cb_byi.RowSource = ckBU_sfTNM.Name & "!d2:d" & ckBU_sfTNM.[d65536].End(3).Row               '||
    .cb_byi.ListIndex = 0                                   'Bayiler           ilk olan          '||
End With
'&#199;al&#305;&#351;ma Sayfalar&#305; comboboxu
If ckBU.Worksheets.Count > (UBound(ckBU_Cmb_SfAd) + 1) Then '&#199;al&#305;&#351;ma sayfalar&#305;n&#305; dizideki ile kar&#351;&#305;la&#351;t&#305;r '||
    For i = 1 To ckBU.Worksheets.Count                      '1 den son sayfaya kadar d&#246;ng&#252; kur '||
        For j = 0 To UBound(ckBU_Cmb_SfAd)                  '0 Dizi indeksinden son  dizi indeksine kadar d&#246;ng&#252; kur '||
            'sayfa ad&#305; dizideki sayfa ad&#305;na e&#351;itmi bak evetse x e 1 ekleyerek devam et (Ama&#231;?)
            If Sheets(i).Name = ckBU_Cmb_SfAd(j) Then x = x + 1
        Next j                                   '0 Dizi indeksinden son  dizi indeksine d&#246;ng&#252;s&#252;nden &#231;&#305;k '||
            If x = 0 Then                        'x = 0 sa
                cb_syf.AddItem Sheets(i).Name    'comboxa sayfay&#305; ekle
            End If                               'x = 0 de&#287;ilse &#231;&#305;k
        x = 0                                    'x = 0 yap i d&#246;ng&#252;s&#252;ne d&#246;n
    Next i                                       'i d&#246;g&#252;s&#252;nden &#231;&#305;k
    cb_syf.ListIndex = (cb_syf.ListCount - 1)    'Son eklenen sayfay&#305; comboboxta g&#246;ster
Else
    cb_syf.Value = "G&#246;sterilecek Sayfa Yok"
End If
Application.ScreenUpdating = True
End Sub                                                                                          '||

açılışta yükledikten sonra, SAYFAYA YENİ KAYIT YAPINCA GÜNCELLER

Kod:

Sub Kaydet_Satis()
Mdl_00_Acls.DegiskenAl
Dim kaysat As Integer
'//us_isl user formunda girilen sat&#305;&#351; bilgilerini sat&#305;&#351; sayfas&#305;na yaz
kaysat = ckBU_sfSAT.Cells(65536, "b").End(xlUp).Row + 1
'StokTipi    Fi&#351; T&#252;r&#252;    fi&#351; AD SOYAD    Adet    BF  Tutar
 ckBU_sfSAT.Cells(kaysat, 1) = Format((uf_isl.cb_stk), "@")
 ckBU_sfSAT.Cells(kaysat, 2) = Format((uf_isl.cb_isl), "@")
 ckBU_sfSAT.Cells(kaysat, 3) = Format((uf_isl.Txt_Fis), "@")
 ckBU_sfSAT.Cells(kaysat, 4) = UCaseTr(uf_isl.cb_mus.Value)
 ckBU_sfSAT.Cells(kaysat, 5) = Format((uf_isl.Txt_Adt), "0")
 ckBU_sfSAT.Cells(kaysat, 6) = Format((uf_isl.Txt_Bf), "#,##0.00") * 1
 ckBU_sfSAT.Cells(kaysat, 7) = Format((uf_isl.Txt_Tut), "#,##0.00") * 1
[B][COLOR="GREEN"]Call Liste_Satis[/COLOR][/B]                                                    'sat&#305;&#351;lar sayfas&#305;n&#305; listele '||
Call Yeni_Satis
End Sub

iaydin20 · 23 Ocak 2008

Sn hsayar ilginize çok teşekkür ederim ancak ben bu kodlarda aradığım şeyi bulamadım bir örnek dosyayla göndermeniz mümkünmü

hsayar · 23 Ocak 2008

sn iaydın
normalde listwiev nesnesine veriler bir kere gelecekse bu verileri Userform_Inıtalize de tanımlarız.

ancak güncellemeler yapılacaksa (Her yeni kayıttan sonra) listwievi güncellemek gerekir.

bunun için bir modue listwievi doldurmak için kullandığınız kodları yazın

Kod:

Sub Listwiev_guncelle()

................... (bu araya yaz&#305;n)
end sub

Sonra Userformda

Kod:

private sub useform_Initalize
Call Listwiev_guncelle

End sub

Kod:

private sub Listbox_hangi olayla sayfay yeni bilgi geliyorsa()
Call Listwiev_guncelle
End sub
[/code

&#351;eklinde tan&#305;mlay&#305;n.

iaydin20 · 23 Ocak 2008

Hocam teşekkür ederim istediğim gibi oldu ancak yineledikçe ListViewde sütun sayısını arttırıyor Tanımladığım başlıkları arka arkaya ekliyor ve ve sayfadaki son satırı almıyor kodlar ağşağıdaki gibi

Sub Listwiev_guncelle()
Dim i As Integer
ListView1.View = lvwReport
'Kolanlara isim ver
With ListView1.ColumnHeaders
.Add , , " Tarih", 60
.Add , , " Evrak No", 60
.Add , , " Açıklama ", 201
.Add , , " Borç ", 64, lvwColumnRight
.Add , , " Alacak ", 64, lvwColumnRight
.Add , , " Bakiye ", 64, lvwColumnRight
.Add , , " B-A ", 27, lvwColumnCenter
End With
'Kolanlara verileri al
c = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
With ListView1
.ListItems.Clear
.Refresh
For i = 10 To c
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(3) = Format(ListView1.ListItems(X).SubItems(3), "#,##0.00")
.ListItems(X).SubItems(4) = Cells(i + 1, 5)
.ListItems(X).SubItems(4) = Format(ListView1.ListItems(X).SubItems(4), "#,##0.00")
.ListItems(X).SubItems(5) = Cells(i + 1, 6)
.ListItems(X).SubItems(5) = Format(ListView1.ListItems(X).SubItems(5), "#,##0.00")
.ListItems(X).SubItems(6) = Cells(i + 1, 7)
.ListItems(X).SubItems(7) = Cells(i + 1, 8)

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

hsayar · 23 Ocak 2008

satır sayısının artması gerekir sütun değil bilemiyeceğim.

iaydin20 · 23 Ocak 2008

bencede öle ama yinede çok teşekkür ederim yardımlarınızdan dolayı...

teknikyapı · 23 Ocak 2008

Merhaba.Tahminim yukarıdaki kodların başına
ListView1.ListItems.Clear

kodunu ilave ederseniz istediğiniz olur.Bir deneyin.

iaydin20 · 23 Ocak 2008

ilginize teşekkür ederim ancak onu denedim bir faydası olmadı zaten onun fazla bi önemi yok maksat işimi görmesi benim şuanki asıl problemim sayfanın veri bulunan son satırını almaması
saygılar

hsayar · 23 Ocak 2008

c = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
yerine

Kod:

Dim ckBU As Workbook
Dim csSR As Worksheet
Set ckBU = ThisWorkbook: Set csSR = ckBU.Sheets("Sayfan&#305;z&#305;nAd&#305;")
c = csSR.Cells(65536, 1).End(3).Row

olarak deneyiniz

iaydin20 · 23 Ocak 2008

Sn;hsayar çok teşekkür ederim

hsayar · 23 Ocak 2008

rica ederim.