ادراج صفوف ونقل معادلات وتنسيقات .. بالعدد

[ياسر خليل أبو البراء]

أخي الكريم ناصر

ارفق الملف المراد العمل عليه وارفق شكل الفورم المطلوب وكيفية تنفيذه ليسهل تقديم المساعدة من قبل إخوانك بالمنتدى ...الطلب بشكل عام لا ولن يفيد

[ناصر سعيد]

جزاك الله خيرا استاذ ياسر

اولا هذا هو الكود

Private Sub CommandButton1_Click()
If TextBox1.Text = Sheets("بيانات الطلبة").Range("Z1") Then
Me.Hide
TextBox1.Text = ""
MsgBox "كلمة المرور صحيحة و سيتم تنفيذ المطلوب"
    Application.ScreenUpdating = False
    
    
 
    
    CopyRow "بيانات الطلبة", 7, 22
    CopyRow "إنجاز1", 7, 26
    CopyRow "رصد الترم الأول", 7, 108
    CopyRow "أعمال السنة", 7, 26
    CopyRow "رصد الترم الثانى", 7, 189
    CopyRow "كنترول شيت", 11, 189
    Range("A1").Activate
 
 




'إلغاء تحديث الشاشة
' (الغاء مشاهدة تنفيذ الماكرو)
        Application.ScreenUpdating = False

    Dim Ws As Worksheet
    Dim cnt As Long
    

    'سطر لتفادي حدوث خطأ في حالةأن الخلايا
        ' التي سيتم مسحها أي الخلايا الثابتة كانت فارغة
    On Error Resume Next
    
        Set Ws = Sheets(sSheet)

    On Error GoTo 0

    If Ws Is Nothing Then
        MsgBox "ورقة " & sSheet & " غير موجودة.", vbExclamation, "Sheet Not Found!"
        Exit Sub
    End If
    
    
 '[B10] تعيين قيمة للمتغير ليساوي قيمة الخلية
  'من صفحة بيانات المدرسة
    cnt = Sheets("بيانات المدرسة").Range("B10").Value

    Ws.Range(Ws.Cells(sRow, 1), Ws.Cells(sRow, LC)).Copy
    Ws.Range("A" & sRow).Resize(cnt).PasteSpecial xlPasteAll
    On Error Resume Next
    
   ' يقوم بمسح الخلايا الثابتة في النطاق المنسوخ بحيث
      ' يبقى على المعادلات والتنسيق فقط ويزيل ما دون ذلك
    Ws.Range("A" & sRow).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents
    Application.CutCopyMode = False




    ' تحديث الشاشة
        Application.ScreenUpdating = True

Unload Me
Else
MsgBox "عفوا كلمة المرور خاطئة و لن يتم تنفيذ المطلوب"
TextBox1.Text = ""
TextBox1.SetFocus
End If
End Sub




Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

وهذا كود و شكل الفورمة

http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=110537

وهذا هو الملف

ادراج عدد محدد من الصفوف بصيغ الصف الحالى فى اوراق محددة2.rar

شكراا لله اولا ثم شكرا لك اخي استاذ ياسر

 جزاك الله خيراااا

تم تعديل أبريل 7, 2016 بواسطه ناصر سعيد
خطأ لغوي

[ناصر سعيد]

يوجد بالملف زر لاظهار السري .. اضغط عليه مرة وشوف  .. عايزين نعمل زي كده

لايوجد باسوورد في زر اظهار السري