أرجوا المساعدة في حل هذه المشكلة على الفورم وكود الترحيل

[حاتم عيسى]

بسم الله الرحمن الرحيم

الأساتذة الأفاضل ( مشرفي - رواد ) المنتدى العظيم أوفيسنا

تحية طيبة ... ويعد

هل من الممكن التعديل على الأتي :

1- كود الترحيل حتى يتم ترحيل كافة البيانات الموجودة في صفحة البيانات إلى الصفحات الخاصة بأساماء الإدارات على حسب اسم الادارة الموجود في العمود (B) وهل من الممكن وضع زر الترحيل في النموذج الأول الخاص بتسجيل البيانات .

2- التعديل على كود زر الإحصاءات الموجود في الورم الأول للانتقال إلى الفورم الخاص بالإحصاءات والعودة تسجيل البيانات الأساسية الموجود في الفورم الخاص بالإحصاءات .

3- التعديل على كود زر نموذج تسجيل البيانات الأساسية الموجود في الفورم الخاص بالإحصاءات للعودة إلى فور البيانات الرئيسية والعودة من زر الإحصاءات .

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

بارك الله فيكم جميعا ونفعكم بعلمكم وجعل جميع أعمالكم في موازين حسناتكم .

الصور التوضيحية للمطلوب :-

 

العجز والزيادة للمديرية 1.part1.rar

العجز والزيادة للمديرية 1.part2.rar

العجز والزيادة للمديرية 1.part3.rar

العجز والزيادة للمديرية 1.part4.rar

تم تعديل يوليو 27, 2016 بواسطه حاتم عيسى
إضافة نسخة من الملف للعمل عليها

[حاتم عيسى]

أرجوا من سيادتكم التعديل على هذا الكود حتى يتم مسح البيانات من الصفحات المرحل إليها قبل الترحيل حتى لا يكون هناك تكرار في البيانات

Sub Macro1()
'
Dim r As Long, d As Long, r1 As Long
r = Sheets(2).Range("a" & Rows.Count).End(xlUp).Row
For d = 4 To r
r1 = Sheets(Range("C" & d).Value).Range("c" & Rows.Count).End(xlUp).Row
Sheets(Range("C" & d).Value).Range("B" & r1 + 1).Resize(1, 31) = Sheets(2).Range("d" & d).Resize(1, 31).Value
Next
MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية"
'
End Sub

 

[الشهابي]

أخي العزيز / حاتم عيسى
 قمت ببعض التعديلات في الملف على النحو التالي : 
1- إعادة تسمية أوراق الإدارة المطلوب الترحيل إليها بنفس التسمية الموجودة في العمود (B) 
فمثلا ورقة ( شرق طنطا ) تم تغير اسمها إلى ( إدارة شرق طنطا التعليمية ) وهكذا بقية الأوراق
وذلك حتى يتم الترحيل حسب اسم الشيت بشكل مضبوط 
2-  تم إزالة الدمج في عنوان عمود المدرسة في الصفين الثاني والثالث وجعل تسمية العمود في الصف الثالث 
وذلك لأن الدمج عدو الأكواد وغالبا ما يؤثر على تنفيذ الأكواد 

 تم إضافة زر للترحيل في فورم تسجيل البيانات 

وبالنسبة للتنقل بين فورم تسجيل البيانات وفورم الإحصاءات 
فقط قدم الخروج من الفورم قبل إظهار الفورم الأخر حيث يكون الكود بهذ الشكل 

Private Sub CommandButton1_Click()
Unload Me
Call kh_Show_HatemEissa1
End Sub

وهذا هو كود الترحيل بس لن يعمل حتى يتم عمل التعديلات السابق ذكرها : 

Sub Macro1()
     Application.ScreenUpdating = False
     Application.Calculation = xlManual
Dim CL As Range, i As Integer
  
  For i = 3 To 12
    Sheets(i).Range("B4:AF1000").ClearContents
           For Each CL In Sheets(2).Range("B2:B" & [b10000].End(xlUp).Row)
               If CL.Value = Sheets(i).Name Then
                  CL.Offset(0, 2).Resize(1, 31).Copy Sheets(i).Range("B" & Sheets(i).[b10000].End(xlUp).Row + 1)
               End If
           Next
  Next

     Application.Calculation = xlAutomatic
     Application.ScreenUpdating = True
MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية"
     
End Sub

 

لماذا لا تستخدم التصفية المتقدمة بدلا من عمل ورقة مستقلة لكل إدارة 

فمن خلال التصفية سيتم جلب بيانات الإدارات من خلال تغير الإدارة في معيار التصفية ومن ثم جلب بياناتها

إذا كان الغرض من تعدد الإوراق لكل إدارة هو عمل الإحصائيات 

يكمن الاستغناء عنها وعمل  الإحصائيات من خلال ورقة البيانات 

والعفو 

العجز والزيادة للمديرية 1.rar

[حاتم عيسى]

بارك الله في حضرتك وجزاك الله خيرا ونفعك الله بعلمك وجعل جميع اعمالك في موازين حسناتك