Aşağıdaki kodları deneyiniz.Bundan sonra formumuzdan yararlanabilmek için lütfen form kurallarına uyunuz.
Kod:
Private Sub CommandButton1_Click()
Selection.EntireRow.Cut
Sheets("Sayfa2").Select
Range("a1").Select
ActiveSheet.Paste
Sheets("Sayfa1").Select
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!A2:B100"
ListBox1.ColumnCount = 4
ListBox1.ColumnHeads = True
ListBox1.ColumnWidths = "50;100"
End Sub
Private Sub ListBox1_Click()
On Error Resume Next
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("A" & ListBox1.ListIndex + 2).Select
End If
Next
End Sub