سلام
یک جدول مشخصات فردی در 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
لطفا راهنمایی نمائید
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.