Kapalı Kitapta çarpma işlemi

[DeliBalta58]

Arkadaşlar;
C dizininde Ensar_Vs klasörü içinde "Ensar_Vs", "maas.xls" ve "personel.xls" var

Ensar_Vs Çalıştırıldığında Userforma kayduğum buton vasıtası ile

maas.xls kitabına

ChDrive ("C:")
Workbooks.Open Filename:="C:\Ensar_V2\maas.xls"
Workbooks.Open Filename:="C:\Ensar_V2\personel.xls"
Set per = Workbooks("personel").Worksheets("sayfa1")
Set maas = Workbooks("maas").Worksheets("sayfa1")
say = WorksheetFunction.CountA(Workbooks("personel").Worksheets("sayfa1").Range("a1:a65000"))
sayi = 1
For i = 1 To say
maas.Cells(sayi, 1) = per.Cells(sayi, 1) 'sıra No
maas.Cells(sayi, 2) = per.Cells(sayi, 2) 'Adı Soyadı
sayi = sayi + 1
Next i

formülü ile sıra no ve adı soyadını aktardım
" =YUVARLA(TOPLA(a1*b1);2) " böyle bir formülü

per.Cells(sayi, 15) ile

Worksheets("kurum").Cells(216, 21)
verilerinin çarpımı için ayarlayabilirmiyiz