حذف سجل من الأوراق مع حذفة من قاعدة البيانات ( تمت الإجابة )

[KHMB]

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

اشكر الاخ كيماس والذي رد علينا في نفس الموضوع ولكن بصيغة اخرى لم تفي بالغرض بالنسبة لنا

حسب المرفق

ترحيل.rar

[KHMB]

للرفـــع

[KHMB]

للرفـــع

[KHMB]

للرفع

جزاكم الله خير

[KHMB]

للرفع

بارك الله فيكم

[KHMB]

UP

[الـعيدروس]

السلام عليكم

اخي الفاضل في هذا الكود سوف يتم حذف

الصنف من كل الاوراق

انشاء الله يفي بالغرض

Option Explicit

Sub DeleteOnAllSheets()

Dim ws          As Worksheet

Dim MatchWhole  As Long

Dim MyStr       As String

Dim strFIND     As Range

MyStr = Application.InputBox("ÇÏÎá ÇáÕäÝ ÇáãÑÇÏ ÍÐÝå ãä ßáÇ ÇáÇæÑÇÞ?", _

                                "ÈÍË Úä ÕäÝ", "123", Type:=2)

If MyStr = "False" Or MyStr = vbNullString Then Exit Sub

If MsgBox("åá ÇäÊ ãÊÃßÏ ãä ÇáÍÐÝ?" & vbLf & _

          "(Ýí ÍÇáÉ ÚÏã ÇáÍÐÝ ÇÖÛØ ÒÑ áÇ", _

          vbYesNo, "ÊÃßíÏ ÇáÍÐÝ?") = vbYes Then

    MatchWhole = 1

Else

    MatchWhole = 2

End If

On Error Resume Next

For Each ws In Worksheets

    Do

        Set strFIND = ws.Cells.Find(MyStr, LookIn:=xlValues, LookAt:=MatchWhole)

        If Not strFIND Is Nothing Then

            strFIND.EntireRow.Delete xlShiftUp

        Else

            Exit Do

        End If

    Loop

Next ws

End Sub

السلام عليكم

alidroos.ترحيل.rar

[KHMB]

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

مشكور ياأخي العيدروس

الكود لايحذف صفحة (ورقة الصنف) المطلوب حذف صفحة(ورقة)الصنف ثم حذفة من قاعدة البيانات

[KHMB]

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

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

تم تعديل يوليو 2, 2011 بواسطه KHMB

[عادل حنفي]

اخي جرب المرفق

تحياتي

ترحيل1.rar

[KHMB]

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

أخي عاجز عن الشكر جزاك الله خيراً كثيراً

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

[الـعيدروس]

بارك الله فيك استاذ عادل

تقبل مروري

تحياتي

[عادل حنفي]

اخي alidroos

بارك الله فيك

مشكور علي مرورك الكريم

تحياتي