ابو ذكري قام بنشر مايو 19, 2017 مشاركة قام بنشر مايو 19, 2017 الاخوة الافاضل في منتدانا العبقري بعد التحية ارجو اتساع صدروكم لطلبي هذا وان اجد عندكم الحل في الملف المرفق في ورقتي عمل كروت العملاء وكروت الموردين ارجوا عمل كود بحث بديل لبحث الاكسل ctrl+f بحيث اذا وضعت كود عميل في الخلية A1 يتم البحث في العمود G عن القيمة الموجودة في A1 والانتقال الى مكان الخلية المساوية للقيمة الموجودة في A1 مثال الكود 2003 في خلية A1 بعد الضغط على زر البحث او على مفتاح ENTER يتم الانتقال الى الخلية G183 وهكذا ارجو ان يكون المطلوب واضح وجعلة الله في موازينكم كروت موردين_2.rar رابط هذا التعليق شارك More sharing options...
ابو ذكري قام بنشر مايو 20, 2017 الكاتب مشاركة قام بنشر مايو 20, 2017 برجاء من الاخوة الكرام الافاضل ايجاد الكود المناسب للعمل على الملف المرفق رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 20, 2017 مشاركة قام بنشر مايو 20, 2017 (معدل) يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then lr = Range("g" & Rows().Count).End(xlUp).Row For n = 3 To lr If Range("g" & n).Value = [a1] Then Range("g" & n).Select Exit Sub End If Next End If End Sub تم تعديل مايو 20, 2017 بواسطه أ / محمد صالح رابط هذا التعليق شارك More sharing options...
حساسينو قام بنشر مايو 20, 2017 مشاركة قام بنشر مايو 20, 2017 25 دقائق مضت, ابو ذكري said: برجاء من الاخوة الكرام الافاضل ايجاد الكود المناسب للعمل على الملف المرفق فى أى شيت من ملفك تريد العمل رابط هذا التعليق شارك More sharing options...
ابو ذكري قام بنشر مايو 20, 2017 الكاتب مشاركة قام بنشر مايو 20, 2017 4 ساعات مضت, حساسينو said: فى أى شيت من ملفك تريد العمل اشكرك على الاهتمام اخي الكريم الملف المقصود هو الملف المرفق في المشاركة الاصلية رابط هذا التعليق شارك More sharing options...
ابو ذكري قام بنشر مايو 20, 2017 الكاتب مشاركة قام بنشر مايو 20, 2017 8 ساعات مضت, أ / محمد صالح said: يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then lr = Range("g" & Rows().Count).End(xlUp).Row For n = 3 To lr If Range("g" & n).Value = [a1] Then Range("g" & n).Select Exit Sub End If Next End If End Sub بارك الله فيك وجعله الله في ميزان حسناتكم ووفقك الله الى كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.