BUTONA KOD YAZMAK İSTİYORUM (yardım)

[ufkhlydlsnv]

BİR BUTON YAPIP BU BUTONA KOD YAZMAK İSTİYORUM AMA BECEREMEDİM BANA YARDIMCI OLURMUSUNUZ İLGİLENİRSENİZ ÇOK SEVİNİRİM şimdiden çok teşikkür ederim

 

[Orion1]

Dosyanız ekte.

Sub aktar()
Dim i As Long
Sheets("data").Select
Application.ScreenUpdating = False
With Sheets("liste")
    .Range("C8:C43,E8:E43").ClearContents
    For i = 1 To Cells(65536, "A").End(xlUp).Row
        .Cells(i + 7, "C").Value = Cells(i, "A").Value
        .Cells(i + 7, "E").Value = Cells(i, "B").Value
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, Application.UserName
End Sub