احمد 505

الاستاذ سليم
الملف كبير جدا
ولو اردت رفعة يجب احذ شيتات كيرة
ومربوطة بأكواد ممكن ما عاد تشتغل
المطلوب
النسخ
السطر السادس الي يبدا بـ (ورقة 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  
 
 
 

الاخ بن علية
 
اسف على تأخير الرد
 
ولكن طبقت المعادلة عندي على جدول ضخم
وتفحصته من ناحية عمل المعادلة
 
ولله الفضل والمنة
 
اشتغلت المعادلة 100%
 
الله يوفقك دنيا واخره
وينفعك بعلمك
وينفع بك وبعلمك المسلمين
 
اعتذر مجدداً على تأخير الرد
 
واشكرك شكراً جزيلاً