طلب مساعدة activecell - for

[amrmhy82]

السلام عليكم

برجاء المساعدة 

عمودين اريد اختيار خليتين منها (activecell) عمود تاريخ وعمود كود 

عمود الكود متكرر الصفوف وعمود التاريخ غير متكرر

cmdbutton1_click                                                        
    Dim oo As Worksheet
    For Each oo In ThisWorkbook.Worksheets  
    For Each u In oo.Range("a2:a1000")                                   
    For Each Y In oo.Range("c2:c1000")   
    If y = ComboBox1.Text Then  
    oo.Select  
    u.Select     
    Y.Select   
    Exit For  
    End If  
    Next Y  
    Next u  
    Next oo  
    ActiveCell.Value = ComboBox1.Value  
    TextBox1.Value = ActiveCell.Offset(0, 1).Value
end sub

هذا الكود حاولت فيه ..مرة يقف عند اول بحث ومرة يستكمل لاخر صف ...اريد تعديل الكود---وشكرااا

 

 

[حسين مامون]

جرب المرفق

xxxxxxxx.xlsm

[amrmhy82]

شكرا ا حسين على الاهتمام

مرفق ملف للفكرة التي اريد تطبيقها

بالضغط على زر active cell 

اريد تنشيط الخلية في الصف الذي يتوافق مع التاريخ والكود المختار في الفورم

active cell.xlsm

[حسين مامون]

ولكن الكود مكرر في ملفك والتاريخ ايضا

اذا كان ذلك مقصود فانصحك باستعمال الليستبوكس في البحث بدل الكومبوبوكس 

يعني فورم يحتوي على textbox للبحث بالكود

و listbox  لاطهار نتيجة البحث

عند عمل كليك على اي صف داخل  listbox  يحدد الخلية في الشيت لي فيه نقس الكود في نفس row

اعطيني قليل من الوقت لاجهز تجربة عن هذا

وهذه تجربة 

جرب ورد

active cell.xlsm

[amrmhy82]

الفورم مش اللي طالبه بس مفيد جدااا جدااا معايا , متشكر لك