المساعدة فى كتابة كلمة فى خلية بناء على تطابق الارقام

[وليد المصرى 1]

السلام عليكم جميعا اخوانى الاعزاء

المطلوب هو عند تطابق الارقام بين اتطابق ارقام.xlsxلعمود B والعمود H  تكتب كلمة DONE قى العمود G

[محمد يوسف ابو يوسف]

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

 

اخي وليد المصرى 1

تفضل تطابق ارقام (1).xlsx

[وليد المصرى 1]

اخى يوسف تمام جدا وشكرا لتعبك  ولكن العمود G موجود فيه كلمة انا عايز لما يحصل تطابق للارقام تتغير لكلمة DONE

يعنى العمود g مينفعيش يكون فيه معادلات ممكن كود فى الحالة دية  

 

الكود دة تمام موجود عندى ولكن ما بيشتغل اتوماتيك 

لو امكن بس حد يعدل علية انه يشتغل اتوماتيك 

 

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
       If Not Intersect(Target, Range("K10:K500000")) Is Nothing Then
             If Target.Value = "Done" Then Target.Offset(, -4) = "Done"
            End If
    
Application.EnableEvents = True

End Sub

تم تعديل ديسمبر 22, 2022 بواسطه وليد المصرى 1

[محمد يوسف ابو يوسف]

اخي وليد المصرى 1

 

اسف علي التأخير

تفضل تطابق ارقام.xlsm

 

هذا الكود المستخدم

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim m As Integer
m = 7
Do While Cells(m, "b") & Cells(m, "h") <> ""
If Cells(m, "b") & Cells(m, "h") >= 1 Then


Application.ScreenUpdating = False '

   Cells(m, "g") = _
        "=IF(RC[-5]&RC[1]="""",""No "",IF(RC[-5]-RC[1],""Can Extension"",""DONE""))"

    Cells(m, "g") = Cells(m, "g").Value
Else
Cells(m, "K") = ""
End If
 m = m + 1
Loop
Application.ScreenUpdating = True

End Sub

 

[وليد المصرى 1]

اخى الكريم الف شكر وتعبك معايا

 

ممكن تعديل بسيط نخلى العمود G فاضى بعمى انى اعدل واكتب فيه الا انا عايزة 

بس بمجرد يكون تطابق تلغى الا انا بكون كاتبة وتكتب DONE 

اسف يا استاذ محمد الكود بطىء جدا .. لو فى الامكان تسريع الكود

تم تعديل ديسمبر 25, 2022 بواسطه وليد المصرى 1

[محمد يوسف ابو يوسف]

اخي وليد المصرى 1

كيف يتم ذالك  اسناء وجود شرط

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

[وليد المصرى 1]

طيب اذا فى حل تانى عندك مع وجود شرط

لان العمود g بكتب فيه جمل خاصة بالشغل وعند تحقق التطابق يمسح اى جملة ويكتب كلمة done

[محمد يوسف ابو يوسف]

ممكن  نخلي الشرط في عمود f

 

[وليد المصرى 1]

العمود f فى معادلات 

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

[محمد يوسف ابو يوسف]

اخي  وليد المصرى 1

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

تفضل -1تطابق ارقام.xlsm

يسمح لك بكتابة الجمل في عمود (g) اذا  لم يتم تطابق  بين العمودين

الكود بعد النعديل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim w As Integer
w = 7
'Application.ScreenUpdating = False '
Do While Cells(w, "h") <> ""
Set ws = Sheets("Sheet1")
If Not ws.Cells(w, 2) = ws.Cells(w, 8) Then
Else
Cells(w, "g") = "DONE"
 End If
 w = w + 1
Loop
' Application.ScreenUpdating = True
End Sub

 

[وليد المصرى 1]

الكود ممتاز ولكن بطىء والشيت بيعد من 1 الى 100 و الموس بيتنقل بالعافية . عند عمل نسخ خلية بيخد وقت .. بصراحة مش عارف اية المشكلة 

لو عند حضرتك حل 

[محمد يوسف ابو يوسف]

...الملف المرسل  يعمل لدي جيداً  اذ كنت تستخدم ملف اخر فعليك ارسالة ليتم  عمل الازم عليه

 

[وليد المصرى 1]

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

هو الملف عندى كبير جدا علشان كدا لما الكود بيشتغل بيعد ويخد وقت طويل جدا

فلو امكن نشوف حل 

[محمد يوسف ابو يوسف]

اضغط الملف و ارفعه 

وان شاء الله يتم اكتشاف المشكلة

[وليد المصرى 1]

اتفضل يا اخى

wrk 1.rar

[محمد يوسف ابو يوسف]

اخي الملف محمي بكلمة سر

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

[وليد المصرى 1]

WORK 2.raاتفضل اخى 

[وليد المصرى 1]

السلام عليكم 

منتظرك اخى محمد