عبده الطوخى 1970

الف شكر لحضرتك استاذ Foksh الكود يعمل بشكل ممتاز جدا [Forms]![Frm_Data_entry]![Frm_Fatura_Main].[Form]![Net_Teams] = [Forms]![Frm_Data_entry]![Frm_Fatura_Main].[Form]![Total_Main_Meter] - [Forms]![Frm_Data_entry]![Frm_Fatura_Sub].[Form]![Total_Sub_Meter] هل اطمع منك فى المزيد هل يوجد تصميم افضل للبرنامج من التصميم الحالى حيث اننى توفقت منذ فترة طويلة جدا حوالى 10 سنوات فى العمل على الاكسيس واكيد هناك تحديثات افضل بكثير تمت فى الفترة الاخيرة لكم منى جزيل الشكر والاحترام

السلام عليكم ورحمه الله وبركاته عندى قاعدة بيانات اكسيس خاصة بفاتورة الكهرباء بعد التصميم والتنفيذ واجهتنى بعض المشاكل 1- يوجد حقل باسم Net_Teams ( صافى الاستهلاك ) = Total_Main_Meter فى النموذج Total_Sub_Meter - Frm_Fatura_Main فى النموذج Frm_Fatura_Sub مطلوب حساب الحقل بكود برمجى فى النموذج وعند الحفظ او الادخال يتم تحديث البيانات فى الاستعلام الخاص به مع مراجعة البرنامج فى حالة وجود اى اضافات اخرى ولكم جزيل الشكر والاحترام abdo_elctrec.rar

ان شاء الله جارى التجربة

استاذنا الفاضل أبوأحـمـد لقد اجتهدنا بالعمل على الكود الاصلى الذى سبق انك عملته واذا كان هناك تعديل او تصحيح نرجو اعطاء خبرتك Sub TR7el() Dim namsh As String Dim wk, wk2 As Worksheet Dim check As Boolean namsh = Format(ورقة1.Range("A3"), "yyyy-mm-dd") Set wk = Worksheets("ادخال البيانات") If namsh = Empty Then Beep MsgBox "لا يوجد يوم ", , "عفوا" wk.Range("A3").Select Exit Sub End If For Each wk2 In Worksheets If wk2.Name Like namsh Then check = True: Exit For Next If check = True Then MsgBox "تم ترحيل هذا اليوم مسبقا", , "عفوا" Exit Sub End If With ThisWorkbook .Sheets.Add(Before:=.Sheets(.Sheets.Count)).Name = namsh End With Set wk2 = Worksheets(namsh) wk.Range("U2:AD10").Copy wk2.Range("A2").PasteSpecial Paste:=xlPasteValues wk2.Range("A2").PasteSpecial Paste:=xlPasteFormats wk2.Range("h3:h10").Copy wk.Range("c3:c10").PasteSpecial Paste:=xlPasteValues wk2.Rows(2).RowHeight = 35 wk2.Rows("3:10").RowHeight = 25 wk2.Columns(1).ColumnWidth = 10 wk2.Columns(2).ColumnWidth = 7 wk2.Columns(3).ColumnWidth = 8 wk2.Columns(4).ColumnWidth = 8 wk2.Columns(5).ColumnWidth = 8 wk2.Columns(6).ColumnWidth = 8 wk2.Columns(7).ColumnWidth = 8 wk2.Columns(8).ColumnWidth = 8 wk2.Columns(9).ColumnWidth = 8 wk2.Columns(10).ColumnWidth = 8 MsgBox "تم الترحيل " wk.Activate SendKeys "{F2}" wk.Range("A3").Select wk.Range("A3") = Date wk.Range("A3") = "" 'wk.Range("e3:e10") = 0 'wk.Range("d3:d10") = 0 SendKeys "{ENTER}" End Sub

السادة الافاضل ارجو سعة صدركم بما اطلب وان شاء الله اجد الاجابة لديكم كما تعودنا من خبراء هذا المنتدى المطلوب نسخ الخلية AB3 من اليوم المرحل الى الخلية C3 من شيت ادخال البيانات حيث ان ارصيد السابق يجب يتغير يوميا حسب الاستهلاك اليومى وهذه هى المشكلة التى تواجهنى لقد جربت كافة المعادلات وبائت بالفشل ومرفق الملف بيان السولار اليومى لمزارع الامهات - Copy.xlsm

بالفعل هذا هو المطلوب ____ الف شكر استاذنا الفاضل

السادة الافاضل لكم منى التحية اريد استفسار عن كيفية اضافة كود بالموديل الموجود بالملف المرفق Rows(2).RowHeight = 35 Rows("3:10").RowHeight = 25 على ان يكون هذا التنسيق بالملف المطلوب ترحيله بيان السولار اليومى لمزارع الامهات (1).xlsm

الف شكر استاذنا الفاضل أبوأحـمـد هذا ما نريد والف شكر لحضرتك مرة ثانية وثالثة الى ما لا نهاية

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

لو هذا متاح ارجوا المساعدة فى الملف بيان السولار اليومى لمزارع الامهات.xlsx

السلام عليكم ورحمه الله وبركاته السادة الافاضل ممكن المساعدة مطلوب ترحيل البيانات الموجودة الى الصفحة التالية مع ادراج صفحة جديدة عند الحفظ بنفس التاريخ الموجود بصفحة ادخال البيانات وهكذا حتى نهاية الشهر ( يعنى كل يوم صفحة ) ومرفق الملف بيان السولار اليومى لمزارع الامهات.xlsx

استاذى الافاضل الملف يعمل جيدا فى حالة وقف كود المعالات انا اريد تشغيل كود المعادلات واظهار النتائج كلها من الليست بوكس الى تكست بوكس ونتمنى منكم ايجاد حل باذن الله

السادة الافاضل تحية طيبة وبعد ،،، يوجد لدى ملف excel vba وبعد التصميم والتنفيد للعمل وجدت مشكلة وهى عدم ظهور بيانات الوزن وبيانات متوسط الوزن فى التكست بوكس الخاص بهم مع العلم بان كل البيانات الاخرى موجودة ( التكست بوكس ( الوزن ) به كود معادلات وكذلك التكست بوكس ( متوسط الوزن ) به كود معادلات والغريب حقا بانه عند وقف تنفيذ كود المعادلات الملف يعمل جيد بدون اى مشاكل لذا ارجو التكرم بمساعدتى فى تفادى هذه المشكلة وايجاد جل لها ولكم جزيل الشكر والاحترام اعمال الشئون الادارية.rar