logo

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



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





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





look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
  28-05-2020 10:26 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس :
قوة السمعة : 423
الاعجاب : 3
عليكم السلام انا هحاول اساعد
هذا الكود اهدانى اياه استاذى العزيز استاذ سليم ربنا يحفظه
فيه الى حضرتك عايزاه بس يحتاج تعديل طبعا
لعله يفيدك
CODE
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






أثارت هذه المشاركة إعجاب: YasserKhalil، omhamzh،



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




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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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

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


أثارت هذه المشاركة إعجاب: omhamzh، YasserKhalil، ali mohamed ali، abouelhassan،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،



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





look/images/icons/i1.gif كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى
  14-06-2020 09:26 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10525
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36745
الاعجاب : 182
أخي العزيز أبا الحسن
يجب ألا تتداخل الموضوعات ، قم بطرح موضوع يخص طلبك بشكل مستقل حفاظاً على نظام المنتدى.

أثارت هذه المشاركة إعجاب: abouelhassan،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استدعاء بيانات ابوملك زكريا
4 151 ابوملك زكريا
اصلاح معادلات استدعاء بيانات ahmed moh
2 200 ahmed moh
المساعده فى استدعاء بيانات الطلاب saeyd11
13 3130 تاج الدين
طلب كود استدعاء بيانات فاتورة محمدعبدالسلام
2 1029 محمدعبدالسلام
كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة zahraamohamed
11 1300 سعد عابد

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









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

الساعة الآن 04:59 AM