في حالة تكرار خانتين في اكسل

[رفعت يسري حامد]

عندي فواتير بكتب بياناتها على الاكسل
رقم الفاتورة- اسم الشركة - الرقم الضريبي 
احيانا اسم الشركة بيتكرر 
الطبيعي في اكسل ان لما  اسم الشركة يتكرر بيظهر باقي الاسم تلقائي
هل يوجد طريقة ان لما يظهر اسم الشركة المتكرر ينزل تلقائي وايضا ينزل معاه خانة الرقم الضريبي ؟  تــــم رفـــع المـــلــف

ملف بالمطلوب.xlsx

[رفعت يسري حامد]

Sub Macro1()
'
' Macro1 ماكرو
'
' مفتاح الاختصار: Ctrl+ش
'
    ActiveCell.FormulaR1C1 = "&^%"
    Range("D103").Select
    Selection.Copy
    Range("A1").Select
    Cells.Find(What:="شركة الشرق الأوسط وشمال أفريقيا لصناعة المرطبات", After:= _
        ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Range("E19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Cells.Find(What:="&^%", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveSheet.Paste
    Range("H103").Select
End Sub

 

[رفعت يسري حامد]

هذا الكود كمثال تقريبي فقط ولكنه غير صحيح من الناحية العملية

اقصد بعد كتابة الشركة المكررة التي تنزل تلقائيًا  

يحدث الآتي:

يترك الماكرو علامة في الخلية التي يقف عليها المؤشر وهي بجوار اسم الشركة المكررة . علامة هكذا مثلاً &^%

ثم يتحرك الماكرو خلية واحدة لليمين ثم يقوم بعمل كوبي لاسم الشركة 

ويذهب إلى أعلى ثم يبحث عن اسم الشركة (الموجودة كوبي) وليس اسم شركة محدد 

ثم عندما يجدها يقوم بعمل نسخ للرقم الضريبي المجاور لهذه الشركة

ثم يبحث عن علامته وهي &^% ويقوم بلصق الرقم الضريبي مكان هذه العلامة

هل هذا من الممكن عمله في أكسل؟

أرجو من الأخوة الخبراء في الأكسل إفادتي إن أمكن ذلك.

علمًا بأنه لا يمكنني عمل فرز للشركات كما اشار أخي الكريم (مهند حسن ) نظرًا لأن الملفات أتت على هذا الشكل وإذا قمت بفرزها سوف يصعب مراجعتها على الشخص الذي سوف يستلم بعدي نظرًا لتشتت أماكن الفواتير.

 

[جنان السبيل]

لك الحل اخي

الملف لا يوجد بــه الحل المطلوب

ملف بالمطلوب الحل.xlsx

[رفعت يسري حامد]

سلمت يداك أخي الكريم. 

استفسر عن طريقة التنقل بين الخلايا 

مثلاً عندي فواتير اقوم بإدخال بياناتها 

والكتابة تكون في العامود الأول والثاني والسابع فقط وباقي الأعمدة لا اكتب فيها شيء

اريد طريقة التنقل بين الخلايا بحيث اكتب في الخلية الأولى (ثم اضغط انتر) ينقلني إلى الخلية الثانية فاكتب فيها (ثم الضغط إنتر) يتخطى باقي الخلايا في هذا الصف إلى الخلية السابعة (ثم أضغط انتر) ينقلني إلى الخلية الأولى للصف الثاني وهكذا حتى انتهي من كتابة جميع بيانات الفواتير . هل هناك حل برمجي ؟