تعديل علي الفورم

[2saad]

اخواني اعضاء المنتدي الكرام السلام عليكم ورحمة الله وبركاته

لدي ملف به ارواق عمل ( محمد , احمد ، عمر ، علي ، حسن )

به فورم ترحيل بيانات 

عايز لما اضغط علي الابشن بوتن  باسماء اوراق ( محمد , احمد ، عمر ) ينقلني الي الصفحة وبالتالي اعمل بحث في الفورم ويرحل البياناتمني.xlsm

[بحار الاكسس]

استفسار يرحل الى اى شيت

ولا قصد حضرتك يضيف الي البيانات (تحديث)

[2saad]

شكرا لرد حضرتك

عايز لما اضغط علي الابشن بوتن باسم ( محمد ) مثلا ينقلني للورقة اللي باسم (محمد ) وبالتالي اتعامل مع الورقة من خلال الفورم ( بحث - تعديل - حذف )

وهكذا لما اضغط علي الابشن بوتن باسم ( محمد ) مثلا ينقلني للورقة اللي باسم (أحمد) وبالتالي اتعامل مع الورقة من خلال الفورم ( بحث - تعديل - حذف )

 

[2saad]

ارجو التعديل علي الفورم

[حسونة حسين]

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

ضع هذا السطر في ثانى سطر في اليوزرفورم

Public Sh As Worksheet

ضع هذه الاسطر في السطر الثالث او اي مكان اخر كما تشاء

Private Sub OptionButton1_Click()
Set Sh = ThisWorkbook.Worksheets(OptionButton1.Caption)
End Sub
Private Sub OptionButton2_Click()
Set Sh = ThisWorkbook.Worksheets(OptionButton2.Caption)
End Sub
Private Sub OptionButton3_Click()
Set Sh = ThisWorkbook.Worksheets(OptionButton3.Caption)
End Sub

قم باستبدال كلمه Sheet1 بكلمة Sh في جميع اكواد اليوزر فورم

[2saad]

شكرا جزيلا لرد حضرتك وتعبك معانا

بعد ما طبقت ما قلت وضغط علي الابشن بوتن (1 ) أو (2 ) او ( 3) لاختار الصفحة التي اريعد ان اعمل عليها ثم اعمل سيرش علي اسم عين يعطيني خطأ

ما الحل 

 

مني.xlsm

[2saad]

نرجو المساعدة ضروري

[محمد هشام.]

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

واستبدال اسم ورقة العمل  في اكواد اليوزرفورم للتعامل دائما مع  ActiveSheet  

 

 

Private Sub OptionButton1_Click()
Sheets(CStr(OptionButton1.Caption)).Activate
End sub

Private Sub OptionButton2_Click()
Sheets(CStr(OptionButton2.Caption)).Activate
End sub

Private Sub OptionButton3_Click()
Sheets(CStr(OptionButton3.Caption)).Activate
End sub

 

مني 2.xlsm

تم تعديل أكتوبر 8, 2023 بواسطه محمد هشام.

[2saad]

شكرا جزيلا لك أستاذ محمد ولاستاذنا حسونه حسن

وبارك الله فيكما وعليكم وجعله في ميزان حسناتكما