اذهب الي المحتوي
أوفيسنا

OptionButton


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

السلام علكيم

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

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

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

متشكر مقدما

image.png.fbb9f5e6b46da8b842ce3d58fa40d3b2.png

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

 

 

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

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

 

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

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

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

عذرا

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

يوجد 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

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

image.png

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

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information