تصحيح الكود البرمجي لزر حذف

[طلعت محمد حسن]

Private sub CommandButton4_Click

Sheet3.Activate

Q=0

xxx=4

""=Do Until Sheet1.Cells(xxx,"A").Text

If me.ComboBox1.Text=Sheet1.Cells(xxx,"A").Text Then

Q=1

kk=msgBox("هل تريد الالغاء"),yasNox

if kk=vbyas then

ActiveCell.EntireRow.Delete

Else

msgbox("لم يتم الالغاء")

end if

end if

xxx=xxx+1

Loop

end sub

[حمادة باشا]

الأخ الكريم/طلعت محمد حسن

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

لم أتدخل في تركيب الكود فقط تعديل المصطلحات

Private Sub CommandButton4_Click()
Sheet3.Activate
Q = 0
xxx = 4
Do Until Sheet1.Cells(xxx, "A").Text = ""
    If Me.ComboBox1.Text = Sheet1.Cells(xxx, "A").Text Then
        Q = 1
        kk = MsgBox("هل تريد الالغاء", vbYesNo)
        If kk = vbYes Then
            ActiveCell.EntireRow.Delete
        Else
            MsgBox ("لم يتم الالغاء")
        End If
    End If
    xxx = xxx + 1
Loop
End Sub

تقبل تحياتي

[ياسر خليل أبو البراء]

بارك الله فيك أخ حماده باشا ...

[طلعت محمد حسن]

اخي حمادة السلام عليكم

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

اقبل تحياتي واحترامي

[حمادة باشا]

اخي حمادة السلام عليكم

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

اقبل تحياتي واحترامي

 

الأخ الكريم/طلعت محمد حسن

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

هل قمت بنسخ الكود من مشاركتي السابقة وجربته ولم يعمل ؟ أم قارنت بمجرد النظر ؟

هل هذا الكود كان يعمل سابقا ثم أصبح لا يعمل ؟ أم أنك تنشيء كود من جديد ؟

فقط أريد أن أستوعب الأمر - والأفضل من هذا كله أرفاق الملف ما أمكن ذلك ..

تقبل تحياتي

[حمادة باشا]

 

بارك الله فيك أخ حماده باشا ...

 

 

أستاذنا الفاضل/YasserKhalil

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

وجزاكم الله كل خير - شاكر لك مرورك

[طلعت محمد حسن]

اخي حمادة السلام عليكم

في صفحة المنصرف + المبيعات يوجد فورم ادخال وبحث وهناك ايضا زر حذف ارجوا وضع الكود بداخلة والتجربة

وشكرا لكم

 

ابراهيم 12-11-2013.rar

[حمادة باشا]

اخي حمادة السلام عليكم

في صفحة المنصرف + المبيعات يوجد فورم ادخال وبحث وهناك ايضا زر حذف ارجوا وضع الكود بداخلة والتجربة

وشكرا لكم

 

الأخ الكريم/ طلعت

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

سأفعل بإذن الله

[حمادة باشا]

الأخ الكريم/طلعت محمد حسن

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

بعد محاولات عدة لم أستطع التعديل علي الفورم - هناك روابط لملفات أخري وصفحات محمية

أضفت زر لحذف السطر المراد داخل صفحة " المنصرف والمبيعات " يؤدي الغرض

تقبل تحياتي

ابراهيم 12-11-2013.rar

[طلعت محمد حسن]

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