Aşağıdaki kod ile Comboboxtan Listboxa veriler alınıyor. Ancak, Listbox'ta başlıklar da siliniyor. Başlıklar sabit kalacak şekilde kodu düzenleyebilir miyiz?
Private Sub cbkampanya_Change()
Dim s As Long, k As Byte
ListBox1.ColumnCount = 12
'ListBox1.Clear
ListBox1.RowSource = ""
'ListBox1.ControlSource = ""
ReDim myarr(0 To 12, 1 To 1)
For SUZ = 1 To Sheets("Data").Cells(65536, "B").End(xlUp).Row
If Sheets("Data").Range("B" & SUZ) Like cbkampanya & "*" Then
s = s + 1
ReDim Preserve myarr(0 To 12, 1 To s)
For k = 0 To 12
myarr(k, s) = Sheets("Data").Cells(SUZ, k + 1).Value
Next k
End If
Next
ListBox1.Column = myarr
End Sub
Private Sub cbkampanya_Change()
Dim s As Long, k As Byte
ListBox1.ColumnCount = 12
'ListBox1.Clear
ListBox1.RowSource = ""
'ListBox1.ControlSource = ""
ReDim myarr(0 To 12, 1 To 1)
For SUZ = 1 To Sheets("Data").Cells(65536, "B").End(xlUp).Row
If Sheets("Data").Range("B" & SUZ) Like cbkampanya & "*" Then
s = s + 1
ReDim Preserve myarr(0 To 12, 1 To s)
For k = 0 To 12
myarr(k, s) = Sheets("Data").Cells(SUZ, k + 1).Value
Next k
End If
Next
ListBox1.Column = myarr
End Sub