Makrosu ne olacak

[murtaza_sahin]

Aşağıdaki çalışmada s1.[X2]'e 2'den 4'e kadar 0.5 artışla (Bu değer cihazın yükseklik değeri) değerler verilerek hesap yapılıyor. Atamayı her bir worksheette s1.[X2] değerini değiştirerek ayrı ayrı yapıyorum. Hepsini tek sayfada alt alta toplamak istiyorum. Yardımcı olur musunuz?
Sub hesap20()
Set s1 = Sheets("Detail")
Set s2 = Sheets("H=2mt")

ens = s2.Cells(2, Columns.Count).End(xlToLeft).Column
boys = s2.Cells(Rows.Count, "B").End(3).Row

For boy = 3 To boys
For en = boy To ens
s1.[V2] = WorksheetFunction.Index(s2.Range(Cells(1, "B"), Cells(boys, "B")), boy)
s1.[W2] = WorksheetFunction.Index(s2.Range(Cells(2, "A"), Cells(2, ens)), en)
s1.[X2] = 2
sonuç = s1.[T7]
s2.Cells(boy, en) = sonuç
Next
Next
End Sub

 

 

[YUSUF44]

Lütfen örnek dosya paylaşın ve dosyada nasıl bir sonuç istediğinizi gösterin.