بلال منذر

الحمد والشكر لله على وجود اناس رائعين مثلكم لايترددون في تقديم يد العون لاي شخص بارك الله فيكم أساتذنا 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

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