listbox a bilgi aktar

[ulutanas]

arkadaşlar ekli dosyamda ufak bir sorunum var yardımcı olurmusunuz lütfen. teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim i As Long, a As Long
ListBox1.Clear
ReDim myarr(1 To 14, 1 To 1)
On Error Resume Next
With Sheets("FİRMA RAPORU")
    For i = 5 To .Cells(65536, "C").End(xlUp).Row
        If .Cells(i, "C").Value = ComboBox1.Value Then
            a = a + 1
            ReDim Preserve myarr(1 To 14, 1 To a)
            For k = 1 To 14
                myarr(k, a) = .Cells(i, k).Value
            Next k
        End If
        myarr(1, a) = Format(.Cells(i, "A").Value, "dd.mm.yyyy")
        myarr(14, a) = Format(.Cells(i, 14).Value, "dd.mm.yyyy")
        
    Next i
End With
ListBox1.Column = myarr
End Sub

 

[ulutanas]

evren hocam dosyayı indiremiyorum tekrar gönderebilirmisiniz. teşekkür ederim

 

[ulutanas]

evren hocam ben yazdığınız kodları dosyaya aktardım ama sonuç vermiyor benim yolladığım dosyayıda güncelledim. birkez daha kontrol edebilirmisiniz rica etsem.

 

[ulutanas]

arkadaşlar dosyayı inceleyeblirmisiniz lütfen.

 

[Orion1]

evren hocam dosyayı indiremiyorum tekrar gönderebilirmisiniz. teşekkür ederim

Dosyayı indirdim.Bir problem yok.

 

[ulutanas]

evren hocam dosyayı indirdim çok güzel olmuş yardımınız için teşekkür ederim.

 

[Orion1]

evren hocam dosyayı indirdim çok güzel olmuş yardımınız için teşekkür ederim.

Rica ederim.
İyi çalışmalar.