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

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


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





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

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



27-05-2020 11:17 مساء
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 

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


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

Sub Trasfer_data_Special()
  Dim R          As Worksheet, Act_sh As Worksheet
  Dim k%, col%, Ro%
  Dim Max_ro%, x%, y%
  Dim Bol        As Boolean
  Dim ST_Dat     As Date
  Dim End_Dat    As Date
  Dim My_sum#
  Dim Mot$
  
Mot = "ÇáÇÌãÇáì"

Set R = Sheets("Report_Youmi")
Ro = R.Cells(Rows.Count, 1).End(3).Row
R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents
R.Cells(3, 9).Resize(Ro - 2).ClearContents
ST_Dat = Application.Min(R.Range("I2:J2"))
End_Dat = Application.Max(R.Range("I2:J2"))

For k = 3 To Ro - 2

      Bol = Application.Evaluate _
        ("ISREF('" & R.Range("A" & k) & "'!A1)")
    If Bol Then
        Set Act_sh = Sheets(R.Range("A" & k) & "")

        Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row
        For y = 3 To 7
            For x = 5 To Max_ro

                If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _
                   CDate(Act_sh.Cells(x, 1)) <= End_Dat And _
                   Act_sh.Cells(x, 2) <> Mot Then
                   My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _
                     Act_sh.Cells(x, y + 2), 0)

               End If
               
            Next x
            R.Cells(k, y).Value = IIf(My_sum = 0, "", My_sum): My_sum = 0
       Next y
    End If
Next k
'+++++++++++++++++++++++++++++++++

R.Cells(Ro - 1, 3).Resize(, 5).Formula = _
"=Sum(C$4:C$" & Ro - 2 & ")"
R.Cells(Ro, 3).Resize(, 5).Formula = _
"=Sum(C$7:C$18)"

R.Cells(3, 9).Resize(Ro - 3).Formula = _
"=IF(COUNTA($C3:$G3)>0,SUM($C3:$G3),"""")"
R.Cells(Ro, 9).Formula = _
"=SUM(C" & Ro & ":G" & Ro & ")"

R.Range("A3:I" & Ro).Value = _
R.Range("A3:I" & Ro).Value
'ÑÓÇáÉ ÈÇáÈíÇäÇÊ ÇáãÑÍáÉ

MsgBox ("Êã ÇÓÊÏÚÇÁÇáÈíÇäÇÊ")
End Sub






11-06-2020 09:19 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
هل تمت تجربة كود الأخ الكريم أبو الحسن ؟؟ يرجى الرد على اجابته وعدم التجاهل ..

11-06-2020 09:30 مساء
مشاهدة مشاركة منفردة [3]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
استاذى واخى الغالى 
استاذ سليم ربنا يكرمه مدنى بمعادلات ولكن المعادلات مغلبانى جداااا
والاستاذ ابو الحسن مشكور جدااااا اخى
لو امكن كود لاحضارالبيانات بالتاريخ اكون شاكرة فضلكم
 

11-06-2020 11:38 مساء
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
عندما كتبت لك كود بهذا الموضوع اردتي ان تعملي على المعادلات 
بردو أدرجت كل المعادلات اللازمة (الوقت ليس لك وحدك)
  والآن لماذا تغيرين رأيك؟؟
ليست المرة الاولى التي أقول فيها
لا ترفعي ملفات بدون بيانات(سطرين لا يكفيان و لست ملزماً بادراج بيانات ولو كانت عشوائية )
ولا تستعملي اللغة العربية لتسمية الشيتات
تم وضع الكود اللازم
الكود

Option Explicit

Sub My_Summation()
Dim R As Worksheet, Sh As Worksheet
Dim Date1 As Date, Date2 As Date
Dim K%, Ro_r%, Ro_sh%, x%, col%, t%
Dim Look_Range As Range, Bol As Boolean
Dim My_sum#

Set R = Sheets("Repport")
Date1 = Application.Min(R.Range("d2:e2"))
Date2 = Application.Max(R.Range("d2:e2"))
Ro_r = R.Cells(Rows.Count, 1).End(3).Row

For K = 2 To 3
    Set Sh = Sheets(R.Cells(1, K) & "")
    Sh.Range("A1").CurrentRegion.Interior.ColorIndex = xlNone
    Set Look_Range = Sh.Range("A1:Ac1")
    Ro_sh = Sh.Cells(Rows.Count, 1).End(3).Row
        For x = 2 To Ro_r - 1
            If Not Bol Then
            col = Look_Range.Find(R.Cells(x, 1), lookat:=1).Column
            Bol = True
            End If
          
          For t = 2 To Ro_sh
            If Sh.Cells(t, 1) >= Date1 And Sh.Cells(t, 1) <= Date2 Then
             My_sum = My_sum + Val(Sh.Cells(t, col))
             Sh.Cells(t, col).Interior.ColorIndex = 35
            End If
          Next t
          R.Cells(x, K) = My_sum: My_sum = 0: Bol = False
       Next x
Next K
End Sub


الملف مرفق
 
 
  MenHo_Laho.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(28.575) KB


11-06-2020 11:46 مساء
مشاهدة مشاركة منفردة [5]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
حاضر والله
حضرتك عبقرى
ايه الحلاوة دى اقسم بالله حاجة حلوة جدااااااااااااااااااااااااااااااااا
يا استاذ انت استاذ ورئيس قسم ومبرمج من الطراز الاول وكل حاجة حلوة اقسم بالله اخى
شكر مصحوب بالدعاء ومعه خجل من كرمك عليا جدا بجدا انا مش عارفة اشكرك ونفسى ارد جمايلك عليا والله
ربنا يكرمك انت بتكرمنى وانا بدعي لك من قلبى والله 
حضرتك جمايلك على راسى يا استاذ سليم يا محترم جداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

 

14-06-2020 09:22 مساء
مشاهدة مشاركة منفردة [6]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
استاذى سليم حفظك الله اريد الاستفادة من هذا الملف الرائع فى شيت متابعة مخزن
باضافة عمودين رصيد سابق منه ورصيد سابق له فى صفحة Repport
بحيث عند كتابة تاريخ فى الخلية الاولى من والخلية الى
يحضر كل البيانات التى قبل التاريخ الاول فى منه وفى له ليكون الرصيد السابق
يعنى لو كنا كاتبين تاريخ من 15/8/2020 الى 15/9/2020 يحضر بيانتهم كما يفعل الان اضافة ال كل التواريخ التى قبل 15/8/202 فى منه وفى له لتكون الرصيد السابق
لو امكن يبقى اكثر الله خيرك الصراحة الملف ينفع كل المحاسبين جداااااااااااا وبميزان حسناتك ان شاء الله
احترامى اخيك
 
 
  MenHo_Laho.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(28.479) KB





الكلمات الدلالية
بموديول ، استدعاء ، بيانات ، صفحة ، وصفحة ، بتاريخ ،


 










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

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