[حل شده] کپی در شیت دیگر

[vafa.hasti]

سلام به همگی
خسته نباشید
در این فرمول اگر بخام به جای کپی کل سطر، فقط ستون اول و دوم و پنجم و بیست و پنجم در شیت دیگری در اولین سطر خالی کپی شود چکار کنم؟ میشه این کد رو به کد درخواستی بنده اصلاح بفرمایید. تشکر
CRange.EntireRow.Copy Destination:=Worksheets(Materials(Material)).Cells (Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)

[iranweld]

سلام به همگی
خسته نباشید
در این فرمول اگر بخام به جای کپی کل سطر، فقط ستون اول و دوم و پنجم و بیست و پنجم در شیت دیگری در اولین سطر خالی کپی شود چکار کنم؟ میشه این کد رو به کد درخواستی بنده اصلاح بفرمایید. تشکر
crange.entirerow.copy destination:=worksheets(materials(material)).cells (cells.rows.count, 1).end(xlup).offset(1, 0)

لطفا نمونه فایل را هم ضمیمه کنید تا تعریف crange مشخص شود

[vafa.hasti]

نمونه فایل خیلی سنگینه
کد اصلی این هستش
material list کلا یک ستون است
میخام 4 ستون مذکور اگر مقدارش بزرگتر از صفر بود بیاد

Sub MaterialReport()
Dim Materials As New Collection
Dim Material As Integer
Dim CRange As Range

For Each CRange In [MaterialList]
On Error Resume Next
Materials.Add Trim(CRange.Text)
Next CRange


For Material = 1 To Materials.Count

On Error Resume Next
Worksheets(Materials(Material)).Activate

If Err.Number <> 0 Then
With ActiveWorkbook.Worksheets.Add
.Name = Materials(Material)
[RangeTempate].Copy Destination:=.Range("A1")
End With
Else
Sheets(Materials(Material)).Cells.Clear
[RangeTempate].Copy Destination:=Cells(1)
End If

For Each CRange In [MaterialList]
If Trim(CRange.Text) = Materials(Material) Then
CRange.EntireRow.Copy Destination:=Worksheets(Materials(Material)).Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next CRange

Next Material
End Sub

در یادگیری سیر نشوید

[iranweld]

با سلام

لطفا فایل پیوست را چک کنید امیدوارم درست انجام شده باشد

For Each CRange In [MaterialList]
If CRange.Row = 1 And Trim(CRange.Text) = Materials(Material) Or _
CRange.Row = 2 And Trim(CRange.Text) = Materials(Material) Or _
CRange.Row = 5 And Trim(CRange.Text) = Materials(Material) Or _
CRange.Row = 25 And Trim(CRange.Text) = Materials(Material) Then
CRange.Copy Destination:=Worksheets(Materials(Material)).Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0)
End If 

[majid_mx4]

با سلام
ضمن تشکر از دوست عزیزم جناب آقای Iranweld که همیشه آماده و پاسخگو هستند.

دستورات ارسالی شما کمی گمراه کننده است
بنظر می رسد آنچه مورد نظر شماست این است که شما میخواهید از یک شیت با هر بار اجرای دستور فقط ستونهای 1و2و3و25 آن شیت به یک شیت خاص مثلا Material و آنهم زیر اخرین ردیف همان ستون ها(زیر اطلاعات ثبت شده قبلی ) اضافه گردد
اگر چنین است لطفا تایید فرمایید .
در غیر اینصورت توضیح بیشتری بدهید. ویا تیک حل شد را بزنید

با تشکر میر