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

[محمد عبد الناصر]

السلام عليكم الكود ده كان شغال معايا بس بدل كلمة
tmam
 كنت بكتب ارقام 
عايز اكتب لو يساوي تم الرد ينقل الاصفف 
 

Sub Move()


    Dim LR As Long, I As Long, X As Long
    LR = Sheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row
    X = 5
    Application.ScreenUpdating = False
        
        For I = 6 To LR
            If Cells(I, "G").Value = "tmam" Then Rows(I).Copy Sheets("Sheet2").Range("a" & X): X = X + 1
        Next I
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

انا دايخ فيه من امبارح مش عارف فين المشكلة

تم تعديل يناير 31, 2018 بواسطه محمد عبد الناصر

[أبوعيد]

غير "tmam" في الكود إلى كلمة "تم الرد"

[محمد عبد الناصر]

On 1/31/2018 at 2:31 AM, أبوعيد said:

غير "tmam" في الكود إلى كلمة "تم الرد"

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

[أبوعيد]

طيب أرسل أنت الملف حتى يتم العمل عليه

يعني أنت تساعدنا ونحن نساعدك 

على العين والراس

[محمد عبد الناصر]

12 hours ago, أبوعيد said:

طيب أرسل أنت الملف حتى يتم العمل عليه

يعني أنت تساعدنا ونحن نساعدك 

على العين والراس

اتفضل الملف مرفق اهو فيميزان حسناتكم يارب

md.rar

[محمد عبد الناصر]

upppppp

[أبوعيد]

الأن يمكنك الكتابة بالعربي في الخلية N1

أي كلمة تكتبها في الخلية سيكتبها الكود إذا تحققت الشروط

تفضل

md1.xlsm

[محمد عبد الناصر]

18 hours ago, أبوعيد said:

الأن يمكنك الكتابة بالعربي في الخلية N1

أي كلمة تكتبها في الخلية سيكتبها الكود إذا تحققت الشروط

تفضل

md1.xlsm

يا فندم انا جربت زي م حضرتك قولتلي هو حضرتك اكد مجربتش الملف انا كل اللي عايزه لو في الخليه اتش مكتوب تم الرد ياخد الصف كوبي يوديه للشيت 2 
اسف لتعب حضرك معايا 

 

[أبوعيد]

تمام

يمكن التعديل على الملف إذا لم يحقق المطلوب

جرب المرفق

md2.xlsm

[محمد عبد الناصر]

15 hours ago, أبوعيد said:

تمام

يمكن التعديل على الملف إذا لم يحقق المطلوب

جرب المرفق

md2.xlsm

شكراااااااااااااااااااااااااااااااااااااااااااااا لحضرتك جدااااااااااااااااااااااااااااااااااااااا