اذهب الي المحتوي
أوفيسنا

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


omhamzh
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

          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

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

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

رابط هذا التعليق
شارك

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

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

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

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

        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

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

 

O_H.png

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information