omhamzh قام بنشر ديسمبر 18, 2020 قام بنشر ديسمبر 18, 2020 (معدل) السلام عليكم ورحمة الله هذا العمل خالص لوجه الله من تصميم سيدى سليم حاصبيا احتاج تعديل بكود الترحيل الموجود بصفحة Tarhel الكود لا يكرر السطر المتشابه يمسحها احتاج لتعديل لانى صادف وان ادخل اسطر متشابهة وعند ترحيلها الكود يحذف المكرر حاولت التعديل على هذا السطر Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _ Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=2 وافرغت ما بين الاقواس فعلا تم الترحيل للتكرار بس المشكلة انه بيرحل الهيدر ايضا التعديل المطلوب لو امكن بعد الضغط على زر الترحيل يتم مسح صفحة الترحيل 2-امكانية ترحيل صف متشابه مع عدم ترحيل الهيدر مرة اخرى الدعاء والله باستمرار لصاحب الكود السيد الاستاذ سليم حاصبيا بارك الله له فى حياته ان شاء الله OM_HAMZA_SHEETS_NEW.xlsm تم تعديل ديسمبر 18, 2020 بواسطه omhamzh
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 اتقدم اليك سيدى بالشكر الجزيل والدعاء الخالص بدون رياء نفذت ماتفضلت على وقلته ولكن لم يحدث شى Spes_sh.Cells(Max_ro, 1).Resize(, 12).Delete Shift:=2 Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _ Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=1 ومرة واحدة توقف الكود هنا If Not Application.Evaluate("ISREF('" & _ .Range("B" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ اريد بعد اذنك الترحيل يتم الهيدر مرة واحدة فقط واى شئ اكتبه فى صفحة الترحيل واضغط ترحيل يضاف بعد اخر سطر للصفحة المختارة التى تحت هيدر اسم الحساب تحت اخر سطر به بيانات ويتم مسح صفحة الترحيل استعداد للكتابة به مرة اخر وللتأكد من ان الارقام تم ترحيلها جزاك الله كل خير ورزقك من حيث لا تحتسب OM_HAMZA_SHEETS_NEW.xlsm
سليم حاصبيا قام بنشر ديسمبر 19, 2020 قام بنشر ديسمبر 19, 2020 ولكن لم يحدث شى لأن الييانات يتم ترحليها مكررة مرة بعد اخرى (بالتالي الماكرو يمسح المكرر ولا يظهرها الا مرة واحدة) حربي تتبع تالماكرو بتحديد صفحة One مثلاُ و الضغظ على المفتاح F8 مرة يعد احرى لمشاهدة خطوات الماكرو وما يحدث في هذه الصفحة و هكذا يظهر لك ان لا شيء يحدث بينما قي الحقيقة الماكرو قام بوظيفته و مسح المكرر جربي تغيير شيئاً ما فيها أو ان تضيفي اليها شيئاُ ما ونفذي الماكرو من جديد 1
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 شكر لحضرتك استاذ سليم ان احتاج الى هذا التعديل الى ان يترحل حتى المكرر لا يمسح اما الان المكرو يمسح المكرر قمت بحذف الارقام ما بين الاقوس Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _ Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), Header:=2 الى Spes_sh.Range("A1").CurrentRegion.RemoveDuplicates _ Columns:=Array(), Header:=2 يتم ترحيل المكرر بس بيرحل الهيدر بين الاسطر هذا ما احتاج لتعديله لو امكن بارك الله فيك استاذ سليم شاكرة مجهودك الطيب
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 19, 2020 أفضل إجابة قام بنشر ديسمبر 19, 2020 في هذا الخالة 1-السطر داخل المربع الأحمر لا جاحة له 2 أضيفي ما موجود بالمربع الأزرق 1
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 حفظك رب العالمين من اى سوء تمام جدا الله يرضى عنك وعن والديك اتقدم لك بكل الشكر سيدى سليم
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 سيدى سليم حاصبيا طول اليوم وانا والله بمحاولات السماحة والله شيم الكرام امثالك اضفت عمود اسمه رقم المستند وقمت بالتغير فى If Not Application.Evaluate("ISREF('" & _ .Range("b" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("b" & i) الى If Not Application.Evaluate("ISREF('" & _ .Range("c" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("c" & i) وكذلك Sub transfer_data() Flter_rg.AutoFilter 2, Spes_sh.Name الى Sub transfer_data() Flter_rg.AutoFilter 3, Spes_sh.Name ونجح الكود تمام المشكلة تكمن فى عند الترحيل بعد الترحيل الذى وجهتنى سيادتكم اليه الهيدر اتلغى خالص بمعنى عند الترحيل والصفحة ليس بها بيانات الا الهيدر مثلا الصفحة one واكتب بيانات بصفحة الترحيل واضغط ترحيل البيانات ترحل بس تمسح الهيدر من الصفحة one هل من توجيه لعلاج هذه المشكلة مع الشكر دائما لحضرتك وكذلك الدعاء عن ظهر الغيب لحضرتك بالتوفيق دائما OM_HAMZA_SHEETS_NEW.xlsm
سليم حاصبيا قام بنشر ديسمبر 19, 2020 قام بنشر ديسمبر 19, 2020 27 دقائق مضت, omhamzh said: سيدى سليم حاصبيا طول اليوم وانا والله بمحاولات السماحة والله شيم الكرام امثالك اضفت عمود اسمه رقم المستند وقمت بالتغير فى If Not Application.Evaluate("ISREF('" & _ .Range("b" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("b" & i) الى If Not Application.Evaluate("ISREF('" & _ .Range("c" & i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("c" & i) وكذلك Sub transfer_data() Flter_rg.AutoFilter 2, Spes_sh.Name الى Sub transfer_data() Flter_rg.AutoFilter 3, Spes_sh.Name ونجح الكود تمام المشكلة تكمن فى عند الترحيل بعد الترحيل الذى وجهتنى سيادتكم اليه الهيدر اتلغى خالص بمعنى عند الترحيل والصفحة ليس بها بيانات الا الهيدر مثلا الصفحة one واكتب بيانات بصفحة الترحيل واضغط ترحيل البيانات ترحل بس تمسح الهيدر من الصفحة one هل من توجيه لعلاج هذه المشكلة مع الشكر دائما لحضرتك وكذلك الدعاء عن ظهر الغيب لحضرتك بالتوفيق دائما OM_HAMZA_SHEETS_NEW.xlsm 35.21 kB · 0 downloads اين هو هذا اضفت عمود اسمه رقم المستند 1
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 هذا كود اخر سيدى سليم حاصبيا هذه صفحة كود الاستدعاء الاضافة بصفحة Tarhel العمود B وهى ترحل الى الصفحات بارك الله فيك OM_HAMZA_SHEETS_NEW.xlsm
omhamzh قام بنشر ديسمبر 19, 2020 الكاتب قام بنشر ديسمبر 19, 2020 زادك الله من خيره وجعل الخير فى يديك دائما وجعل ايامك كلها خير وزادك صحة وزادك من فضله كل التقدير لك سيدى الفاضل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.