Private Sub Komut11_Click()
Dim Excl As Excel.Application
Dim KTP As Excel.Workbook
Dim SYF As Excel.Worksheet
Set Excl = CreateObject("Excel.Application")
Excl.Application.Visible = True
Set KTP = Excl.Workbooks.Open(CurrentProject.Path & "\asd.xlsm")
Set SYF = KTP.Worksheets("sayfa1") 'kopyalanacak sayfanın adı
SYF.Range("C1").Value = Me.TxtKopyalanacakAlan ' TxtKopyalanacakAlan sizin kopyalamayı istediğiniz veri
End Sub
'referanslara ==> Microsoft Excel xx.xobject library eklenmeli, " xx.x " yerine sizdeki ofise uygun sürüm olmalı