بلال منذر

الحمد والشكر لله على وجود اناس رائعين مثلكم لايترددون في تقديم يد العون لاي شخص بارك الله فيكم أساتذنا ali mohamed ali وأستاذنا سليم حاصبيا .

السلام عليكم ورحمة الله وبركاته اسعد الله صباحكم محتاج كود عند طباعة الشيت يطبع فقط خلايا الجدول المملؤة . المرفق به المطلوب وشكرا tableau.xlsx

هل من مساعدة للرفع

السلام عليكم ورحمة الله صادفت الكثير من اكواد ترحيل البيانات وعدلت فيها لكن في كل مرة لا يرحل لي في السطر الذي اريد ان يتم فيه الترحيل ، المطلوب داخل المرفق فهل من مساعدة. للرفع TERHEL.xlsm

باك الله فيكم وجز اكم الله خير الجزاء وزادكم الله عالما مشكور جدا استاذ الفاضلahmedkamelelsayed0 said . استاذ سليم حاصيا تعجز الكلمات عن شكرك اطال الله عمرك وزاد الله علما تنفع بيه كل محتاج .

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

اعذروني عن بساطة السؤال لاني مبتدا عند ادخال هذا العدد في الخلية: 00300804002086200007 وعند الضغط على entre لا اجد نفس العدد بل اجد 300804002086200000 يحذف الصفرين واخر رقم (7) يحوله الى 0 , بالرغم من ان format cellule محددة برقم. - وعند وضع / قبل اخر عددين فانه يكتب العدد كما هو 003008040020862000/07 وكما هو مبين في الصورة انتظر منكم الرد وبارك الله فيكم

للرفع

بعد التحية والسلام ، محتاج مساعدة في حل لمشكلتي .المطلوب داخل المرفق. اتمنى ان ترسدوني الى الحل وشكرا TERHEL.xlsm

السلام عليكم ورحمة الله تعالى و بركاته. احتاج المساعدة في تعديل كود الترحيل. - أولا... أريد أن ارحل فقط الخانات الثلاث باللون الاخصر منن شيت "سند تحصيل" الى شيت "إشعار بالخصم" - ثانيا... لا اريد ان يرحل لي قيمة الرقم وهنا وجب عدم استعمال كود endRows. -ثالثا... في كل مرة اقوم بالضغط على زر الترحيل يضيف المرحلين الى صف جديد فارغ يعني صف بعد صف. وبدون الترحيل مع الترقيم التلقائي. هذا الكود وكذلك الملف. Sub terhel() Dim EndRow As Long If Sheets("ÓäÏ ÊÍÕíá").Range("B12").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("D35").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("E12").Value = "" Then MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Range("A1").CurrentRegion.Rows.Count Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 1).Value = EndRow Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 4).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 2).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 5).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(35, 4).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 6).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 5).Value Sheets("ÓäÏ ÊÍÕíá").Range("B12").ClearContents MsgBox prompt:="Êã ØÈÇÚÉ æ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub terhel.xlsm وشكرا على رحابة صدركم.

هل من مساعدة؟؟

بعد التحية والسلام للأسف لم يكن المطلوب المرغوب. -اولا هذا التعديل على الكود يرحل البيانات في المرة الاولى بشكل عادي اما في المرة الثانية فانه يرحل البيانات فقي نفس مكان البيانات السابقة المرحلة...يعنى انه لا يرحل البيانات صف بعد صف. - ثانيا لا اريد ان استعمل الترقيم التلقائئ (.Range("A1").CurrentRegion.Rows.Count )....أريد ان يكون مكان الرقم فارغ..يعنى يرحل لي ثلاث خانات فقط... فهل من مساعدة..

بارك الله فيك استذنا ahmedkamelelsayed0 وجزالك الله كل الخير وزادك الله علما.

فصلا وليس امرا قيام بتعديل طفيف لهذا الكود ليرحل البيانات بدون رقم تسلسلي و يبدا الترحيل من خلية الاسم D15 Sub terhel() Dim EndRow As Long If Sheets("ÓäÏ ÊÍÕíá").Range("B12").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("D35").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("E12").Value = "" Then MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Range("A1").CurrentRegion.Rows.Count Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 1).Value = EndRow Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 4).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 2).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 5).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(35, 4).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 6).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 5).Value Sheets("ÓäÏ ÊÍÕíá").Range("B12").ClearContents MsgBox prompt:="Êã ØÈÇÚÉ æ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub terhel.xlsm

شكر خالص لاستذنا القدير سليم حاصبيا. جزاك الله عنا خير الجزاء.

السلام عليكم . المطلوب بالتفصيل في مرفق num-auto-function.xlsm

السلام عليكم ورحمة الله وبركاته ،جمعة مباركة. انا مبتدى في الاكسيل وارهقني كود ترحيل بيانات من خلايا متفرقة من شيت (سند تحصيل) الى جدول في شيت (اشعار بالخصم). استعنت باكواد ترحيل البيانات الموجودة في المنتدى لكن ما صلحت معي حتى اذا رحل المعلومات يرحلها بشكل عادي لكن في مرة ثانية يرحلهم في نفس مكان الاول يعني يحذف الاول ويعوضهم بلثاني. طلبت عدة مرات لكن بدون اجابة ، فهل اجد هذي المرة من يرشدني الى الحل؟ وهذا هو المرفق tp- en train de modifié.rar

السلام عليكم ورحمة الله وبركاته. سبق لي ان طلبت هذا الطلب عدة مرات لكن من دون إجابة واعلم انه فقط الوقت ضيق . محتاج فقط تعديل في كود ترحيل بيانات من شيت الى شيت اخرى، حبيت اسوى عدة اشياء لكن هذا الكود دوخني لاني طالب جديد في اكسيل. فهل من مساعدة ؟ tp (Enregistré automatiquement).xlsm

بعد السلام و الشكر لاستذتنا الكرام واعضاءه المحترمين. عند تعيين ماكرو بزر تخرج رسالة نصية تحذيرية "la référence doit renvoyer a une feuille macro"سارفق الصورة التي تظهر لي.

السلام عليكم محتاج كود لتحكم في حجم خلية محددة من ورقة وليس كل الورقة.

السلام عليكم ورحمة الله متحتاج مسعدة في زر التعديل لليوزرفورم....》عندما اقوم بالتعديل والضغط على زر التعديل يقوم بالتعديل لكن يقوم بمسح اخر عمود وهو عمود حسابي اسمه الخصم. وكذلك زر المسح احب ان يقوم بمسح الصف باكمله وليس البيانات الموجودة في ذلك الصف . فهل من مساعدة tp-zohra.xlsm

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

السلام عليكم ورحمة الله تعالى وبركاته. انا بصدد تعلم اكسيل اطبق كل ما اقرئه وبدات في عمل تطبيق وجهاتني عدة صعوبات. لدي ملف اكسيل فيه 3 ورقات . من ورقة سند تحصيل اختار الاسم تخرج لي كل المعلومات عملت زر لطباعتها لكن اريد ان اضيف كود . هذا الكود عند طباعة الورقة يقوم بتحويل الاسم ومبلغ الى ورقة اخرى في جدول اخر. سارفق الملف به الشرح الوفي. فهلا ارشدتموني الى كيفية عملها وتعلمها لان والله حاولت وحاولت كثير لكن فشلت وكي اكمل التطبيق يجب اكمال هذي الخطوة . وفي الاخير اسمحولي على كثرة الكتابة. TP-bilou (version 1).xlsm

هل من مساعدة في كيفية ترحيل او حتى ارشادي لفعل حتى جزء المتعلق بالترحيل. تقبلوا منى غائق احترام والتقدير.

السلام عليكم ورحمة الله تعالى وبركاته. انا بصدد تعلم اكسيل اطبق كل ما اقرئه وبدات في عمل تطبيق وجهاتني عدة صعوبات. لدي ملف اكسيل فيه 3 ورقات . من ورقة سند تحصيل اختار الاسم تخرج لي كل المعلومات عملت زر لطباعتها لكن اريد ان اضيف كود . هذا الكود عند طباعة الورقة يقوم بتحويل الاسم ومبلغ الى ورقة اخرى في جدول اخر. سارفق الملف به الشرح الوفي. فهلا ارشدتموني الى كيفية عملها وتعلمها لان والله حاولت وحاولت كثير لكن فشلت وكي اكمل التطبيق يجب اكمال هذي الخطوة . وفي الاخير اسمحولي على كثرة الكتابة. TP-bilou (version 1).xlsm