الاستاذ سليم
الملف كبير جدا
ولو اردت رفعة يجب احذ شيتات كيرة
ومربوطة بأكواد ممكن ما عاد تشتغل
المطلوب
النسخ
السطر السادس الي يبدا بـ (ورقة 60) ارجوا
يبدا النسخ من a وليس من e
تم ينسخ من e الى amr
واللصق
السطر السابع الي يبدا بـ (ALLINFO)
يبدا اللصق من a
ويترك d + c
تم يلصق من e الى amr
شكرا لتجاوبكم أستاذي الكريم
Private Sub CommandButton2_Click()
ir = TextBox1.Text
yr = TextBox2.Text
Application.ScreenUpdating = False
ALLINFO.Unprotect "0"
.Range("e" & ir & ":amr" & ir).Copyورقة 60
ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial
Application.CutCopyMode = False
.Range("a" & ir & ":amr" & ir).Deleteورقة 60
Application.ScreenUpdating = True
ALLINFO.Protect "0"
64 "تم الاسترجاع", MsgBox
UserForm2.Hide
end sub
