اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

fatma ali

عضو جديد 01
  • Posts

    8
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 Neutral

عن العضو fatma ali

البيانات الشخصية

  • Gender (Ar)
    أنثي
  • Job Title
    لا اعمل
  1. السلام عليكم ورحمة الله وبركاته اولا شكرا للعضو أبو حنين والعضو الـعيدروس على الاهتملم والمساعده ثانيا لقد توصلت للحل بتغيير بسيط فى الكود هذا هو الكود للافاده 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
  2. انا فعلا كنت عملت كده قبل ما ابعت لحضرتك بس لما اجى اضغط على الزرار او اعمل رن البرنامج بيهنج ،،،،
  3. السلام عليكم ورحمه الله وبركاته شكرا لحضرتك على المساعده ولكن عند تطبيق الكود على الملف الاصلى فانه يظهر خطأ ولكنه يقوم بتنفيذ المطلوب مع العلم اننى لم اغير الا ارقام بعض لخلايا فقط 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 ولكن يظهر نفس الخطأ ارجو الافاده ،،،
  4. السلام عليكم ورحمه الله وبركاته اريد ترحيل بيانات خليه معينه من شيت لاخر عن الضغط على زر بناء على كود العميل الشرح مفصل فى الملف المرفق ارجو الافاده ولكم جزيل الشكر book.rar
  5. السلام عليكم ورحمه الله وبركاته يوجد بالملف المرفق زر اريده ان يعمل عند الضغطه الاولى فقط او عمل المطلوب فى الملف بطريقه اخرى ولكم جزيل الشكر book11.rar
  6. السلام عليكم ورحمة الله وبركاته لقد قمت بالبحث على النت ووجدت كود وطبقته ولم يظهر الخطأ 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 ولكن عندى طلب اخر .... عندى زر يقوم بترحيل بيانات عمود معين من شيت لاخر عند الضغط على الزر اكثر من مرة يقوم بالترحيل فى كل مرة وهذا يغير النتيجه .... انا اريده ان يرحل مرة واحده فقط طالما لم يتم تغيير البيانات فهل من الممكن ذلك ؟؟
  7. السلام عليكم ورحمة الله وبركاته اولا شكرا جزيلا لحضرتك لاهتمامك ولتبسيط الكود وجعله الله فى ميزان حسناتك لكن عندما جربت الكود على الملف الاصلى وليس الملف المرفق فانه يقوم بتنفيذ الكود ولكن يكون هناك خطأ Unable to get the vlookup property of the Worksheet function class وهل يمكن عمل هذا الكود بداله if عاديه بدون ماكرو للتسهيل على المستخدم بدلا من الضغط على الزر
  8. السلام عليكم ورحمه الله وبركاته اتوجه بالشكر لاعضاء المنتدى لما يقدموه من لنا من مساعده ، ولكن لى طلب اتمنى الافاده فيه .... اريد تطبيق كود ماكرو به داله if و vlookup على مجموعه من الخلايا وليست خليه واحده واذا امكن فعل هذا الطلب بالدوال وليس بزر ايضا كيفيه التحكم فى عدد مرات ضغط المستخدم على زر ، بمعنى ان ينفذ الماكرو عند الضغط على الزر مرة واحده اما اذا تم الضغط مرة اخرى فلا يحدث شىء book.rar ولكم جزيل الشكر
×
×
  • اضف...

Important Information