Arkadaşlar aşağıda ufak bir makro kodu yazdım ancak bir türlü işin içinden çıkamadım farklı workbookların, farklı sheetlerindeki verileri birbiriyle çarptırmak istiyorum.BUnun için ilk önce workbooklar için referans oluşturmaya çalıştım ikinci olarak bir sheetin çarpımı bittikten sonra diğer sheete geçmesi için bir sayaç oluşturmaya çalıştım ancak başarılı olamadım sanırım konuya dair ACİL yardımlarınızı bekliyorum.
Sub macro()
Dim a, c, e As Long
flt = "C:\Flights.xls"
wrk = "C:\Work.xls"
std = "C:\Standard.xls"
Workbooks.Open Filename:=flt, UpdateLinks:=0
Workbooks.Open Filename:=wrk, UpdateLinks:=0
Workbooks.Open Filename:=std, UpdateLinks:=0
a = 54
c = 1
e = 7
Do While c < 71
For b = 5 To 1003
For d = 7 To 76
Workbook(wrk).Sheets(c).Cells(b, d).Value = Workbook(flt).Sheets("flt").Cells(b, a).Value * Workbook(std).Sheets(c).Cells(b, e).Value * std.Sheets(c).Cells(b, e + 1).Value
a = a + 1
e = e + 2
Next d
Next b
c = c + 1
Loop
End Sub
Sub macro()
Dim a, c, e As Long
flt = "C:\Flights.xls"
wrk = "C:\Work.xls"
std = "C:\Standard.xls"
Workbooks.Open Filename:=flt, UpdateLinks:=0
Workbooks.Open Filename:=wrk, UpdateLinks:=0
Workbooks.Open Filename:=std, UpdateLinks:=0
a = 54
c = 1
e = 7
Do While c < 71
For b = 5 To 1003
For d = 7 To 76
Workbook(wrk).Sheets(c).Cells(b, d).Value = Workbook(flt).Sheets("flt").Cells(b, a).Value * Workbook(std).Sheets(c).Cells(b, e).Value * std.Sheets(c).Cells(b, e + 1).Value
a = a + 1
e = e + 2
Next d
Next b
c = c + 1
Loop
End Sub