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

[محمود أبوالدهب]

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

والفورم بصفحه ss من الصف 101

‏‏تحديث علاوات1.rar

تم تعديل يونيو 30, 2017 بواسطه محمود أبوالدهب

[محمود أبوالدهب]

لحمد لله توصلت لفعل الامر ولكن اريد مساعده ي شي اخر انى عايز افتح الفورم وان الحذف يتم والصفحة ss  تكون مخفية او صفحة غيرها تكون مفتوحة 

لانى لو فاتح صفحة غيرها وفتحت الفورم من خيلالها وجيت احذف يحذف الصفوف الموجوده في الصفحة المفتوحة الى الخليه فيها اكتيف 

وميحذفش المطلوب 

 

‏‏تحديث علاوات1.rar

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

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

استبدل الكود الموجود في زر الأمر CommandButton8 بهذا الكود

Private Sub CommandButton8_Click()
    Dim ws As Worksheet
    
    Set ws = Worksheets("ss")

    For Each x In ws.Range("A100:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
        If x = ComboBox1.Text Then
            x = x.Row
            Exit For
        End If
    Next x

    m = MsgBox("سيتم حذف هذه العلاوة؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
    If m = vbYes Then
        ws.Rows(x).Delete
        MsgBox "برجاء التأكد من حذف اى علاوة تاريخها اكبر من التى ستقوم بادخالها حتى لا يضر النتائج"

        Me.TextBox2.Value = ""
        Me.TextBox3.Value = ""
        Me.TextBox4.Value = ""
        Me.TextBox5.Value = ""
        Me.TextBox6.Value = ""
        Me.TextBox7.Value = ""
        CheckBox1.Value = False
        CheckBox2.Value = False
        Me.ComboBox1.Value = ""
    Else
        MsgBox "! لم يتم حذف العلاوة"
    End If
End Sub

 

[محمود أبوالدهب]

شكرا جزيلا استاذ ياسر وعودة حميده وجزاك الله خيرا

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

تم تعديل يوليو 1, 2017 بواسطه محمود أبوالدهب

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

بارك الله فيك أخي الكريم محمود وكل عام وأنت بخير

لم أفهم المطلوب بالنسبة للتعديل المطلوب .. وفي الواقع الأفضل تخصيص موضوع مستقل لكل طلب لكي يكون أيسر وأكثر تفاعل من الأعضاء مع تحديد المطلوب بدقة كأن تذكر اسم الإجراء المطلوب التعديل عليه وما هي النتائج المتوقعة بعد التعديل

وصدقني بالرغم من سهولة طلبك في المشاركة الأخيرة إلا إنني عانيت لأفهم المطلوب بالضبط حيث أن الملف يحتوي على عمل ليس بالقليل ، لذا أنصحك بتحديد المطلوب وإعطاء كافة المعطيات لتجد استجابة أفضل

كأن تقول المطلوب في ورقة العمل كذا أن يتم كذا وكذا وذلك من خلال زر الأمر الموجود على الفورم المسمى كذا ، والمتوقع أن تكون النتائج كذا .. وهكذا وهكذا

تقبل تحياتي

[محمود أبوالدهب]

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

واشكر لمحاولت تفهم الامر والوصول للحل المطلوب رغم صعوبة الامر 

جزالك الله خيرا واسكنك الجنة