fimani119
2018/11/10, 10:30
سلام وقت بخیر
میخوام یه ماکرو بنویسم که در 12 شیت مختلف که تعداد ماه های سال هست و با متغیر k تعریف شده از یک ستون شماره پرسنلی کارمندان رو پیدا کنه و در یک شیت جداگانه که شیت 13 ام میشه ستون های مربوط به مبلغ و امتیاز همون کارمند رو در سطر مربوطش وارد کنه . کدی که نوشتم به صورت زیر هست
Sub Macro1()
For k = 1 To 12
For i = 4 To 65
For j = 9 To 75
28 For m = 4 To
If Sheet7.Cells(i, 1) = Sheetk.Cells(j, 4) Then
(Sheet7.Cells(i, m) = Sheetk.Cells(j, 14
(Sheet7.Cells(i, m + 1) = Sheetk.Cells(j, 15
End If
Next k
Next m
Next j
Next i
End Sub
توضیح اینکه i تعداد شماره سطرها در شیت ماه های مختلف هست و j شماره سطرها در شیت نهاییمون که قراره داده ها در ستون های شماره 5 تا 28 اش که متغیر m امون هست بشینن.
مشکلم در کد بالا نحوه آدرس دهی شیت هست که ازم ارور میگیره.
ممنون میشم راهنمایی کنید.
میخوام یه ماکرو بنویسم که در 12 شیت مختلف که تعداد ماه های سال هست و با متغیر k تعریف شده از یک ستون شماره پرسنلی کارمندان رو پیدا کنه و در یک شیت جداگانه که شیت 13 ام میشه ستون های مربوط به مبلغ و امتیاز همون کارمند رو در سطر مربوطش وارد کنه . کدی که نوشتم به صورت زیر هست
Sub Macro1()
For k = 1 To 12
For i = 4 To 65
For j = 9 To 75
28 For m = 4 To
If Sheet7.Cells(i, 1) = Sheetk.Cells(j, 4) Then
(Sheet7.Cells(i, m) = Sheetk.Cells(j, 14
(Sheet7.Cells(i, m + 1) = Sheetk.Cells(j, 15
End If
Next k
Next m
Next j
Next i
End Sub
توضیح اینکه i تعداد شماره سطرها در شیت ماه های مختلف هست و j شماره سطرها در شیت نهاییمون که قراره داده ها در ستون های شماره 5 تا 28 اش که متغیر m امون هست بشینن.
مشکلم در کد بالا نحوه آدرس دهی شیت هست که ازم ارور میگیره.
ممنون میشم راهنمایی کنید.