تعديل على كود

[احمد 505]

السلام عليكم

أرجوا التعديل على الكود هذا يا كرام

الكود الان يلصق من العمود e  الى  amr

المطلوب

يبدا اللصق من a

ويترك d + c

تم يلصق من e الى amr

Private Sub CommandButton2_Click()
ir = TextBox1.Text
yr = TextBox2.Text
Application.ScreenUpdating = False
ALLINFO.Unprotect "0"
  æÑÞÉ60.Range("e" & ir & ":amr" & ir).Copy
  ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial
  Application.CutCopyMode = False
    æÑÞÉ60.Range("a" & ir & ":amr" & ir).Delete
  Application.ScreenUpdating = True
  ALLINFO.Protect "0"
  MsgBox "Êã ÇáÇÓÊÑÌÇÚ", 64
UserForm2.Hide

End Sub

 

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

ارفع الملف نفسه لمعرفة اداء الكود وعدم ظهور احرف غريبة

[احمد 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