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

مساعدة في ربط OptionButton بجدول


الردود الموصى بها

اعتقد ان الموضوع هذا لم يمر عليه احد اساتذتنا ولا حتى هوَّات ال VB

سننتظر والاكيد ستمر استاذي من هنا... تحية لك مسبقا

 

رابط هذا التعليق
شارك

تأتي او لا تأتي او إفعل بملفي ما تشاء...

سأنتظرك استاذي بعد الفطور وعند الغداء وحتى بعد صلاة العشاء..

فأنت يا استاذي لا مفر لك من مساعدتي اليوم او غداً او متى مررت من  هنا...

....

 

رابط هذا التعليق
شارك

هل طلبي هذا مستحيل؟!

أم ان اساتذتنا لم يمروا من هنا!؟

سانتظر..... سأظل قابعا هنا حتى تنهال الحلول... ورمضان مبارك  ☺👼☺👼

رابط هذا التعليق
شارك

جرب الكود ده مع ترتيب اداة optionbutton في كل frame

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

 وجاري 

,Private Sub CommandButton1_Click()
Dim x
Dim LR As Long
Dim MX As Double
For x = 1 To x
If Me.OptionButton1.Value = True Then
Dim ws As Worksheet
Dim iRow As Long
Set ws = Worksheets("feuil1")
With Feuil1
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    MX = WorksheetFunction.Max(.Range("A1:A" & LR))
End With
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = MX + 1
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox2.Value
ws.Cells(iRow, 9).Value = "X"
End If
GoTo 1
Next
1
End Sub
 

رابط هذا التعليق
شارك

  • 1 month later...

عيد الجميع مبارك وأثابكم الله خيرا...

أما آن الاوان لملفي أن يجد حلا نهائيا!

تقبلوا مني اسمى عبارات التقدير والاحترام.

دعواتي لكم خير الجزاء وجزيل العطاء من الله.

رابط هذا التعليق
شارك

عيد الجميع مبارك وأثابكم الله خيرا...

أما آن الاوان لملفي أن يجد حلا نهائيا!

تقبلوا مني اسمى عبارات التقدير والاحترام.

دعواتي لكم خير الجزاء وجزيل العطاء من الله.

01.jpg

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information