ارجو مساعدتى فى تعديل هذا الكود لانه يقوم بترحيل كل الصفوف التى قبل الصف المطلوب ترحيله كما انه فى الورقة المرحل منها يترك الصفوف المرحلة فارغة ولا يتم ترحيل الصفوف اللى بعدها فى اماكن الصفوف المرحلة
Private Sub CommandButton3_Click()
Sheet2.Range("bj8").Value = Me.TextBox148.Text
Dim sahb As Integer
sahb = Sheet2.Range("bk8").Value
Dim answer As VbMsgBoxResult
answer = MsgBox("åá ÊÑíÏ ÓÍÈ ÇáØÇáÈ ÈÇáÝÚá", vbYesNo + vbCritical)
If answer = vbYes Then
listsource
Dim last5 As Integer
last5 = Sheet2.Range("a10000").End(xlUp).Row
Sheet2.Range("a8:bd" & sahb).Copy Sheet6.Range("a8:bd" & last5)
Sheet2.Range("a8:bd" & sahb).Clear
End If
End Sub
اخر بيانات2rr2.xlsm
