راهنمایی جهت کپی و انتقال یک range

[khorasan66]

سلام
یک جدول مشخصات فردی در SHEET3 دارم که در ستون A شماره تلفن های همراه و ثابت ثبت شده اند
یک دستور لازم دارم که ردیفی که شماره تلفن های همراه را به SHEET2 منتقل کند
دستور برای انتقال اشکال دارد (( Sheet3.Range("A(c.Value):M(c.Value)").Value ))
Dim c
k2 = Cells(Rows.Count, "A").End(xlUp).Row
For Each c In Sheet3.Range("A2:A" & k2)
If c > Sheet1.Range("L7") And c < Sheet1.Range("L8") Then
Sheet2.Range(Sheet2.Range("A2").End(xlDown).Offset(1, 0), Sheet2.Range("A1").End(xlDown).Offset(1, 12)) = Sheet3.Range("A(c.Value):M(c.Value)").Value
End If
Next
لطفا راهنمایی نمائید

[mahdi2013]

سلام
ملاحظه بفرمایید


Sub CopyPaste()
Sheets("Sheet3").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Sheets("Sheet3").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

[majid_mx4]

با سلام

لطفا نمونه فایل ضمیمه کنید .

موفق باشید میر