تعديل كود تعديل البيانات عن طريق فورم

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

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

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

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

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

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

في الأكواد الموجودة راجعها وأشر لورقة العمل قبل النطاق Range أو Cells بهذا الشكل

نفترض أنك قمت بتعيين ورقة العمل ss في المتغير المسمى ws

وكان لديك هذا السطر

Range("A1").Value="Test"

فقم بوضع المتغير المسمى ws والذي يشير لورقة العمل المعنية بهذا الشكل قبل السطر السابق

ws.Range("A1").Value="Test"

 

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

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

وشكرا لتفهم حضرتك

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

ما هو الإجراء المطلوب تعديله لديك في الملف؟ حدد الإجراء وما هو المطلوب عمله وسأحاول إن شاء الله الإطلاع عليه في أقرب وقت

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

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

اتمنى يكون المطلوب واضح لحضرتك 

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

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

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

المطلوب بهذا الينك 

 

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

تفضل أخي الكريم محمود التعديل التالي .. عله يفي بالغرض إن شاء الله

Private Sub CommandButton6_Click()
    Dim ws      As Worksheet
    Dim r       As Range

    Set ws = Worksheets("ss")

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

    Set r = ws.Cells(x, 1)
    r.Offset(0, 1) = TextBox3.Text
    r.Offset(0, 2) = TextBox4.Text
    r.Offset(0, 3) = TextBox5.Text
    r.Offset(0, 5) = TextBox6.Text
    r.Offset(0, 6) = TextBox7.Text

    If CheckBox1.Value = True Then r.Offset(0, 4) = True
    If CheckBox2.Value = True Then r.Offset(0, 4) = False
End Sub

 

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

شكرا استاذ ياسر اتضح ان الامر متعلق بالمتغيرات 

كم نتعلم منك وشكرا

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

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

الحمد لله أن تم المطلوب على خير 

تقبل تحياتي