استاذنا اشكر حضرتك
الاستدعاء بيكون للمراجعة فى حالة الخطا وبيكون استدعاء من كل الصفحات التى تحمل نفس رقم المستند الذى لايتكرر
بيكون لكل البيانات التى سبق ترحيلها
بمعنى لو الصف الاول رحلنا للصفحة الاولى برقم مستند 1
والصف الثانى رحلنا للصفحة 10 بتنفس رقم المستند
والصف الثالث رحلنا للصفحة 12 بنفس المستند
الاستدعاء يحصر هذه البيانات لمراجعتها اذا تم توجيهها صح او غلط مع الشكر
انا عندى كود يعمل على فورم يؤدى هذه المهمة بيستدعى البيانات للفورم من الصفحات هل ارسله لحضرتك للاطلاع
عموما ها هو
CODE
Private Sub CommandButton6_Click()
On Error Resume Next
If TextBox101.Value = "" Then MsgBox " aktp rkm almstand", vbOKOnly, "stop": Exit Sub
x = TextBox101.Value + 0
For y = 1 To 15
Me.Controls("ComboBox" & y).Value = ""
Me.Controls("TextBox" & y).Value = ""
Next y
Me.Controls("TextBox12000").Value = ""
Me.Controls("ComboBox17").Value = ""
y = 0
LR = Sheets("ÊÑÍíá").[C1000].End(xlUp).Row
For Each ce In Sheets("tarhel").Range("C1:C" & LR)
With Sheets(ce.Value)
sht_LR = .[C20000].End(xlUp).Row
For rr = 5 To sht_LR
AY = WorksheetFunction.Sum(.Range("e" & rr & ":i" & rr))
If .Cells(rr, "C").Value = x Then
y = y + 1
If y = 1 Then
Me.Controls("TextBox12000").Value = ""
x_Loc = WorksheetFunction.Match(AY, .Range("e" & rr & ":i" & rr), 0)
Select Case x_Loc
Case 1: zz = "m1"
Case 2: zz = "m2"
Case 3: zz = "m3"
Case 4: zz = "m4"
Case 5: zz = "m5"
End Select
Me.Controls("ComboBox1") = zz
Me.Controls("ComboBox17").Value = .Cells(rr, "B")
End If
If y > 15 Then MsgBox "shetts akbar mk 15" & Chr(11) & "": Exit Sub
Me.Controls("ComboBox" & y + 1).Value = ce.Value
Me.Controls("TextBox" & y + 1).Value = AY
End If
Next
End With
Next
End Sub