ahmed s metwally قام بنشر يونيو 17, 2019 مشاركة قام بنشر يونيو 17, 2019 السلام عليكم ورحمة الله وبركاته حياكم الله اخواني الكرام مرفق ملف به كود يقوم بالترحيل ولكنه يقوم بترحيل الصفوف المخفية اريد التعديل عليه بحيث انه يرحل بدون اي صفوف مخفية وجزاكم الله خيراً test.xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 17, 2019 مشاركة قام بنشر يونيو 17, 2019 وعليكم السلام-يمكنك استخدلم الكود الموجود بملفك بهذا الكود Private Sub CommandButton1_Click() Dim rngCopy As Range With Worksheets("Sheet1") Set rngCopy = .Range("b7:H" & .Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) End With rngCopy.Copy With Worksheets("Sheet2") .Activate .Range("B2").Activate .Paste Link:=True End With End Sub Transfer Data Without Hide Rows.xlsm 2 رابط هذا التعليق شارك More sharing options...
ahmed s metwally قام بنشر يونيو 17, 2019 الكاتب مشاركة قام بنشر يونيو 17, 2019 تحياتي لك اخ علي الكود ممتاز ومتشكر جدا جدا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 17, 2019 أفضل إجابة مشاركة قام بنشر يونيو 17, 2019 بعد اذن الاخ علي كود من سطر واحد Private Sub ترحيل_Click() Sheets("Sheet1").Range("b7").CurrentRegion.SpecialCells(12).Copy _ Sheets("Sheet2").Range("b7").Offset(Sheets("Sheet2") _ .Range("b7").CurrentRegion.Rows.Count) MsgBox "تم الترحيل" End Sub رابط هذا التعليق شارك More sharing options...
ahmed s metwally قام بنشر يونيو 18, 2019 الكاتب مشاركة قام بنشر يونيو 18, 2019 استاذ سليم متشكر جدا الكود ده نفع معايا كويس جدا بسبب انه بيرحل الخلايا المدمجة بنفس التنسيق ولكن عندي سؤوال تاني استخدم الكود ده عشان امسح البيانات sheet1.range("a1:y10000")="" محتاج كود يعمل دليت للصفوف بحيث انه لا يحتفظ باي دمج بالخلايا ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 18, 2019 مشاركة قام بنشر يونيو 18, 2019 28 دقائق مضت, ahmed s metwally said: استاذ سليم متشكر جدا الكود ده نفع معايا كويس جدا بسبب انه بيرحل الخلايا المدمجة بنفس التنسيق ولكن عندي سؤوال تاني استخدم الكود ده عشان امسح البيانات sheet1.range("a1:y10000")="" محتاج كود يعمل دليت للصفوف بحيث انه لا يحتفظ باي دمج بالخلايا ولكم جزيل الشكر هذا الكود لهذه الغاية sheet1.range("a1:y10000").Clear رابط هذا التعليق شارك More sharing options...
ahmed s metwally قام بنشر يونيو 18, 2019 الكاتب مشاركة قام بنشر يونيو 18, 2019 شكرا جدا وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان