تعديل كود ترحيل

[omhamzh]

السلام عليكم ورحمة الله 

هذا العمل خالص لوجه الله من تصميم سيدى سليم حاصبيا

احتاج تعديل بكود الترحيل الموجود بصفحة 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]

اتقدم اليك سيدى بالشكر الجزيل والدعاء الخالص بدون رياء 

نفذت ماتفضلت على وقلته ولكن لم يحدث شى

          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

[سليم حاصبيا]

ولكن لم يحدث شى لأن الييانات يتم  ترحليها  مكررة مرة بعد اخرى (بالتالي الماكرو يمسح المكرر ولا يظهرها الا مرة واحدة) 

حربي تتبع تالماكرو بتحديد صفحة One مثلاُ و الضغظ على المفتاح F8 مرة يعد احرى لمشاهدة خطوات الماكرو
وما يحدث في هذه الصفحة

و هكذا يظهر لك ان لا شيء يحدث بينما قي الحقيقة الماكرو قام بوظيفته و مسح المكرر

جربي تغيير شيئاً ما فيها  أو ان تضيفي اليها شيئاُ ما ونفذي الماكرو من جديد

[omhamzh]

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

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

قمت بحذف الارقام ما بين الاقوس

          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

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

بارك الله فيك استاذ سليم شاكرة مجهودك الطيب

[سليم حاصبيا]

في هذا الخالة
1-السطر داخل المربع الأحمر لا جاحة له
2 أضيفي ما موجود بالمربع الأزرق

[omhamzh]

حفظك رب العالمين من اى سوء تمام جدا الله يرضى عنك

وعن والديك 

اتقدم لك بكل الشكر سيدى سليم

[omhamzh]

سيدى سليم حاصبيا

طول اليوم وانا والله بمحاولات 

السماحة والله شيم الكرام امثالك

اضفت عمود اسمه رقم المستند وقمت بالتغير فى 

        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

[سليم حاصبيا]

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

اين هو هذا    اضفت عمود اسمه رقم المستند

 

[omhamzh]

هذا كود اخر سيدى سليم حاصبيا هذه صفحة كود الاستدعاء

الاضافة بصفحة Tarhel العمود B

وهى ترحل الى الصفحات

بارك الله فيك 

 

OM_HAMZA_SHEETS_NEW.xlsm

[سليم حاصبيا]

التعديل

 

[omhamzh]

زادك الله من خيره وجعل الخير فى يديك دائما وجعل ايامك كلها خير

وزادك صحة وزادك من فضله

كل التقدير لك سيدى الفاضل