طارق محمود

السلام عليكم أخي العزيز جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then Cells(Target.Row, 1) = 1 ElseIf Not Intersect(Target, [B2:B100]) Is Nothing Then If IsDate(Target) Then Target.Offset(0, 7) = Month(Target) Else Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 End If End Sub

السلام عليكم أولا أهلا ومرحبا بك أخي الكريم ثانيا الأفضل ان ترفع الملف علي المنتدي وبه الكود ولاتنسي أن تضغط الملف (winrar / winzip) لكي يتم السمااح برفعه ثالثا يبدو من السؤال ان الكود يستخدم احدي خواص او دوال مكتبة الفيجوال بيزيك والتي ليست مركبة علي جهازك او ليست مفعلة

عفوا اخي الحبيب رجب لم أر ردك قبل أن أرد

السلام عليكم بعد إذن أخي الحبيب / عبد الله أخي العزيز ضع الكود في حدث الورقة Sheet9(الأخطاء) وليس حدث الملف ThisWorkbokk

السلام عليكم أخي الكريم أهلا ومرحبا بك بين إخوانك كما نصحك أخونا الفاضل أبامحمد الأفضل دائما إرفاق ملف ولكن لأنها أول مشاركاتك ، كنت قد أعددت لك ملف كترحيب بك وللأسف ليس عندي وقت الآن لتحميل ومراجعة ملفك تفضل الملف الذي أعددته أنا ولاأدري هل سيناسبك أم لا كل مادة مرتبة تصاعديا.rar

السلام عليكم أخي العزيز هذا الخطأ يظهر عندك في نسخة 2003 لأنك لم تفعل إحدي ملحقات الإكسل وهي Analysis ToolPak من قائمة Tools ثم Add-Ins.. ثم إختر تفعيل تلك الأداة ملحوظة بعد التفعيل لابد من غلق الإكسل ثم فتحه أنظر الصورة

جميلة بارك الله فيك وزادك من العلم

السلام عليكم أخي العزيز إجمالي عدد ساعات الدوام الأسبوعية المتاحة = 7 موظف × 39= 273 ساعة وإجمالي عدد ساعات المطلوبة أسبوعيا= 7 أيام × 34= 238 ساعة فنظرا لعدد الساعات المحكومة بوقت الدوام فسيكون لديك خيار واحد فقط لكل موظف (3 أيام عمل بالأسبوع) 13+13+8 = 34 ساعة بمعني أن كل موظف (سيتواجد 3 أيام عمل بالأسبوع) مرتين شيفت طويل 13 ساعة ومرة واحدة 8 ساعات ولكي تكون عادلا في توزيع الراحات ولكي تكون أيام العمل متتابعة (ورا بعضها) لكل موظف وكذلك الراحات فالأفضل توزيعها قطريا لكي يأخذ كل واحد نصيبه من كل شيفت كما بالجدول الأعلي أو توزيعها قطريا (يوم في يوم) إذا كانت نوبات حراسة مثلا ويستريح بعدها الموظف كما بالجدول الأسفل أنظر المرفق وقد جعلت لكل موظف لون خاص به نسخة من ساعات الجدول 3.rar

السلام عليكم أخي الكريم تفضل المرفق انذار بتسديد2.rar

من ملف إلي ملف آخر مفتوح عن طريق الفلتر ، ثم نسخ / لصق أنظر الفيديو المرفق shift.rar

السلام عليكم أخي الكريم تفضل الملف المرفق إحفظه في مكان تعلمه جيدا ثم إضغط الزر Book1_T.rar

السلام عليكم اخي العزيز تفضل المرفق تاريخ النهاية2.rar

وهذه دورات أخري للأستاذ / أبوهاجر المصري http://www.officena.net/ib/index.php?showtopic=35762&hl=%D8%AF%D9%88%D8%B1%D8%A9#entry188897 وللأستاذ / زياد علي http://www.officena.net/ib/index.php?showtopic=31559&page=2&hl=%D8%AF%D9%88%D8%B1%D8%A9#entry160795 وهذا كتاب http://www.officena.net/ib/index.php?showtopic=31559&page=2&hl=%D8%AF%D9%88%D8%B1%D8%A9#entry160795 ولكن لاتحمله من أول مشاركة بالرابط بل حمله من رابع مشاركة

السلام عليكم أخي العزيز أولا بالنسبة لكتب ودورات تعليم الفيجوال بيسيك (برمجة الإكسل) فهي كثيرة ومنها هنا بالمنتدي دورة للأستاذ / عبدالله المجرب علي الرابط http://www.officena.net/ib/index.php?showtopic=39323#entry219012 بعد المقدمة تبدأ الدروس بها من المشركة رقم 14 في الرابط السابق وفي سؤال للأستاذ / علي الهويدي علي الرابط http://www.officena.net/ib/index.php?showtopic=39279&hl=%D8%AF%D9%88%D8%B1%D8%A9#entry217747 ستجد ردا بالمشاركة #8 للأستاذ / عبدالله المجرب أيضا يقول فيه وهناك ايضا العديد من الكتب لنفس الغرض (معظمها بالإنجليزية) فقط أخبرني إن كان ماسبق يكفيك ، وإلا سأرفع لك أو ادلك علي الكتب ثانيا بالنسبة للملف (أعمدة WIDTHوLENGTHوSHAPE) طبعا لها حل فى ترحيلها افقى هى ايضا دون تكرار ولكن هذا ليس له علاقة بأعمدة DESIGN# SAMPLE# أكيد تفهم ماأقصده حيث تكرار هذه مختلف عن تلك تفضل المرفق به ترحيلها افقى project3.rar

السلام عليكم أخي العزيز قف بالماوس علي الخلية E1 وتابع الإختيار تفضل المرفق project2.rar

السلام عليكم أخي العزيز غير الكود بالتالي Sub Macro4() LR = [B9999].End(xlUp).Row If LR < 7 Then LR = 6 LR2 = [J9999].End(xlUp).Row + 1 If LR2 < 7 Then LR2 = 6 Range("B6:B" & LR).Copy Cells(LR2, "J") Range("C6:D" & LR).Copy Cells(LR2, "L") Range("B6:D" & LR).ClearContents End Sub أو تفضل المرفق 55_T.rar

السلام عليكم اخي الحبيب المهندس / محمد طاهر فعلا الملف متعوب عليه جزاكما الله خيرا أنت والمهندس سيف ساتي

السلام عليكم أخي العزيز عدد المجموعات موجود بالخلية =D2 حاليا 20 ، إجعلها كما تحب ، مثلا 30 ثم غير المعادلة في الخلية F5 من =$G$1 +(E5-1)*20 إلي $G$1+(E5-1)*$D$2 وغير المعادلة في الخلية G5 من F5+19 إلي F5+$D$2-1 ثم إنسخهما للأسفل يعني نستبدل الرقم 20 بقيمة الخلية D2 والرقم 19 بالمعامل $D$2 ناقص 1 وعلامات الدولار للتثبيت أثناء النسخ

السلام عليكم أخي العزيز لم أفهم إشرح اكثر ماتريد بالضبط

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

السلام عليكم اخي الكريم تفضل المرفق sery2.rar

السلام عليكم بالفعل الملف جيد ونشكرك أخي الكريم علي مشاركتنا إياه جزاك الله خيرا لقد حملته ، ووضعت بعض أسماء الملفات التي علي الجهاز عندي وسأرفعه لمن لم يستطع تحميله من الموقع وجربت الكود وهو يعمل جيدا مع الملاحظات التالية 1. لابد أن تلتزم بالفورمات التي يأخذها الكود ، مثلا الشرطة المايلة بالعكس (\) في آخر مسار الملف المراد نسخه 2. إذا كان المجال (أو الخلية) المنقول إليها غير فارغة ينقل أسفلها مباشرة ولايمسح الأصل ، وهذا له استخدامه بالطبع ويمكنك بعد فهم الكود تعديله كما تشاء 3. الشيت المنقول منه هو الشيت الحالي للملف المنقول منه ، بمعني أن الملف المنقول منه إذا كان به مثلا 3 شيتات وكنت أغلقته آخر مرة علي الشيت الثاني فإن النسخ سيتم من هذا الشيت الثاني (الحالي بالنسبة لذاك الملف) والآن شرح موجز للكود سأقسم الكود لأجزاء يسهل استيعابها الجزء الأول تعريفات عامة Public strFileName As String Public currentWB As Workbook Public dataWB As Workbook Public strCopyRange As String الجزء الثاني بداية الكود والتعريفات الداخلية Sub GetData() Dim strWhereToCopy As String, strStartCellColName As String Dim strListSheet As String strListSheet = "List" الجزء الثالث تأمين الكود في حالة الخطأ في إسم الملف مع رسالة خطأ والنهاية On Error GoTo ErrH ... ... ErrH: MsgBox "It seems some file was missing. The data copy operation is not complete." Exit Sub End Sub الجزء الرابع تحديد إسم الملف المنقول منه وذلك من الجدول بالشيت الأساسي List في ملف المنقول إليه Sheets(strListSheet).Select Range("B2").Select 'this is the main loop, we will open the files one by one and copy their data into the masterdata sheet Set currentWB = ActiveWorkbook الجزء الخامس وكما بالملاحظة الإنجليزي بالجزء السابق هو لووب (حلقة) سيتم من خلالها فتح الملفات المنقول منها واحد بواحد ونسخ البيانات المرادة حسب النطاقات بالجدول ثم غلقها .. حتي انتهاء الحلقة أي حتي يجد الخلية بالعمود B من الجدول فارغة Do While ActiveCell.Value <> "" strFileName = ActiveCell.Offset(0, 1) & ActiveCell.Value strCopyRange = ActiveCell.Offset(0, 2) & ":" & ActiveCell.Offset(0, 3) strWhereToCopy = ActiveCell.Offset(0, 4).Value strStartCellColName = Mid(ActiveCell.Offset(0, 5), 2, 1) ... ... Loop Exit Sub الجزء السادس وهو جزء فرعي من الخامس يعمل علي تحديد أماكن القراءة (النسخ) من الملف المنقول منه ووضع النسخة في مكانها المطلوب Application.Workbooks.Open strFileName, UpdateLinks:=False, ReadOnly:=True Set dataWB = ActiveWorkbook Range(strCopyRange).Select Selection.Copy currentWB.Activate Sheets(strWhereToCopy).Select lastRow = LastRowInOneColumn(strStartCellColName) Cells(lastRow + 1, 1).Select Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone Application.CutCopyMode = False dataWB.Close False Sheets(strListSheet).Select ActiveCell.Offset(1, 0).Select طبعا لم ادخل في تفاصيل الشرح لاعتقادي أن هذا ماتحتاجه من سؤالك وإن كان لك اي أسئلة ، فلاتتردد وإليكم الملف vba-macro-to-copy-data-from-multiple-files.rar

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

السلام عليكم أخي العزيز هناك أسباب كثيرة لذلك مثلا: إذا كان الفورم في إكسل 2007 أو مابعدها وتريد نقله لـ 2003 فإن حجم الصفحة في الحالتين مختلف من حيث عدد الصفوف والأعمدة وقد يكون عندك مثلا أمر في أكواد الفورم مثل Range("A100000").End(xlUp)) ففي 2003 لايكون هناك سطور بعد 65536 وسيظهر لك هذا الخطأ وهكذا الأسباب كثيرةو ، إرفق ملف كما نصحك أخونا الحبيب ريان

السلام عليكم أخي العزيز بالمرفق حل لأحد الطلبات وهو جدول المعلم (بالمعادلات) ولاحقا إن لم يتدخل أحد الإخوة سأعمل علي جدول الفصول / الحصص تفضل المرفق جدول الفصول والمعلمين2.rar