اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information