با سلام خدمت اساتید محترم
من یه سری کد نوشتم ولی بین کار ارور میده میخواستم ببینم مشکل مربوط به کدام قسمت کدنویسی هستش:

(Sheet3.Cells(m, 3) = Sheet2.Cells(14, 2
For i = 2 To 13
t = 2
If Sheet2.Cells(i, 3) <> 0 Then
(u = Sheet2.Cells(i, 3
For j = 1 To 25
If Sheet4.Cells(1, 7 * j) = u Then
w = j - 1
For i = 3 To 5000
If Sheet4.Cells(1, 1 + 7 * w) <> 0 Then t = 1
next i
t = t + 1
(Sheet4.Cells(t, 1 + 7 * w) = Sheet2.Cells(2, 2
(Sheet4.Cells(t, 2 + 7 * w) = Sheet2.Cells(14, 2
(Sheet4.Cells(t, 4+ 7 * w) = Sheet2.Cells(i, 5
(Sheet4.Cells(t, 5 + 7 * w) = Sheet2.Cells(i, 6
End If
Next j
End If
Next i

پیشاپیش از زحمات شما تشکر میکنم
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.