الساحر NeT

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

تم الحل شكرا جدا

السلام عليكم ورحمة الله وبركاته الاستاذة الكرام عندي كود ترحيل البيانات اريد التنبيه عند وجود بيانات مكررة الشيت المراد التعديل عليه بااسم test مشروح فيه المطلوب ويوجد شيت اخر بااسم أصناف يوجد به المطلوب لكني ماعرف اعمله اصنافform - .rar test.rar

استاذ سليم شكرا لحضرتك الحمد لله تم حل المشكلة

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

أريدها في أعمدة متجاورة بداية من العمود a

استاذ سليم انا اريد ترحيل البيانات من ورقة 1 وورقة 2..... الخ الي ورقة all الشيت به مثال وهايوضح اكتر ان شاء الله شكرا لحضرتك

استاذي الفاضل سليم اسف لعدم تمكني من التوضيح حضرتك عمل ماكرو لترحيل البيانات من ورقة اسمها 1 الي ورقة تحت مسمى All عند الترحيل من الورقة المسماه ب 1 يتم الترحيل وعند الترحيل من صفحة أخرى تحت أي مسمى يدرج خطأ لان الماكرو مدرج في الكود ان البيانات ستنقل من 1 الي all انا محتاج اني ارحل من اي ورقه النطاق المطلوب ترحيله من c5:c205, f5:f205, j5:j205, m5:m205, v5:x205 مطلوب ترحيلهم من اي ورقة لورقة all وادراجهم بعد انتهاء اخر خلية ممتلئة بالعمود a

شكرا استاذ سليم على المتابعه ربنا يبارك فيك يارب الماكرو.xlsm

السلام عليكم ورحمة الله وبركاته السادة الأساتذة الكرام برجاء المساعدة قمت بعمل ماكرو يرحل من شيت لشيت اخر فاانا استخدم ملف الاكسل به شيتات كثيرة عند الترحيل لازم اغير اسم الشيت للاسم المدرج في الماكرو لكي يتم الترحيل فكيف أفعله على جميع الشيتات بدون تغيير أسمائهم الكود Sub ÊÑÍíá() Application.ScreenUpdating = False Sheets("all").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Sheets("1").Select Range("F5:G5").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("all").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 1).Range("A1").Select Sheets("1").Select Range("C5").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("all").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 1).Range("A1").Select Sheets("1").Select Range("M5:N5").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("all").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 1).Range("A1").Select Sheets("1").Select Range("J5").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("all").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveCell.Offset(0, 1).Range("A1").Select Sheets("1").Select Range("V5:X5").Select Range(Selection, Selection.End(xlDown)).Select Range("V5:X200").Select Application.CutCopyMode = False Selection.Copy Sheets("all").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A20").Select Sheets("1").Select ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 2 Range("F5:G5").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.ClearContents Range("M5:N5").Select Range(Selection, Selection.End(xlDown)).Select Selection.ClearContents Range("M13:N13").Select End Sub

السلام عليكم ورحمة الله وبركاته اخواني الكرام ممتن جدا وشاكر جدا مجهوداتكم ربنا يبارك فيكم ويحفظكم برجاء المساعدة في تحديد خلايا واعمدة محددة في محرر ال Vba عندي هذا الكود للتوضيح Sub E????() Dim lastrow As Variant lastrow = [a205].End(xlUp).Row Range("c5:m" & lastrow).Copy Sheets("Copy").Range("c" & Sheets("Copy").[c205].End(xlUp).Row + 1) Range("c5:m" & lastrow).ClearComments End Sub اريد تحديد العمود c, d, e, f, j, k, l, m, n, p, q بداية من الrow 5 ارجو الإفادة تفضل استاذنا هذا الملف به ماذا اريد شكرا لحضرتك على المتابعه شكرا لكم test.xlsm

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

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

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

السلام عليكم ورحمة الله وبركاته اخواني الكرام اريد من حضراتكم المساعدة في عندي جدول لصرف صنف معين بالكود الخاص به مثلا انا هاصرف 5 من الصنف أسفل بعض بحيث كل كود في خليه اريد ان يظهر بجانبها الرصيد المتبقي يعني الرصيد 10 وانا صرفت 1 يكون خليه مقابله ليها فيها المتبقي شكرا لكم عدم وجود الملف بالمشاركة يؤدى بدوره الى حذف المشاركة بناءاً على تعليمات وقوانين المنتدى , لأن ذلك يؤدى الى اهدار وقت الأساتذة بلا اى فائدة

ممكن التوضيح يا اخي

السلام عليكم ورحمة الله وبركاته اخواني الكرام اشكر الاستاذ الكبير سليم حاصبيا على استجابه السريعة وحلولة الوفيرة بارك الله فيه وجزاه عنا كل خير طلبي السابق كان عن ان الخلية تقبل أرقام وعلامتي "/"، - " وتم الحل السريع من الاستاذ سليم حاصبيا انا اريد علامتي ال" - "،" /" في وسط الأرقام مثلا 123-6555/885 شكرا لكل القائمين في هذا الصرح المبارك طالما تقريبا نفس الموضوع فلا تقوم بفتح مشاركة جديدة وأكمل هنا

السلام عليكم ورحمة الله وبركاته اخواني الكرام السلام عليكم ورحمة الله وبركاته وجدت شرح على هذا الصرح المبارك عن ان الخلية تقبل أرقام فقط وشرح اخر ان الخليه تقبل أرقام وحروف لكني اريد ان تقبل أرقام وعلامتي "-" و ال "/" فقط بارك الله فيكم وجزاكم الله خير الجزاء

مش اضيف العمود يااخى انا عاوز ادخل الاكواد ال فى العمود k يعنى لو عندى كود فى الخلية عادى مقابل له كود اذا كان موجود فى العمود k او h مقابل لنفس الكود اكتب ok

الشيت محدد لكل كود مثلا في ورقة Codes فى العمود A فى الخلية A2 موجود كود 4846 وفى العمود H فى الخلية H2 موجود كود 4845 الكود الثانى لازم يكون مع الكود الاول ففى الشيت مطبقه معادلة عند كتابة كل كود ففى الورقه الاخرى من الاكسل عند كتابة الكود فى الخلية E5 ومقابل لها الكود الذى فى الخلية L5 اذا كان هو الكود المحدد فى ورقة CODES فى العمود H اكتب OK لو مش هو اكتب CHEK انا بدى اضيف مع العمود H العمود K

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل بارك الله فيكم وفى مجهوداتكم ونفع الله بكم الاسلام والمسلمين عندى فى العمل شيت اكسيل به اكود مرفق لكم فى عمود CORRECT عند تطابق كود ما مع كود فى الجدول اكتب ok ولو مع كود اخر او الخلية فارغة اكتب chek اريد ان مثلا الكود فى الخلية e6 لو قابله الكود فى الخلية l6 من كودين انا محددهم فى الجدول اى واحد منهم يكتب ok هو حاليا موجود كود واحد فقط فى الجدول انا بدى اضيف كود اخر على نفس المعادلة الاكواد المطبق عليها المعادلة فى عمود I وانا اريد اضافة الاكواد التى بعمود K فى الشيت المرفق ارجو الافادة Cheat.xlsx

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل سليم حاصبيا ممكن اطلب من حضرتك شرح لاجابتك على سؤالي جزاك الله خير الجزاء من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات... يكفيك كلمة للــــــرفـع Exemple.xlsx

استاذي الفاضل انا لا اريد التعديل على صورة انا اريد العد مثل الصورة في شيت الاكسل شكرا لحضرتك شيت الاكسل بالمرفقات مثال.xlsx

السلام عليكم ورحمة الله وبركاته اخواني الكرام اريد من حضراتكم المساعدة في عد الخلايا التي تحتوي علي كود معين والعد في أول خليه فيها الكود للتوضيح مثال في المرفق

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