بحث متكرر داخل عمود عن ارقام واستبدالها بأخرى

[عاطف عبد العليم محمد]

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

مرفق ملف في صفحة قيود اليومية يوجد عمود يراد البحث فيه واستبدال القيم 

صفحة ارقام بها الارقام التي يراد البحث عنه والارقام المراد ان تستبدل بها

شاكرا لكم 

بحث واستبدال متكرر.xlsx

[محي الدين ابو البشر]

السلام عليكم

ربما?

=IFERROR($C$6:$C$4329;INDEX(الارقام!$D$3:$D$42;MATCH($C$6:$C$4329;الارقام!$E$3:$E$42;)))

 

[عاطف عبد العليم محمد]

استاذ حسين مامون

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

ما اريد أخي الفاضل  ماكرو  يبحث عن الرقم القديم الموجود في صفحة الارقام وليكن الأول وهو 1246 يبحث عنه في صفحة قيود اليومية فإذا وجده يبدله بالرقم الجديد وهو 1300  فيتم تبديل كل 1246 لتصبح 1300  ثم يعود الماكرو  ليبحث عن الرقم القديم الثاني الموجود بصفحة الارقام وهو 1247  يبحث في صفحة اليومية  ويبدله بالرقم الجديد 1301 وهكذا 

شكرا جزيلا لك

الأخ /محي الدين ابو البشر

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

شكرا جزيلا لكم وأريد الحل بماكرو  كما اسلفت في الردود السابقة

وفقكم الله

[محي الدين ابو البشر]

Sub test()
    With Cells(6, 4).Resize(Cells(Rows.Count, 3).End(xlUp).Row - 5)
        .FormulaR1C1 = _
        "=IFERROR(R6C3:R4329C3,INDEX(ÇáÇÑÞÇã!R3C4:R42C4,MATCH(R6C3:R4329C3,ÇáÇÑÞÇã!R3C5:R42C5,)))"
        .Value = .Value
    End With
End Sub

 

[فوزى فوزى]

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

R6C3:R4329C3

[عاطف عبد العليم محمد]

عذرا  يوجد خطا في الملف وهذا الصحيح

السلام عليكم 

بحثت في مواقع اخرى ولم اهتدي لكود مناسب 

لعل الاستاذة الكبار في المنتدى يفيدونا 

بحث واستبدال متكرر.xlsx

[حسين مامون]

الاستاد عاطف

ارى انك لم تبدي اي رأي حول مشاركة الاستاد محي الدين ابو البشر

حاول شرح اكثر لما تريد

ضع النتيجة المتوقعة في عمودين اضافيين اخرين في الصفحة الاولى والثانية

[عاطف عبد العليم محمد]

شكرا لاهتمامك  اخي حسين مامون

اضفت صفحة توضيح 

بحث واستبدال متكرر.xlsx

[حسين مامون]

انظر وضعت نتيجة متوقعة في صفحة الارقام ادا كان هذا ما تريد فيكفي انشاء ماكرو نسخ ولصق 

النتيجة التي وضعتها كمثال هي نقل ارقام جديدة الى ارقام قديمة صفحة الارقام ثم نقل القيم من صفحة قيود الى صفحة الارقام في عمود ارقام جديدة

بحث واستبدال متكرر (2).xlsx

تم تعديل نوفمبر 26, 2019 بواسطه حسين مامون

[محي الدين ابو البشر]

أرجو أن يكون المطلوب

بحث واستبدال متكرر (2).xlsm

[عاطف عبد العليم محمد]

    Range("c6").Resize(UBound(A)) = Application.Transpose(A)

الأخ الكريم محي الدين ابو البشر

جزاك الله خيرا  ، أرجو تعديل الكود لأني اريد الأرقام أن تتغير في نفس العمود  c 

بعد تعديل في الكود عاليه  كانت d6  

تمام أن شاء الله

وفقكم الله

تم تعديل نوفمبر 26, 2019 بواسطه عاطف عبد العليم محمد

[محي الدين ابو البشر]

أخي عاطف

شكراً لك 

والتعديل صحيح انا تقصدت ان تقارن النتيجة قبل تبديل العمود C

بارك الله بك

[عاطف عبد العليم محمد]

الأخ الكريم محي الدين ابو البشر

لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4  هل هذا صحيح ؟

 B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2)

مالفكرة من ذلك ؟ و هل ممكن تغيير ذلك حتى لو رقم واحد هو المطلوب تغييره  ؟

ولو سمح وقتك بشرح السطر عاليه 

وفقك الله  

[محي الدين ابو البشر]

أخ عاطف آسف على التأخير

أولا بالنسبة 

B = Sheets("الارقام").Range("d3").Resize(Sheets("الارقام").Cells(Rows.Count, 4).End(xlUp).Row - 5, 2)

لقراءة الأرقام الجديدة والقديمة في "الأرقام" وتتم بعذ ذلك مقارنة القيم في العمود c (مصفوفة A)مع العمود الأول من المصفوفة B , في حال التطابق يقوم بتغيير القيمة في A بالقيمة في العمود الثاني من المصفوفة B

بالنسبة لـ "لاحظت ان الكود لايعمل اذا كان عدد الارقام المطلوب تغييرها أقل من 4  هل هذا صحيح ؟" آسف أن اقول لك ان هذا غير صحيح

[عاطف عبد العليم محمد]

شكرا جزيلا ، وفقكم الله