أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند

الاساتذة الافاضل بهذا المنتدى الرائع ارجوا التكرم بالمساعدة فى كود استدعاء للبيانات لجدول من صفحات الملف من خلال كتاب ر ..



26-05-2020 11:41 صباحا
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 

الاساتذة الافاضل بهذا المنتدى الرائع 
ارجوا التكرم بالمساعدة فى كود استدعاء للبيانات لجدول من صفحات الملف من خلال كتاب رقم المستند
كل الشكر والتقدير
 
 
  ترحيل واستدعاء.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(17.589) KB


26-05-2020 03:06 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند
هل الاستدعاء سيكون لصف واحد فقط أم تريد الاستدعاء لكل الصفوف .. وما الغرض من الاستدعاء بهذا الشكل؟

26-05-2020 04:01 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند
استاذنا اشكر حضرتك
الاستدعاء بيكون للمراجعة فى حالة الخطا وبيكون استدعاء من كل الصفحات التى تحمل نفس رقم المستند الذى لايتكرر
بيكون لكل البيانات التى سبق ترحيلها
بمعنى لو الصف الاول رحلنا للصفحة الاولى برقم مستند 1
والصف الثانى رحلنا للصفحة 10 بتنفس رقم المستند 
والصف الثالث رحلنا للصفحة 12 بنفس المستند
الاستدعاء يحصر هذه البيانات لمراجعتها اذا تم توجيهها صح او غلط مع الشكر
انا عندى كود يعمل على فورم يؤدى هذه المهمة بيستدعى البيانات للفورم من الصفحات هل ارسله لحضرتك للاطلاع
عموما ها هو
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




الكلمات الدلالية
استدعاء ، بيانات ، جدول ، بواسطة ، كتابة ، المستند ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:33 صباحا