الترحيل بدون الصفوف المخفية

[ahmed s metwally]

السلام عليكم ورحمة الله وبركاته

حياكم الله اخواني الكرام

مرفق ملف به كود يقوم بالترحيل ولكنه يقوم بترحيل الصفوف المخفية

اريد التعديل عليه بحيث انه يرحل بدون اي صفوف مخفية 

وجزاكم الله خيراً

test.xlsm

[Ali Mohamed Ali]

وعليكم السلام-يمكنك استخدلم الكود الموجود بملفك بهذا الكود

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

[ahmed s metwally]

تحياتي لك اخ علي 

الكود ممتاز ومتشكر جدا جدا 

[سليم حاصبيا]

بعد اذن الاخ علي 

كود من سطر واحد

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

 

[ahmed s metwally]

استاذ سليم متشكر جدا الكود ده نفع معايا كويس جدا بسبب انه بيرحل الخلايا المدمجة بنفس التنسيق

ولكن عندي سؤوال تاني استخدم الكود ده عشان امسح البيانات

sheet1.range("a1:y10000")=""

 

محتاج كود يعمل دليت للصفوف بحيث انه لا يحتفظ باي دمج بالخلايا

ولكم جزيل الشكر

 

[سليم حاصبيا]

28 دقائق مضت, ahmed s metwally said:

استاذ سليم متشكر جدا الكود ده نفع معايا كويس جدا بسبب انه بيرحل الخلايا المدمجة بنفس التنسيق

ولكن عندي سؤوال تاني استخدم الكود ده عشان امسح البيانات

sheet1.range("a1:y10000")=""

 

محتاج كود يعمل دليت للصفوف بحيث انه لا يحتفظ باي دمج بالخلايا

ولكم جزيل الشكر

 

هذا الكود لهذه الغاية

sheet1.range("a1:y10000").Clear

 

[ahmed s metwally]

شكرا جدا وجزاك الله خيرا