1-Çoklu yaparız. Ancak CheckBox ile olmaz, Listbox özelliğinden faydalanacağız.
2-Aktarma olayı tamam.
Kodlarınızı silip, aşağıdakileri yapıştırın;
Private Sub CommandButton1_Click()
Set Sayfa = Sheets("Ödeme")
Satir = Sheets("Ödeme").Range("B65530").End(3).Row
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Satir = Satir + 1
secilivar = True
For j = 0 To 7
Sayfa.Cells(Satir, j + 1) = .List(i, j)
Next
End If
Next i
End With
If secilivar = False Then MsgBox "Lütfen En Az Bir Tane Kayıt Seçiniz...."
End Sub
Private Sub UserForm_Initialize()
Sheets("Fatura").Select
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.ColumnWidths = "1;100;100;60;60;60;60;60;60"
ListBox1.RowSource = "A4:I" & [B65536].End(3).Row
ListBox1.ListStyle = fmListStyleOption
Sheets("Ödeme").Select
'[A4:I600].ClearContents
End Sub