نجوم المشاركات

السلام عليكم محاولة بسيطة ربما تفي بالغرض كلمة المرور :123456 تحياتي / عبد العزيز البسكري MAYAM.rar

الأخ مصر 2015 ... ربنا يصلح مصر في 2015 يرجى تغيير اسم الظهور للغة العربية وباسم مناسب إذا أمكن (دا إذا مكانش يضايقك طبعاً) بالنسبة لطلبك سهل للغاية بفرض أن العمود الأول والثاني يحتوي قيم وتريد جمع القيم من العمودين في العمود الثالث C قم بتحديد العمود بالكامل .... من خلال النقر مرة واحدة على رأس العمود (انقر عليه هيطب سااااكت علطول ..) هتلاقي العمود كلها متحدد روح لشريط المعادلات وضع المعادلة فيه =SUM(A1:B1) واضغط Ctrl + Enter مش إنتر بس ... سيتم تنفيذ المعادلة على كامل العمود .. ملحوظة : يرجى عدم تطبيق المعادلة على كامل العمود .. لأن ذلك سيسبب ثقل في الملف حيث أن عدد الصفوف في ورقة العمل كبير جداً .. يكفي أن تكتب القيم مثلاً في العمودين ثم تسحب المعادلة مرة واحدة إلى نهاية النطاق الذي تعمل عليه أو تضغط دبل كليك على مقبض السحب .. تقبل تحياتي

الأخ الكريم ياسر كل عام وأنت بخير .. وتقبل الله منك صيامك وقيامك وسائر اعمالك سلمت يداك

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

وكل عام وأنت بخير أخي الكريم أحمد الحمد لله أن تم المطلوب على خير تقبل تحياتي

شكرا اخي ياسر تمت بنجاح شكرا جزيلا كل عام وانت واعضاء المنتدى بالف خير بمناسبة عيد الفطر السعيد

ألف شكر سيدي و أستاذي الغالي ياسر خليل أبو البراء عيد فطر مبارك كل عام و أنت وجميع أفراد أسرتك الطيّبة بمليون خير .. ينعاد علينا و على جميع أسرة منتدى أوفيسنا وكل المسلمين بالخير و اليُمن و البركات تقبّل الله منا و منكم عقبال مئة سنة أخوك / عبد العزيز البسكري

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

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

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

الأخ الكريم أبو حنين كل عام وأنت بخير .. كنت أفضل أن تطرح موضوع مستقل ... ولكن ولا يهمك تفضل جرب الكود التالي Sub TransferDatabyDay() Dim WS As Worksheet Dim lDay As String, LR As Long Set WS = Sheets("واجهة البيع") lDay = Day(Now) If blnWorksheetExists(lDay) = False Then Sheets.Add After:=Sheets(Sheets.Count) With Sheets("Temp") .Visible = True .Cells.Copy ActiveSheet.Range("A1") .Visible = False End With ActiveSheet.Name = lDay End If With Sheets(lDay) LR = .Cells(65, "C").End(xlUp).Row + 1 .Range("C" & LR) = WS.Range("H11").Value .Range("D" & LR) = WS.Range("J11").Value End With MsgBox "تمت عملية الترحيل", vbInformation End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تم إنشاء ورقة عمل باسم Temp كنموذج يتم النسخ منه في حالة عدم وجود ورقة عمل Transfer To Specific Sheet & Create If Not Found.rar

جرب تغير هذا الجزء Step -1 من -2 إلى -1

أخي الحبيب أبو سليمان لابد أن تعلم جيداً أن فهم المطلوب - حتى لو كان صعباً - يمثل 90% من الحل لـــــــــــــــــــــــــــــذا يجب دائماً وأبداً التوضيح التاااااااااااااااااااااااااام والجيد للمطلوب وإلا لن تجد استجابة مهما كثر رفع الموضوع ومهما تعددت الردود ... إذ أنه لا يعقل أن يساهم بالمساعدة شخص لا يفهم المطلوب .. أمر آخر مهم جداً وهو المسميات .. أنت تذكر كلمة مجلد في المشاركة رقم 1 .. صحيح !! هل المقصود بالمجلد المجلد (الذي نعرفه ذو اللون الأصفر ...) ؟؟ لا أعتقد .. أعتقد أنك تقصد المصنف (Workbook) ..أياً كان يجب التأكد من صحة المسميات عند شرح المطلوب .. أمر آخر .. ما هو المصنف في المرفقات المطلوب العمل عليه ؟؟؟؟ يجب أن يكون مصنف واحد وليس اثنان ولو كان اثنان يرجى شرح آلية العمل أمر آخر : هل تقصد من الموضوع عملية ترحيل للبيانات من الملفات الموجودة في المجلد رقم 1 إلى المجلد رقم 2 إلى نفس الملفات التي تحمل نفس الاسم ؟ أين تريد وضع الأكواد .. في أي مصنف ؟؟ أم أنه يتم عمل مصنف آخر يقوم بالمهمة ؟؟ أسئلة كثيرة جداً تسهل الوصول لحل .. إذا توافرت العناصر وفهم المطلوب بشكل جيد فبالتأكيد ستجد المساعدة بإذن الله تقبل تحياتي وكل عام وأنت بخير

أخي خالد ركز .. قيمة الخلية تساوي كام ؟ 11 .. يعني الحلقة التكرارية هتبدأ من 14 إلى 11 إزاي .. المعادلة في الخلية B4 اللي هي الناتج بتاعها 11 زود عليها 13عشان تضبط معاك رقم الصف ليصبح رقم الصف كما في الملف المرفق 24 في الحالة دي المعادلة هتكون بهذا الشكل في الخلية B4 =COUNT(Serial)+13 فتتم الحلقة التكرارية من الصف الـ 14 إلى الصف 24 تقبل تحياتي

السلام عليكم يطيب لي المشاركة معكم بطريقة اخرى Experiment treeview2.rar

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

أخي الكريم وجدي الحاج علي إليك الكود التالي عله يفي بالغرض Sub TransferDatabyDay() Dim lDay As String, LR As Long lDay = Day(Now) On Error GoTo YK With Sheets(lDay) LR = .Cells(65, "C").End(xlUp).Row + 1 .Range("C" & LR) = Range("H11").Value .Range("D" & LR) = Range("J11").Value End With MsgBox "تمت عملية الترحيل", vbInformation Exit Sub YK: MsgBox "لم تتم عملية الترحيل ، قد يكون السبب عدم وجود ورقة العمل", vbCritical End Sub في حالة عدم وجود ورقة العمل لليوم الحالي يتم إظهار رسالة تفيد بذلك لا تنسى تحديد أفضل إجابة وكذلك اضغط على "أعجبني هذا" (يعني قفل الموضوع لو تمت الإجابة عليه بشكل يرضيك) تقبل الله منا ومنكم حسابات محل.rar