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

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


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





كود ترحيل بقائمتين منسدلتين

السلام عليكم انا جديد معكم تعرفت على المنتدى من اليوتيوب اطمع بوجود اجابة لطلبى احتاج كود ترحيل بقائمتين منسدلتين واحدة ..



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

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

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

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


 
 
  ترحيل واستدعاء.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(17.589) KB


26-05-2020 09:42 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
وعليكم السلام أخي الكريم أبو الحسن وأهلاً بك في المنتدى
يراعى عند طرح موضوع التركيز على طلب واحد فقط مراعاة لوقت الأعضاء ولأنه من تعليمات المنتدى التركيز في طلب واحد فقط في الموضوع ، ويمكنك طرح ما شئت من موضوعات
جرب الكود التالي للترحيل .. 

Sub Test()
    Dim x, ws As Worksheet, sh As Worksheet, sName As String, lr As Long, r As Long, m As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        lr = ws.Cells(25, 1).End(xlUp).Row
        For r = 3 To lr
            sName = CStr(ws.Cells(r, 5).Value)
            If Evaluate("ISREF('" & sName & "'!A1)") Then
                Set sh = ThisWorkbook.Worksheets(sName)
                m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
                x = Application.Match(ws.Range("G2").Value, sh.Rows(1), 0)
                If Not IsError(x) Then
                    sh.Cells(m, 1).Resize(1, 4).Value = ws.Cells(r, 1).Resize(1, 4).Value
                    sh.Cells(m, x).Value = ws.Cells(r, 6).Value
                End If
            End If
        Next r
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub


أما بخصوص الاستدعاء فيستحب طرح موضوع جديد ليشارك فيه الأعضاء
تقبل تحياتي

26-05-2020 11:35 صباحا
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
الله يفتح عليك استاذ ياسر والله الله يحفظك
هذا هو المطلوب تمام اشكرك من كل قلبى
حاضر استاذى هعمل موضوع جديد للاستدعاء كل الشكر والتقدير 
بارك الله لك وبك استاذ ياسر 

26-05-2020 02:32 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير
الفكرة في طرح موضوع جديد ألا تتداخل الموضوعات وفي نفس الوقت تجد مشاركين للموضوع الجديد ، حيث أنني قد أكون غير متاح لبعض الوقت أنا أو غيري.
الحمد لله الذي بنعمته تتم الصالحات

26-05-2020 04:53 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
حسب ما فهمت من السؤال مطلوب هذا الكود

Option Explicit
Dim Targ      As Worksheet
Dim Source      As Worksheet
Dim lr          As Long
Dim AR_Sh()
Dim I%, M%, Col%, X%
'+++++++++++++++++++++++
Private Sub Worksheet_Activate()
dataval
End Sub
'++++++++++++++++++++++++++++

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
 If (Target.Address = "$E$2" Or Target.Address = "$G$2") And _
 Target.Count = 1 Then
 CoypFilteredData
 End If
  Application.EnableEvents = True
End Sub
'++++++++++++++++++++++++++++++++++


Sub dataval()
M = 1
Set Targ = Sheets("ترحيل واستدعاء")
For I = 1 To Sheets.Count
If Sheets(I).Name Like "#*" Then
 ReDim Preserve AR_Sh(1 To M)
  AR_Sh(M) = Sheets(I).Name
  M = M + 1
  End If
  Next
With Targ.Cells(2, 5).Validation
.Delete
.Add 3, Formula1:=Join(AR_Sh, ",")
End With
End Sub
Sub CoypFilteredData()
Dim FLt_sh As Worksheet
M = 4
Set Targ = Sheets("ترحيل واستدعاء")
X = Targ.Range("A25").End(3).Row
If X < 4 Then X = 4
 Targ.Range("A4:G" & X).ClearContents
 If Targ.Range("E2") = vbNullString Or _
    Targ.Range("G2") = vbNullString Then Exit Sub

Set FLt_sh = Sheets(CStr(Targ.Cells(2, 5)))
 
 lr = FLt_sh.Cells(Rows.Count, "A").End(xlUp).Row
 
 Col = FLt_sh.Range("E1:N1"). _
 Find(Targ.Cells(2, "G"), lookat:=1).Column
 
 Targ.Cells(M, 1).Resize(lr - 1, 4).Value = _
 FLt_sh.Cells(2, 1).Resize(lr - 1, 4).Value
 
 Targ.Cells(M, "E").Resize(lr - 1).Value = _
 FLt_sh.Name
 
 Targ.Cells(M, "G").Resize(lr - 1).Value = _
  FLt_sh.Cells(2, Col).Resize(lr - 1).Value
  
  Targ.Cells(M, "F").Resize(lr - 1).Value = _
 FLt_sh.Cells(2, "O").Resize(lr - 1).Value
End Sub


الملف يعمل بمجرد اختياراسم الشيت والعامود M
 
 
  Tarhil_M_SH.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(38.746) KB


26-05-2020 06:35 مساء
مشاهدة مشاركة منفردة [5]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
بارك الله فيك استاذنا سليم كل الشكر والتقدير 
الله يرضى عنك اللهم امين
استاذنا سليم الله يحفظك الله ينور هذا الكود يقوم بالاستدعاء بمجرد ما اختار اسم الشيت واسم العمود
تمام احتاج تعديل عليه ليستدعى البيانات مجرد ما اكتب رقم المستند يحضر البيانات من الصفحات
بنفس الفكرة ويحضر اسم الشيت ويحضر اسم العمود 
ربنا يحفظك يارب ويبارك لك

27-05-2020 11:32 صباحا
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود ترحيل بقائمتين منسدلتين
تم التعديل بأكثر ما تريد
اذا يمكنك البحث عن طرق الشيت / عن طريق الرقم المستند / عن طريق الــ M
اذا لم تظهر القوائم المنسدلة غادر الصفحة ثم ارجع اليها (لأن كود القوائم يعمل عل حدث تنشيط الصفحة)
 
 
  Tarhil_By_Data_SH.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(45.847) KB





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


 










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

الساعة الآن 04:11 صباحا