كل الانشطه

تم ارفاق شيت اكسيل به رابط تحميل البرنامج...شكراا جزيلا Update linkes.xlsx

تمام حاضر... خالص الشكر

حاول ضغط الملف ، وارفاقه. أو ارفعه على موقع مثل ميديا فاير، أو جوجل درايف ... إلخ

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

السلام عليكم ورحمة الله وبركاته .... الزملاء الأفاضل خبيري ومحترفي الأكسيل الرجاء المساعدة في اضافة علاوة دورية وحافز اضافي لعام 2026 في الشيت المرفق ... المطلوب الأول :- في ورقة عمل ( تدرج_مرتبات ) نريد اضافة علاوة دورية بنسبة 12% في الخلية رقم c142 بنفس الأسلوب ومعادلات العلاوة الدورية السابقة لها التي في الخلية رقم c138 والمأخوذة من الجدول المساعد في الخلية رقم af196 المأخوذة أيضا من الجدول المساعد من الخلية رقم ak245 . المطلوب الثاني :-في ورقة عمل ( مفردات_مرتب ) وحتي تظهر المفردات سنكتب في كود الموظف رقم 10 ونكتب في الحالة الاجتماعية رقم 4 ستظهر المفردات نريد عمل صف ليس به معادلات وأسفل حافز اضافي 2025 ونضيف صف حافز اضافي 2026 بقيمة 750 جنيه بنفس طريقة اضافة حافز اضافي 2025 بحيث عند عمل معاينة للمفردات تظهر قيمة حافز اضافي 2026 بقيمة 750 ...ملحوظة الملف أكبر من الحجم المسموح برفعه علي المنتدي ممكن ابعته علي الخاص للاخوة الزملاء الأفاضل ... خالص الشكر والتقدير للأخوة الكرام

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

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

استاذ يارك لله فيك استاذ الحقول بالون الابيض هل تسطيع تعديل بترحيل مرة واحدة استاذ ورقة Feuil1 قد قمت بتعديل عليها الحقول يكون في صف واحد استاذ الحقول بالون الاصفر يتم افراغ الحقول استاذ عند تكون الحقول فارغ لا يتم الترحيل بارك الله فيك Copy of Horaire-18-06-2026-(04.12.06) (3).xlsb

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

وعليكم السلام ورحمة الله وبركاته.. حجزت مقعدي الثاني في المتابعة 😀

شكر وتقدير واحترام من القلب

شششششششششششششششششششكرا جزيلا

وعليكم السلام ورحمه الله وبركاته اتفضل الكود بالطلب الاول لعله يكون المطلوب 👇 Sub TransferDataValues() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil1") nextRow = wsDst.Cells(wsDst.Rows.Count, "A") '.End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow End If wsDst.Cells(nextRow, "A").Resize(4, 9).Value = wsSrc.Range("B3:J6").Value End Sub اتفضل الكود بالطلب التاني لعله يكون المطلوب 👇 Sub Transfe12() Dim wsSrc As Worksheet Dim wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil12") nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B9:J9").Value End Sub اتفضل الكود بالطلب التالت لعله يكون المطلوب 👇 Sub Transfe13() Dim wsSrc As Worksheet Dim wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil13") nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B13:J13").Value wsSrc.Range("B13:J13").ClearContents End Sub Copy of Horaire-18-06-2026-(04.12.06) (3).xlsb

السلام عليكم لدي ورقة Horaire2027 اريد ترحيل البيانات الى ورقة Feuil1 و Feuil12 و Feuil13 1- ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل 2-ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول 3-ترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول Horaire-18-06-2026-(04.12.06) (3).xlsb

الحمدلله أنها عملت معاك 🙂 وهذه هي أهم العناصر التي ستحتاج تنقلها لمشروعك :

هذه هى المشكلة بالضبط التى قابلتنى

اخى استبدلت الدالة ب Public Function IsFileExists(ByVal TxtPath As Variant) As Boolean On Error GoTo ErrHandler Dim sPath As String sPath = Trim$(Nz(TxtPath, "")) 'إزالة علامات الاقتباس sPath = Replace(sPath, """", "") If Len(sPath) = 0 Then IsFileExists = False Exit Function End If If Dir(sPath, vbDirectory) <> "" Then IsFileExists = True Else IsFileExists = False End If Exit Function ErrHandler: Debug.Print "IsFileExists Error" Debug.Print "Path = [" & sPath & "]" Debug.Print Err.Number & " - " & Err.Description IsFileExists = False End Function وعملت تمام ممكن شرح ما هى النماذج والدوال المطلوب للنثل للبرنامج بتاعى للعمل

اسم النموذج Auto Connect FrontEnd V3.0

هي في الأصل موجهة للأدمن (مدير البرنامج الرئيسي وليس بالضرورة يكون المبرمج نفسه ربما مدير المؤسسة أو تقني المعلومات في موقع العمل) أو لك كمبرمج لما تقدم دعم فني بالاتصال عن بعد .. ترتاح من الدخول للأكواد .. 🙂 وكثير ما تحصل المشاكل لما تنقطع الشبكة المحلية تلقة ال FE في جهة وال BE في عالم آخر .. فالمستخدم العادي يتوه .. لكن أنت ستعرف سبب المشكلة من خلال النموذج اللي يظهر لك .. وسيكون سهل عليك تشرح لمدير البرنامج في موقع العمل .. 🙂

خطأ52 هنا If Dir(TxtPath, vbDirectory) = "" Then وصف الخطأ bAD FILE NAME مع الشكر والتقدير

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

بل هي للإثنين .. ولكن بواجهة أنيقة سهلة ومفهومة للمستخدم 🙂

وعليكم السلام اخوي ابوخليل اساس الموضوع هو المستخدم: 1. المستخدم عنده FE مسار للجداول BE (عادة في الشبكة) ، والمطور/المبرمج عنده مسار آخر BE لنفس قاعدة البيانات (مسار محلي D مثلا) ، 2. المبرمج عمل تعديلات ، وبعدها ارسل النسخة التالية من الواجهة الى المستخدم. هنا يقوم الكود/العمل اعلاه باعادة ربط الواجهة الجديدة FE بمسار جداوله تلقائيا. 3. والمبرمج لما يحتاج الى ربط الواجهة الى مساره ، يستخدم الامر التالي ، وتلقائيا يربط بمساره f_ReLink_To_Original(2)

وعليكم السلام متابع 🙂

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