كيفية عمل لصق للخلايا الظاهرة

[محمد بن عبيد ( عاشق عدن )]

نرجوا مساعدتي على عمل لصق من ملف اخر امام بعض الأرقام الظاهرة فقط والارقام المخفية لايتم فيها اللصق

 

مرفق الملف

 

شاكر تعاونكم

 

01.rar

[الـعيدروس]

اخي الكريم عاشق عدن

الافضل عدم تكرار موضوع

دام الموضوع السابق فعال
 

جرب الكود التالي

1 - اسم الملف الذي تريد نسخ البيانات منه

2- اسم الورقة

3- المدى

 

* تحديد المدى المراد لصق البيانات فيه

-----------------------------

For Each Rm In Range("E4:E" & B)

-----------------------------

عدل الثوابت السابق ذكرها في الكود

Public Sub Cp_Ali()
Dim Wb As Workbook
Dim Sh As Worksheet
Dim Rm As Range, Rn As Range
Dim B, R
Set Wb = Workbooks("2")
Set Rn = Wb.Sheets("sheet1").Range("A1:A34")
B = Rn.Rows.Count
R = Rn.Cells(1).Row
For Each Rm In Range("E4:E" & B)
 If Not Rm.Rows.Hidden = True Then
  Rm.Value = Rn.Cells(R, 1).Value
  R = R + 1
 End If
Next
End Sub