[حل شده] لطفا کمک کنید

[mostafa.ganji70]

سلام
توی این کد میخام بگم که برنامه بیاد و از شیت 2 تا هر چند تا یتی که وجود داره مقادیرسلول N32رو با هم جمع کنه و بزاره داخل سلول p40 در شیت یک
اما این فقط میاد و سلول N32اخرین شیت رو به عنوان مقدار P40قرار میده.ایرادش از کجاست؟؟
ممنونم

Sub mo()
Dim x As Integer
Dim i As Integer
For i = 2 To Sheets.Count
(("Sheets(1).Range("p40").Value = Application.WorksheetFunction.Sum(Sheets(i + 1).Range("n32
i = i + 1
Next i
End Sub

[iranweld]

با سلام

کد و فایل ذیل را تست کنید
شیت اول به اسم SUM تغییر نام یافت
در صورت جواب دادن آدرس سلولها رو متناسب با خواسته خود تغییر بدید

Sub mo()


Range("B2") = 0

For Each Sheet In Worksheets
If Sheet.Name <> "sum" Then
Sum = Sum + Sheet.Range("A1")
End If

Next

Range("B2") = Sum

End Sub 

[M_ExceL]

سلام
توی این کد میخام بگم که برنامه بیاد و از شیت 2 تا هر چند تا یتی که وجود داره مقادیرسلول N32رو با هم جمع کنه و بزاره داخل سلول p40 در شیت یک

سلام

Sub test()
Dim b As Integer
For i = 1 To Sheets.Count
b = Sheets(i).Range("N32") + b
Sheets(1).Range("p40") = b
Next i
End Sub