Kod:
Private Sub UserForm_Activate()
Dim i As Integer
listonay.ColumnHeads = True
listonay.MultiSelect = 1
listonay.ColumnCount = 11
listonay.ColumnWidths = "27;50;60;60;240;60;60;120;120;220;60"
listonay.RowSource = "TUTARSIZLIK!A2:K240" '
If listonay.ListCount = 0 Then Exit Sub
For i = 0 To listonay.ListCount = -1
If i Mod 2 = 0 Then
listonay.Selected(i) = True
End If
Next
listonay.Enabled = False
End Sub