OptionButton

[mohamed anwer]

السلام علكيم

رجاء احتاج كود يمكنى من تحديد البيانات وترحيلها بتحديد شرط معين  (Part #1) من نطاق معين (U2:U1000)

انا استخدمت كود بحث من خلال التكست بوكس واحتاج الى الفلتره

احتاج ايضا كود عندما اكتب فى تكست بوكس رقم 1 على سبيل المثال يكون نفس القيمه فى التكست بوكس رقم 2

متشكر مقدما

الكود المستخدم

 

 

Private Sub CommandButton9()_Click

Dim lr, p, x As Long

Dim count As Integer

lr = Sheet1.Cells(Rows.count, 3).End(xlUp).Row

count = 0

p = 3

Sheet3.Range("a3:l1000").ClearContents

For x = 2 To lr

If TextBox21 = Sheet1.Cells(x, 3) Then

Sheet3.Cells(p, 1) = Sheet1.Cells(x, 3)

Sheet3.Cells(p, 2) = Sheet1.Cells(x, 4)

Sheet3.Cells(p, 3) = Sheet1.Cells(x, 5)

Sheet3.Cells(p, 4) = Sheet1.Cells(x, 6)

Sheet3.Cells(p, 5) = Sheet1.Cells(x, 7)

Sheet3.Cells(p, 6) = Sheet1.Cells(x, 8 )

Sheet3.Cells(p, 7) = Sheet1.Cells(x, 9)

Sheet3.Cells(p, 8 ) = Sheet1.Cells(x, 12)

Sheet3.Cells(p, 9) = Sheet1.Cells(x, 14)

Sheet3.Cells(p, 10) = Sheet1.Cells(x, 15)

Sheet3.Cells(p, 11) = Sheet1.Cells(x, 16)

Sheet3.Cells(p, 12) = Sheet1.Cells(x, 18)

p = p + 1

count = count + 1

End If

Next x

End Sub

تم تحميل ملف العمل والاكواد

يوجد 3 صفحات

1-تحتوى على بيانات مالكين الوحدات السكنيه

2-عقد ايجار

3-تقرير شهرى من خلال

الجزء المطلوب فى فريم (البحث) هو ان احدد البيانات من الصفحه رقم 1 وترحيلها الى اللصفحه رقم 3 بشرطين

1-كتابه القسم المطلوب فى التكست بوكس 56 كما هو موضح بالصوره

2-تحديد part1 او part2 فى المدى (U2:u1000) فى الصفحه رقم 1 من خلال optionbutton  او لو اقتراح افضل 

علما بأن التكست بوكس 56 مشترك فى ثلاث عمليات

1-البحث واظهار النتيجه ف اليست بوكس

2-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 8

3-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 9

واريد ايضا عند الكتابه فى التكست بوكس 40 المشار اليه يظهر فى التكست بوكس 2

شكرا لمجهوداتكم ومساعدتكم وكل عام وانتم بخير

 

[مهند محسن]

وعليكم السلام اخى الكريم لا تنتظر ان يقوم احد بمساعدتك بدون رفع ملف موضح عليه المطلوب بكل دقة ... فلا يمكن العمل من خلال الصورة كما لا يمكن العمل على التخمين وذلك تجنباً لعدم اهدار وقت الأساتذة دون جدوى أو أهمية

[mohamed anwer]

عذرا

تم تحميل ملف العمل

يوجد 3 صفحات

1-تحتوى على بيانات مالكين الوحدات السكنيه

2-عقد ايجار

3-تقرير شهرى

الجزء المطلوب فى فريم (البحث) هو ان احدد البيانات من الصفحه رقم 1 وترحيلها الى اللصفحه رقم 3 بشرطين

1-كتابه القسم المطلوب  (C2:c1000)  فى التكست بوكس 56 كما هو موضح بالصوره

 

2-تحديد part1 او part2 فى المدى (U2:u1000) فى الصفحه رقم 1 من خلال optionbutton  او لو اقتراح افضل 

علما بأن التكست بوكس 56 مشترك فى ثلاث عمليات

 

1-البحث واظهار النتيجه ف اليست بوكس

2-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 8

3-البحث والترحيل الى الصفحه 3 من خلال الكومنبوتن 9

واريد ايضا عند الكتابه فى التكست بوكس 40 المشار اليه يظهر فى التكست بوكس 2

شكرا لمجهوداتكم ومساعدتكم وكل عام وانتم بخير

البحث والاضافه و التعديل - Copy.xlsm