يوسف عطا

هذا بالفعل ما يحدث

الدالة إف لها صور وإستخدامات عديد وبعضها مركب ولكن صورتها البسيطة كما يلى شرط ما فى حالة وجوده فى خلية ما يتم وضع قيمة معينة فى خلية المعادلة ولو لم يتوفر هذا الشرط تحديداً يتم وضع قيمة أخرى فى خلية المعادلة مع ملاحظة أن لو تريد خلية المعادلة خالية فى أى حالة من الحالتين يكتفى بوضع مسافة بين علامتى تنصيص " " أما شكل المعادلة البسيط فيكون كالتالى =IF(A1=0;0;0) حيث A1 الخلية التى يوجد فيها الشرط الصفر الأول هو الشرط الصفر الثانى هو النتيجة فى حالة وجود الشرط الصفر الثالث هو النتيجة فى حالة عدم وجود الشرط أتعشم شرحى واضح

السطر السادس من الكود غيره إلى Sheets("شامل").[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues ولو لم تصلح التسمية العربية غيرها إلى SHAMEL ليصبح السطر السادس هكذا Sheets("SHAMEL").[B60000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues دمت بود

لو ترفق ملف يكون العمل أسهل والشرح أوضح

أعمال جميلة أكرر طلب أخى الكبير جمال دغيدى يا أخى العزيز نادر بك

أستاذى الغالى عبدالله المجرب الرجاء توضيح هل شرح الكود كما يلى صواب أم خطأ مع التصويب ربنا يكرمك Sub tr1() Dim x As Integer 'الكود سوف يعمل من العمود الثانى من صف 14 إلى صف رقم 100 For i = 14 To Sheets(1).Cells(100, 2).End(xlUp).Row 'الرقم 10 فى السطر التالى يمثل رقم العمود المحتوى على معيار الترحيل With Worksheets((Sheets(1).Cells(i, 10).Value)) 'سيتم الترحيل فى الشيت الهدف إلى العمود الثانى من أول صف خالى إلى صف رقم 100 x = .Cells(100, 2).End(xlUp).Row + 1 ' السطر التالى عمود رقم 2 فى المصدر سيرحل إلى عمود رقم 2 فى الهدف وهكذا السطور التالية .Cells(x, 2) = Sheets(1).Cells(i, 2) .Cells(x, 3) = Sheets(1).Cells(i, 3) .Cells(x, 4) = Sheets(1).Cells(i, 4) 'نهاية الكود End With Next i End Sub

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

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

بعد إذن الأخ أبو اسامة أنا كمان بحاول أتعلم الترحيل وياريت أكون فهمت الكود على حسب فهمى كالتالى أول سطرين إسم الكود Sub tr() Dim x As Integer السطر التالى سيتم ترحيل البيانات من الصف الثانى للصف رقم 100 For i = 2 To Sheets(1).Cells(100, 1).End(xlUp).Row السطر التالى معيار الترحيل أو دليل الترحيل موجود فى العمود رقم 4 With Worksheets((Sheets(1).Cells(i, 4).Value)) السطر التالى مكان لصق البيانات المرحلة فى الشيتات التى بأسماء معيار الترحيل من الصف الثانى للصف رقم 100 ولا أعرف دلالة +1 فى نهاية السطر x = .Cells(100, 2).End(xlUp).Row + 1 السطور التالية توضح أن عمود رقم 1 فى شيت المصدر سيرحل لعمود رقم 1 فى الشيت الهدف وهكذا السطرين التاليين .Cells(x, 1) = Sheets(1).Cells(i, 1) .Cells(x, 2) = Sheets(1).Cells(i, 2) .Cells(x, 3) = Sheets(1).Cells(i, 3) نهاية الكود End With Next i End Sub أتمنى يكون فهمى للكود مظبوط ولو كان ذلك صحيح سأعزم نفسى على حاجة حلوة ولو كان خطأ هاشرب مية طرشى دمت بكل خير أخى اسامة وكذلك أخى السائل

أعطنى مثال عما تريد فى ملف ونا أحاول أطبق معاك الكود بناء على المطلوب

حفظ البيانات فى الشيت الأصلى لترحيلها لشيتات معينة على أساسها ثم إضافة ميزة المسح تكون بوضع الأسطر التالية قبل الكود On Error Resume Next Application.ScreenUpdating = False 'الجزء التالي يحفظ أسماء جميع الحالات الموجودة في العمود الأول rg1 = "A11:A" & [A3000].End(xlUp).Row Range(rg1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("X11"), Unique:=True Dim sht(9) As String, x(9) As Integer case_NO = [x100].End(xlUp).Row - 11 For i = 1 To case_NO sht(i) = Cells(11 + i, "X") Next i Range("X11:X" & 12 + case_NO).ClearContents 'الجزء التالي يمسح فقط المجال المطلوب من الشيتات التي أسماؤها مسجلة في الجزء السابق For sh = 1 To Sheets.Count For i = 1 To case_NO If Sheets(sh).Name = sht(i) Then Sheets(sh).Range("A11:U3000").ClearContents Next i Next sh عمود المعيار معرف هنا بأنه عمود رقم 1 لو تريد تغييره ضع بدلاً من الرقم 1 فى السطر الرابع من الكود الذى وضعته حضرتك فى المشاركة السابقة رقم العمود الذى به البيانات التى سيتم الرتحيل على اساسها وهو فى السطر الثانى من الجزء التالى من الكود For a = 11 To [A3000].End(xlUp).Row If Cells(a, 1) <> "" Then والله أعلم

عزيزى كيماس أخوتى الأفاضل ما أقصده هو كود يقوم بتحويل الأسماء من عمود معين بالعربى إلى حروف أجنبية فى عمود آخر كإجتهاد شخصى حاولت أعملها بالمعادلات عن طريق الخطوات التالية عمل جدول من عمودين لمقابلة الحروف العربية لما يماثلها فى النطق بالإنجليزية إستخدام أمر النص إلى أعمدة لفصل الإسم إلى حروف منفصلة إستخدام دالة Vlookup لإيجاد الحرف المقابل للحرف العربى من الجدول إعادة تجميع الحروف الإنجليزية عن طريق دالة CONCATENATE وبالطبع الطريقة كانت عقيمة ولا تعطى نتيجة أكثر من 70% مثلاً يوسف أصبحت YOSF وللحصول على نتيجة 90% لابد من تشكيل الحروف ولن نحصل على 100% مهما عملنا لكن الكود قد يعطى نائج أفضل من ذلك الدعوة مفتوحة للجميع للمساهمة فى عمل كود يعطى نتيجة فوق 70 % بدون تشكيل الحروف الملف المرفق يوضح مثال ترجمة أسماء.rar

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

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

سؤال مهم لماذا لا يعمل البرنامج إلا فى المسار الذى نزل فيه ؟؟ وهل يمكن السماح بنقل الملف من مكان لآخر سواء على نفس الجهاز أو على أجهزة أخرى ؟؟ أعتقد لو تم هذا سيكون أفضل للعديد من الأسباب وعموماً الملف من شكله يبدو رائعاً وجارى إستخدامه وتجربته

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

إذا كان الجهازين على نفس شبكة الإتصال فالأمر سهل عن طريق تشيير الملف مع السماح بولوج كامل دون نقل الملف إلى الجهاز الآخر ولا أعلم إن كانت هذه الطريقة ستمكن الطرفان من العمل على الملف فى نفس الوقت أم لا ؟؟ ولكن ولا شك يمكن العمل على الملف من الجهازين ولكن ربما ليس فى نفس الوقت إذا كانا على شبكات إتصال مختلفة فهذا أمر لم أسمع به ولو توصلت للطريقة أكون سعيد أن تخبرنا بها تفصيلاً

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

ربنا يزيدك من العلم يا استاذ طارق ويجازيك خيراً ويجعل أعمالك فى موازين حسناتك

شاكر أفضالك مرة أخرى فعلاً حاولت ولم أحقق نتيجة مرضية ولا أعرف ما علاقة عمود GX بالموضوع على العموم مرفق الملف كما أتصوره وتم تبديل العمود U ليكون بديلاً للعمود A ومن تعديلك للكود سأحاول أن أكتشف ما أريد عند المقارنة بين التعديلين تعديل ترحيل.rar

الله ينور عليك أخونا الغالى الكود أصبح ممتزاً جداً ويؤدى كل ما هو مطلوب ربنا يجعله فى ميزان حسناتك باقى فقط الإستفسار بشأن أى جزء فى الكود يجب تعديله لتغيير إسم العمود الذى يستخدم لترحيل البيانات للعمود Y بدلاً من العمود A المستخدم حالياً

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

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

المرفق المرفق قد يكون هو طلبك على حسب ما فهمت فرق التاريخ بالايام.rar

الله ينور عليكم اساتذتى الأفاضل اصحاب الحلول المطروحة عندى سؤال مهم فى كود تجميد كنت قد طرحته منذ فترة ولم أجد إجابة وافية هل يمكن تجميد لأسفل ؟؟ أى أقوم بتجميد الصفوف رقم 1 و 2 و 3 مثلاً من أعلى بالطريقة العادية و يقوم الكود بتجميد الصفوف رقم 101 و 102 و 103 مثلاً من أسفل بحيث عن تحريك الملف بعجلة الماوس لأعلى ولأسفل تظل هذه الصفوف الستة ظاهرة بإستمرار طلب هام جداً وسفيد فى كثير من المشاريع والأعمال يارب يكون ينفع يتنفذ