fatma ali

السلام عليكم ورحمة الله وبركاته اولا شكرا للعضو أبو حنين والعضو الـعيدروس على الاهتملم والمساعده ثانيا لقد توصلت للحل بتغيير بسيط فى الكود هذا هو الكود للافاده Application.ScreenUpdating = False Dim i As Long, ii As Byte With Sheets("العملاء") LR = [A9999].End(xlUp).Row For i = 2 To LR If .Cells(i, 1) = Range("d4") Then For ii = 3 To 8 If IsEmpty(.Cells(i, ii)) Then .Cells(i, ii) = Range("h52").Value Exit For End If Next End If Next End With

انا فعلا كنت عملت كده قبل ما ابعت لحضرتك بس لما اجى اضغط على الزرار او اعمل رن البرنامج بيهنج ،،،،

السلام عليكم ورحمه الله وبركاته شكرا لحضرتك على المساعده ولكن عند تطبيق الكود على الملف الاصلى فانه يظهر خطأ ولكنه يقوم بتنفيذ المطلوب مع العلم اننى لم اغير الا ارقام بعض لخلايا فقط Error 1004 Application defined or object defined error Dim LastRow As Long, i As Long, ii As Byte With Sheets("الأعضاء") LastRow = .Cells(.Rows.Count, "A").End(xlUp) For i = 2 To LastRow 'الخطأ فى هذا السطر' If .Cells(i, 1) = Range("d4") Then For ii = 3 To 9 If IsEmpty(.Cells(i, ii)) Then .Cells(i, ii) = Range("h41").Value Exit For End If Next End If Next End With حتى اننى قمت باضافه اسم الشيت للخلايا الموجوده فى شيت الفاتورة Dim LastRow As Long, i As Long, ii As Byte With Sheets("الأعضاء") LastRow = .Cells(.Rows.Count, "A").End(xlUp) For i = 2 To LastRow 'الخطأ فى هذا السطر' If .Cells(i, 1) = Sheets("الفاتورة").Range("d4") Then For ii = 3 To 9 If IsEmpty(.Cells(i, ii)) Then .Cells(i, ii) = Sheets("الفاتورة").Range("h41").Value Exit For End If Next End If Next End With ولكن يظهر نفس الخطأ ارجو الافاده ،،،

السلام عليكم ورحمه الله وبركاته اريد ترحيل بيانات خليه معينه من شيت لاخر عن الضغط على زر بناء على كود العميل الشرح مفصل فى الملف المرفق ارجو الافاده ولكم جزيل الشكر book.rar

السلام عليكم ورحمه الله وبركاته يوجد بالملف المرفق زر اريده ان يعمل عند الضغطه الاولى فقط او عمل المطلوب فى الملف بطريقه اخرى ولكم جزيل الشكر book11.rar

السلام عليكم ورحمة الله وبركاته لقد قمت بالبحث على النت ووجدت كود وطبقته ولم يظهر الخطأ Private Sub CommandButton3_Click() LR = [A40].End(xlUp).Row On Error Resume Next Err.Clear For r = 12 To LR x = WorksheetFunction.VLookup(Cells(r, 1), Sheets("ÇáãÎÒä").Range("a3:c550"), 3, 0) If Cells(r, 3) >= x Then Cells(r, 4) = Cells(r, 3) - x: Cells(r, 3) = x Else Cells(r, 4) = 0 If Err.Number = 0 Then 'Handle found case Else ' An error means not found handle here Err.Clear End If Next r On Error GoTo 0 End Sub ولكن عندى طلب اخر .... عندى زر يقوم بترحيل بيانات عمود معين من شيت لاخر عند الضغط على الزر اكثر من مرة يقوم بالترحيل فى كل مرة وهذا يغير النتيجه .... انا اريده ان يرحل مرة واحده فقط طالما لم يتم تغيير البيانات فهل من الممكن ذلك ؟؟

السلام عليكم ورحمة الله وبركاته اولا شكرا جزيلا لحضرتك لاهتمامك ولتبسيط الكود وجعله الله فى ميزان حسناتك لكن عندما جربت الكود على الملف الاصلى وليس الملف المرفق فانه يقوم بتنفيذ الكود ولكن يكون هناك خطأ Unable to get the vlookup property of the Worksheet function class وهل يمكن عمل هذا الكود بداله if عاديه بدون ماكرو للتسهيل على المستخدم بدلا من الضغط على الزر

السلام عليكم ورحمه الله وبركاته اتوجه بالشكر لاعضاء المنتدى لما يقدموه من لنا من مساعده ، ولكن لى طلب اتمنى الافاده فيه .... اريد تطبيق كود ماكرو به داله if و vlookup على مجموعه من الخلايا وليست خليه واحده واذا امكن فعل هذا الطلب بالدوال وليس بزر ايضا كيفيه التحكم فى عدد مرات ضغط المستخدم على زر ، بمعنى ان ينفذ الماكرو عند الضغط على الزر مرة واحده اما اذا تم الضغط مرة اخرى فلا يحدث شىء book.rar ولكم جزيل الشكر