Soru Userform ile hazırlanan ListView Yenileme Hatası

Muzaffer Ali · 9 Aralık 2021

ListView ne zaman güncellenmesi gerekiyor?
Yukarıda bahsettiğiniz tıklamaları nereye tıklatıyorsunuz?

Prgkolik · 9 Aralık 2021

Muzaffer Ali' Alıntı:
ListView ne zaman güncellenmesi gerekiyor?
Yukarıda bahsettiğiniz tıklamaları nereye tıklatıyorsunuz?

bence lixbox atıkladığımda güncellemesi gerekiyor ki bu şekilde ayarladım ve güncellemeyi yapıyor fakat uzun sayfalı daha doğrusu çok fazla item içeren dosya geldiğinde sanki yarım kalmış gibi duruyor 70 item değilde 17 item yazıyor isterseniz sizde bir deneyin söylediğimi daha iyi anlayacaksınız

listbox da bulunan ***419 ile biten PO numarasını tıkladığınızda 70 kalem döküm oluşuyor ama bunun direk göstermesi için önce başka bir PO numarasına tıklamam gerekiyor sonra tekrar gelip 419â tıklamam gerekiyor o zaman düzeliyor ama arada yine takılıyor.

Muzaffer Ali · 9 Aralık 2021

ListViev_Click kodu aşağıdaki gibi olması gerekiyor.
Eğer zaten aynıysa dosyanızn son halini yeniden paylaşın.

Kod:

Private Sub ListBox1_Click()
    Worksheets("PO_LOG").Range("E2") = ListBox1.List(ListBox1.ListIndex, 0)
    ListView_Yukle
End Sub

Prgkolik · 9 Aralık 2021

Muzaffer Ali' Alıntı:
ListViev_Click kodu aşağıdaki gibi olması gerekiyor.
Eğer zaten aynıysa dosyanızn son halini yeniden paylaşın.

Kod:

Private Sub ListBox1_Click() Worksheets("PO_LOG").Range("E2") = ListBox1.List(ListBox1.ListIndex, 0) ListView_Yukle End Sub

Tekrar yükledim hocam

New_PO_Log_-_R3.xlsm dosyasını indir - download

New_PO_Log_-_R3.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Muzaffer Ali · 10 Aralık 2021

Windows dosyanızda trojen(virüs) buldu.

Prgkolik · 10 Aralık 2021

Muzaffer Ali' Alıntı:
Windows dosyanızda trojen(virüs) buldu.

nasıl yani imkan dahilinde değil şirket bilgisayarı bundan dolayı zaten benim herhangi birşey dışardan alabilmem mümkün değil

Prgkolik · 10 Aralık 2021

Muzaffer Ali' Alıntı:
Windows dosyanızda trojen(virüs) buldu.

şuan tarama yaptırdım bende birşey bulmadı hocam

Muzaffer Ali · 10 Aralık 2021

Ekran görüntüsü ekte.

Screenshots.zip dosyasını indir - download

Screenshots.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

Windows Defender buluyor.
Belki farkında değilsiniz ama bilgisayarınızda Trojen var.

Muzaffer Ali · 10 Aralık 2021

Önceki gönderinizde sorun yoktu ama bunda var.
Bu dosyayı başka birine gönderip tekrar geri aldınız mı belki gönderdiğiniz kişiden Trojen bulaşmış olabilir.

Prgkolik · 10 Aralık 2021

Muzaffer Ali' Alıntı:
Önceki gönderinizde sorun yoktu ama bunda var.
Bu dosyayı başka birine gönderip tekrar geri aldınız mı belki gönderdiğiniz kişiden Trojen bulaşmış olabilir.

Evet gönderdim ve geri aldım bu sizin aban yolladığınız dosya yani çok gariptir ki sizden gelen dosyada oldu bende öyle bir uyarı vermedi bilgisayarımda tarama da yaptırdım bu dosyada çıkmadı görünüşe göre sizde var sanırım

Prgkolik · 10 Aralık 2021

[/CODE]

Muzaffer Ali' Alıntı:
Önceki gönderinizde sorun yoktu ama bunda var.
Bu dosyayı başka birine gönderip tekrar geri aldınız mı belki gönderdiğiniz kişiden Trojen bulaşmış olabilir.

Muzaffer hocam kod aşağıdaki gibi dir.

Kod:

Dim rowlist As ListItem

Private Sub UserForm_Initialize()
    Dim Kolon As Integer
    For Kolon = 1 To 10
        ListView1.ColumnHeaders.Add , , Worksheets("PO_LOG").Cells(11, Kolon + 4)
        
    Next
    ListView_Yukle
End Sub

Private Sub UserForm_Activate()
    ListBox1.RowSource = ("DataPO_S!B2:B10002")
    ListBox3.ColumnCount = 50
    Label8.Caption = Worksheets("PO_LOG").Range("e2").Text
    Label9.Caption = Worksheets("PO_LOG").Range("h2").Text
    Label10.Caption = Worksheets("PO_LOG").Range("n2").Text
    Label11.Caption = Worksheets("PO_LOG").Range("R2").Text
    Label12.Caption = Worksheets("PO_LOG").Range("T2").Text
    Label13.Caption = Worksheets("PO_LOG").Range("u2").Text
    Label14.Caption = Worksheets("PO_LOG").Range("s2").Text
End Sub

Sub ListView_Yukle()
    With ListView1
        .ListItems.Clear
        For Rowitm = 12 To Worksheets("PO_LOG").Range("E" & Rows.Count).End(xlUp).Row
            If Worksheets("PO_LOG").Cells(Rowitm, "E").Text = "" Then Exit For
            Set rowlist = .ListItems.Add(, , Worksheets("PO_LOG").Cells(Rowitm, "E").Text)
            For colitm = 6 To 14
                rowlist.ListSubItems.Add , , Worksheets("PO_LOG").Cells(Rowitm, colitm).Text
            Next colitm
        Next
    End With
    
    End Sub

Private Sub CommandButton1_Click()
Dim w1 As Workbook
Dim s1 As Worksheet

Dim w2 As Workbook
Dim s2 As Worksheet
Dim dosya As Variant

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("DataPo_S")

With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Excel"
  .Title = "Dosya Seç"
  .ButtonName = "Search PO"
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*"
  .FilterIndex = 1
 
  If .Show = 0 Then
    Exit Sub
    Else
    dosya = .SelectedItems(1)
    End If

End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(dosya)
Set s2 = w2.Worksheets(1)

s1.Range("B1:M10000") = s2.Range("A1:L10000").Value

Application.ScreenUpdating = True
w2.Close

End Sub

Private Sub CommandButton2_Click()
Dim w1 As Workbook
Dim s1 As Worksheet

Dim w2 As Workbook
Dim s2 As Worksheet
Dim dosya As Variant

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("DataShip_S")

With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Excel"
  .Title = "Dosya Seç"
  .ButtonName = "Shipment Search"
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*"
  .FilterIndex = 1
 
  If .Show = 0 Then
    Exit Sub
    Else
    dosya = .SelectedItems(1)
    End If

End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(dosya)
Set s2 = w2.Worksheets(1)

s1.Range("B1:G10000") = s2.Range("A1:F10000").Value

Application.ScreenUpdating = True
w2.Close
End Sub

Private Sub CommandButton3_Click()
Dim w1 As Workbook
Dim s1 As Worksheet

Dim w2 As Workbook
Dim s2 As Worksheet
Dim dosya As Variant

Set w1 = ThisWorkbook
Set s1 = w1.Worksheets("DataPoLogReport")

With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Excel"
  .Title = "Dosya Seç"
  .ButtonName = "PoLogReport"
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xlsx, *.csv, *.xls, *.*xls*"
  .FilterIndex = 1
 
  If .Show = 0 Then
    Exit Sub
    Else
    dosya = .SelectedItems(1)
    End If

End With
Application.ScreenUpdating = False
Set w2 = Workbooks.Open(dosya)
Set s2 = w2.Worksheets(1)

s1.Range("C1:AT10000") = s2.Range("A1:AR10000").Value

Application.ScreenUpdating = True
w2.Close

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub ListBox1_Click()
Worksheets("PO_LOG").Range("E2") = ListBox1.List(ListBox1.ListIndex, 0)
ListView_Yukle
End Sub

Private Sub OptionButton1_Click()

ListBox1.RowSource = ("DataPO_S!B2:B10002")

End Sub

Private Sub OptionButton2_Click()

ListBox1.RowSource = ("DataPO_S!S2:S10002")

End Sub

Private Sub OptionButton3_Click()

ListBox1.RowSource = ("DataPO_S!T2:T10002")

End Sub

Muzaffer Ali · 10 Aralık 2021

Bana bilinçli olarak virüs gönderdiğinizi söylemiyorum, sizi suçlamıyorum ama istemeyerek te olsa oluyor bazen. Bilgisayara virüs bulaşabiliyor ve farkında olamayabiliyoruz.

Gönderdiğiniz kodları userformun kod kısmına kopyaladım uzun ve kısa listeler de dahil tümü listboxa tek tıklayınca listviewe listeleniyor. Herhangi bir sorun olmuyor bende.

Prgkolik · 10 Aralık 2021

Muzaffer Ali' Alıntı:
Bana bilinçli olarak virüs gönderdiğinizi söylemiyorum, sizi suçlamıyorum ama istemeyerek te olsa oluyor bazen. Bilgisayara virüs bulaşabiliyor ve farkında olamayabiliyoruz.

Gönderdiğiniz kodları userformun kod kısmına kopyaladım uzun ve kısa listeler de dahil tümü listboxa tek tıklayınca listviewe listeleniyor. Herhangi bir sorun olmuyor bende.

lütfen yanlış anlamayın bende sizden kaynaklı demiyorum yüklediğimiz yerde belki birşey vardır diye düşündüm. kullandığım sistemde şirket tarafından kontrol edildiğinden dolayı sıkıntı yaratacağını düşünmüyorum aktarım kısmında belki bir işlem olmuştur yada windows bazen bazı kodları sıkıntılı kod olarak görüyorda olabilir. benimde çok bilgim yok

sanırım arkada formül olarak listeyi aldığımdan dolayı sistem listeyi cok kücük yavaş getiriyor ondan önce sayfa yenilemesini yaptığından dolayı eksik kalıyor diye tahmin ediyorum

Muzaffer Ali · 10 Aralık 2021

Son gönderdiğiniz kodları 11. mesajda gönderdiğiniz dosyaya kopyaladım sorunsuz çalışıyor.
Eğer o dosya üzerinde bir değişiklik yaptıysanız sorun ondan kaynaklanıyor olabilir.

Prgkolik · 10 Aralık 2021

Muzaffer Ali' Alıntı:
b

anladım muzaffer hocam çok sağolun çok zorladım sizileri hakkınız helal edin. tablomda bulunan ikinci listbox'ı da listview yapacağım yatay şeklinde bir tablo olacak umarım sıkıntısız yapabilirim

Soru Userform ile hazırlanan ListView Yenileme Hatası

Muzaffer Ali

Destek Ekibi

Prgkolik

Muzaffer Ali

Destek Ekibi

Prgkolik

New_PO_Log_-_R3.xlsm dosyasını indir - download

Muzaffer Ali

Destek Ekibi

Prgkolik

Prgkolik

Muzaffer Ali

Destek Ekibi

Screenshots.zip dosyasını indir - download

Muzaffer Ali

Destek Ekibi

Prgkolik

Prgkolik

Muzaffer Ali

Destek Ekibi

Prgkolik

Muzaffer Ali

Destek Ekibi

Prgkolik