كل الانشطه

تفضل استاذ @jo_2010 المرفق بعد التعديل ...ووافني بالرد. DDAdd&DeletePDF.rar

تفضل استاذ @Zooro1 اليك المرفق الجديد ومتجرب أكثر من مرة . (جرب ) . ووافني بالرد . قبل سفري .... DDCountUsersSendLeters-2.rar

اللي فهمته 1- سيتم عمل اسكان لورقة 2- تريدي قص هذه الصورة لاستبعاد الأجزاء الغير مرغوب بها 3- تغير مقاس هذه الصورة فيما يخص النقطة رقم 2 - إذا أمكن مشاركة صورة للتجربة - حسب تصوري يجب أولاً معرفة جودة هذه الصورة حتي نتمكن من حساب البكسلز ومعرفة كيفية حساب الجزء المستبعد ثم قص الصورة فيما يخص النقطة رقم 3 فهمت من الصور ان المقاس المرغوب هو 8.5 * 11 بوصة(انش) وليس سم *ملحوظة هذا المقاس ليس A4 إنما US Letter Size A4 > 8.3 * 11.7 بوصلة A4 > 21 * 29.7 سم

@Ahmosممكن تطبق على الملف لو سمحت حضرتك

جميل جدا اخي الكريم tiger wanted بارك الله فيك

السلام عليكم اخي الكريم Zooro1 على قدر فهمي من الطلب فهو عمل ازرار تنقل بسيطة بين الشاشات.. تفضل ازار تنقل بين الشاشات.accdb

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي لنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة الحالية:``` Sub CopyData() Dim ws As Worksheet Dim i As Integer Set ws = ThisWorkbook.Sheets("ورقة١") For i = 6 To 400 ws.Range("M" & i).Value = ws.Range("D" & i).Value ws.Range("M" & i + 1 & ":M" & i + 7).Value = Application.Transpose(ws.Range("E" & i & ":K" & i).Value) Next i End Sub يرجى استبدال "ورقة١" باسم الورقة التي تريد نقل البيانات إليها. يمكنك تشغيل الكود عن طريق الذهاب إلى عارض VBA والنقر بزر الماوس الأيمن على اسم الورقة ثم اختيار "Insert" ثم "Module" ولصق الكود في نافذة الكود الجديدة ومن ثم تشغيله. ستقوم هذه العملية بنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة المحددة.

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل محمد هشام @محمد هشام. أنا آسف جدا جدا سامحني في الله انا فهمت غلط فعلا وحضرتك عندك كل الحق وانا فهمت دلوقتي اللي حضرتك بتقول عليه في جدول الفلترة فأنا آسف مرة تانية أرجوك سامحني حصل عندي لبث . وبخصوص تظبيط التاريخ عند تصديره للوورد انا هافتح بيه موضوع جديدجزاك الله كل خير يارب وأنا آسف مرة تانية جدا

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

السلام عليكم أخي محمد هشام @محمد هشام. كل سنة وحضرتك طيب وبخير يارب حضرتك في شيت الأنشطة لما احتاج اعمل فلترة انا بحتاج ايضا نفس الجدول اللي في sheet1 فانا برضه بزود في الجدول في sheet1 مش بزيد في جدول الاشطة - انا محتاج ده يبقى مراية لده أزود في ده يزيد في الآخر وامسح في ده يمسح في الآخر ... وفي فكرة تانية هل ممكن بدل ده كله أدمج وظيفة الشيتين sheet1 وأنشطة في شيت واحد يكون فيه الفلترة بين تاريخين والبحث بالمفتاح التصدير الى pdf وورد ,excel ومعلش يكون التصدير بدون الصفوف الفارغة اللي تحت. ومعلش لما بصدر الجدول الى وورد بيظهر التاريخ معكوس فهل من طريقة لعدله؟ والله انا مزهقك أنا عارف بس والله ربنا يجعله في ميزان حسناتك ويجعل الخير بين إيديك يا رب

كدا حضرتك بردو هيكون فى اختيارين لو [completed] = -1 او [completed] = 0 مش هيكون فى اختيار تالت

اشكرك استاذ @Ahmos على الدالة وتمة التجربة هي تمدد الصوره وحبيت الدالة ❤️😇 اتمنى لو كانت الدالة لاقتصاص الصور بالحجم المطلوب وليس التمدد بالطول والعرض المحدد Cropping an Image With Controll Print v.1.4.part1.rar Cropping an Image With Controll Print v.1.4.part2.rar

الحل في الكود هنا ⬆️

جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه الحلول كلها مبنيه ان جميع حقول result لو فاضىه مفيهاش قيمه (is null) او كلها مش فاضيه (isnot null) ---------------------------------------------------------------- فى مرحله وسط اللى هى بعض الحقول فيها قيمها وبعضها لا ----------------------------------------------- وللاسف محدش اخد باله من النقطه دى---------------------------------------------------------

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

كانت عندي نفس المشكلة لكن كل ملفات الاكسيل علي الجهاز بتجيب read only وواكتشفت السبب اني كنت ضايف دوال اضافية مش موجوده في نسخة الاكسيل عندي من خلال Add ins حذفتهم واشتغل طبيعي مفهوش اي مشاكل

شكرا لكم 🌹

@Saleh Ahmed Rabie @كمال على طارق وفقكما الله ورعاكما شكرا جزيلا لكم ايها الاخوة

السلام عليكم، لدي قاعدة بيانات وفيها شاشتين رئيستين A,B مختلفين لكن نفس الازرار ونفس النماذج، في الشاشة الافتتاحية اذا اختار المستخدم شاشة A بيكمل عادي بس مثلا في النماذج لو في زر رجوع Main للشاشة اللي دخل بيها A وهكذا العكس ولو اختار شاشة B وكمل شغل وفي زر رجوع Main للشاشة اللي دخل بها B .... اتمني تفيدوني واتمني اكون وصلت المعلومة صح.

استاذنا خليفة، في خطأ بيظهر لي compil error, method or data not found هصورها لحضرتك وابعتهالك. ابعت لحضرتك جدولي

شكرا لك اخي العزيز

رابط الموقع الذى يتم فيه تحويل جمل sql access الى sql server SQL Converter - AccessUserGroups.org

تسلم ايديك بجد حل عبقرى

السلام عليكم اخوتي الكرام الى السادة الخبراء طلب: أريد اظهار سالة (لا توجد صورة مطابقة لرقم الجلوس) عندما لاتوجد صورة مطابقة لرقم الجلوس عند تنفيذ الكود التالي: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) Me![Image_Std].Picture = "D:\صور\" + s1 + ".jpg" End Sub ولكم جزيل الشكر