علي حيدر

هل يوجد احد يستطيع المساعدة على هذا الطلب

اخي ميدو شكرا للمرور بالنسبه الى أيام الأسبوع لك المرفق اما السؤال الثاني لم افهمه لانه يعتمد اسم الشهر لا التاريخ ممكن ان يكون ينانر2016 لا اليوم حسب ما فهمت تقبل تحياتي اوراق الاسبوع.rar وتبقى أستاذ الكل اخي سليم حاصبيا شكرا للكود والمشاركة تقبل تحياتي

اخي ياسر العربي اخي ياسر الخليل أبو البراء شكرا للمروركم الكريم الشكر للمنتدى الذي يجمعنا ويدر بالافائدة والخير على الجميع انشالله

اخواني الأعضاء الأساتذة الأحباء في المنتدى خلال بحثي عن دود الادخال الى أوراق الأشهر وجدتو ان تسمحو لي ان اقدم لكم كودان لانشاء أوراق العمل بأسماء الأشهر واحد للغة الانكلزيه والأخر ععمل حسب لغة الحاسوب المستخدم ارجو ان يستفيد الاخوة منه وتقبلو تحياتي اللغة الانكلزية Sub DoMonths() Dim J As Integer Dim K As Integer Dim sMo(12) As String sMo(1) = "January" sMo(2) = "February" sMo(3) = "March" sMo(4) = "April" sMo(5) = "May" sMo(6) = "June" sMo(7) = "July" sMo(8) = "August" sMo(9) = "September" sMo(10) = "October" sMo(11) = "November" sMo(12) = "December" For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = sMo(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = sMo(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> sMo(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = sMo(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub مختلف اللغات Sub DoMonths() Dim J As Integer Dim K As Integer For J = 1 To 12 If J <= Sheets.Count Then If Left(Sheets(J).Name, 5) = "Sheet" Then Sheets(J).Name = MonthName(J) Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Else Sheets.Add.Move after:=Sheets(Sheets.Count) ActiveSheet.Name = MonthName(J) End If Next J For J = 1 To 12 If Sheets(J).Name <> MonthName(J) Then For K = J + 1 To Sheets.Count If Sheets(K).Name = MonthName(J) Then Sheets(K).Move Before:=Sheets(J) End If Next K End If Next J Sheets(1).Activate End Sub الملفات مرفقة اوراق الاشهر بلغة الانكليزية.rar اوراق الاشهر بلغة جهازك.rar

السلام عليكم اخواني و اخي مختار حسين محمود و أستاذ ياسر خليل أبو البراء لي طلب والطلب من الله وجزاكم الله خيرا وي ردكم الكريم اريد كود ادخال البيانات في الورقة الاساسية (00) و الى اوراق العمل حسب التاريخ المدخل في الفورم الاساسي بحيث يتم حفظ بيانات شهر يناير في الشيت الخاص بشهر يناير مع مرعات انه كلما ادخلت بيان جديد يضفه فقط لا اريده ان يقوم بعملية النسخ المسح ومن ثم اللصق ان هذا الملف المرفق ينفذ المطلوب ولكنه كلما ادخلت بيانات جديده يمسح البيانات الموجوده سابقا في ورقة الشهر ويعد نسخيها من جديد بلاضافة الى البيانات الجديدة هذا الكود يعود لاخي عبدالله الصاري تقبلو تحياتي جميعا 2ousol_Motadawala_Arb3.rar

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

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

اخي سمير معك حق ولكى الهدف بالاشهر كلن على حدا انه في النهاية المستخدم بكبسة زر ان يطبع شهر كذا دون عملية تاريخ من الى وهكذا انا اشكرك كثيرا على المشاركه

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

اخي سمير نجار شكرا عل مرورك الكريم بقالي يومين ابحث في المنتدى ولم اجد كود مطابق لحالتي اذا لديك مثيال ارسله لي من فضلك

للضروره طلب العون لا احد يهتم بالادخال والترحيل بقالي يومين بنادي ولا حد سامع لحالي ما حدش بمور علينا يمكن صعب او لازم انتظر اكتر من كدا

اخي الكريم محمد سيدي الكريم استاذ مختار بنظري انه لا بجوز طلب الله محمد الا في حال كان البدء من البضاعه رقم واحد ثم المجموع وكلما ذاد عدد البضاعه المفوتره زاد سطر جديد ولكن من الرقم ٦٠ لا اعتقد انه يوجد حل غير الملف المرفق سابقا من قبلنا اذ انه يمكن تثبيت اول ٦٠ سطر في الطباعه والباقي لا يظهر الا في حال زيادة البضاعه المفوتره عن ال٦٠ صنف والله العليم الحكيم

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

اخواني الاعضاء الاساتذه الكرام المساعدة من فضلكم هل لديكم حل للترحيل ارجو المساعدة اجركم الله على مروركم

المطلوب :كود ادخال و ترحيل البيانات الموجودة في الورقة الاساسية (00)الى اوراق العمل حسب التاريخ المدخل في الفورم الاساسي بحيث يتم حفظ بيانات شهر يناير في الشيت الخاص بشهر يناير مع مرعات عدم مسح البيانات من ورقة العمل الرئيسية 2ousol_Motadawala_Arb.rar

اخواني رجاء المساعدة اريد تعديل كود الترحيل المعمول به في الملف المرفق حيث انه يرحل حسب التاريخ الى ورقة الشهر قسم البيانات وانا اريده ان يرحل قسمين البيانات والمعادلات شكرا لنظركم في امرنا تحياتي لكم

نحن في الانتظار هل يجب الانتظار كثيرا لنظر في طلبي ؟

هل من مساعد من حضرات اساتذة التريحل ارجو المساعده

اخواني رجاء المساعدة اريد تعديل كود الترحيل المعمول به في الملف المرفق حيث انه يرحل قسم البيانات وانا اريده ان يرحل قسمين البيانات والمعادلات شكرا لنظركم في امرنا تحياتي لكم 2ousol_Motadawala_Arb.rar

هذا هو المطلوب شكرا اخي عبدالله الصاري ادعو لك بالتوفيق في حفظ الله وتقبل تحياتي

شكرا اخي عبدالله الصاري على المرور ولكن الطريقه لا توفي بالغرض اذ انها تعمل في الصف رقم 14 فقط دون الانتقال الى الصف الذي يله حيث ان المطلوب هو كلما تتم عملية ادخال للبيانات يجب ان تتكرر العملية مع ادخال البيانات بواسطة زر الادخال في ال userform تقبل تحياتي

هل من ناظر اخواني الكرام الرجاء المساعدة تحويل الداله ال كود في ادخال البيانات عبر ال userform وشكرا

شكرا للمرور أستاذ سليم مشكور على فكرة المعادلات بالغة الاكسل لقد تم التحميل باذن الله وشكرا 2ousol_Motadawala_Arb.rar

السلام عليكم اخواني الأعضاء والأساتذة الكرام في المنتدى وبعد المطلوب تحويل الداله في الخلايا الى كود ادخال بحيث عندما يتم ادخال البيانات تتم العمليه الحسابيه تلقائيا بواسطة زر ادخال البيانات عزرا على عدم تحميل الملف بحيث ان حجمه كبير واداله هي if($g$14=$r$10;$i$14;"") if($r$10=$g$14;$f$14;"") if($r$10=$i$14;$h$14;"") if($i$14=$r$10;$g$14;"") شكرا للممركم الكريم ولكم تحياتي

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