midoboha قام بنشر ديسمبر 19, 2016 قام بنشر ديسمبر 19, 2016 السلام عليكم قد ساعدتونى قبل ذلك فى كود البحث هذا وكان يعمل جيدا ولكن عند تغييره لم يعد يعمل فأنا اريد ان ابحث فى نفس اليوزرفورم على اساس 2 كومبو بوكس كل واحد له range مختلف وشئ اخير لو سمحتم اريد عند البحث بالاسم لو كان هناك اسمان بجانب بعض فى نفس الخلية ان يكون البحث داخلهما وليس اول اسم فقط او اول احرف فقط 33.rar
طلعت محمد حسن قام بنشر ديسمبر 19, 2016 قام بنشر ديسمبر 19, 2016 السلام عليكم اخي الكريم شاهد المرفق تم ارجاع طريقة البحث حيث كانت 33.rar
midoboha قام بنشر ديسمبر 20, 2016 الكاتب قام بنشر ديسمبر 20, 2016 شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate جربت تغيير اسم الورقة 33 - Copy.rar
midoboha قام بنشر ديسمبر 20, 2016 الكاتب قام بنشر ديسمبر 20, 2016 شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate
midoboha قام بنشر ديسمبر 20, 2016 الكاتب قام بنشر ديسمبر 20, 2016 Sheets("tazalom").Activate III = 2 Do Until Sheets("tazalom").Cells(III, "A").Text = "" If ComboBox3.Text = Sheets("tazalom").Cells(III, "A").Text Then Cells(III, "A").Activate End If شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate Sheets("tazalom").Activate III = 2 Do Until Sheets("tazalom").Cells(III, "A").Text = "" If ComboBox3.Text = Sheets("tazalom").Cells(III, "A").Text Then Cells(III, "A").Activate End If شكرا جزيلا سيدى الكريم ولكن عند تغيير اسم الورقة لا يعمل اذا كان هناك اكثر من ورقة بمعنى لو عملت ورقة تانية للبحث فيها يظل ال range مع الورقة القديمة æÑÞÉ13.Activate III = 2 Do Until æÑÞÉ13.Cells(III, "A").Text = "" If ComboBox3.Text = æÑÞÉ13.Cells(III, "A").Text Then Cells(III, "A").Activate إلى tazalom.Activate III = 2 Do Until tazalom.Cells(III, "A").Text = "" If ComboBox3.Text = tazalom.Cells(III, "A").Text Then Cells(III, "A").Activate
طلعت محمد حسن قام بنشر ديسمبر 20, 2016 قام بنشر ديسمبر 20, 2016 السلام عليكم اخي الكريم الفورم لا يعمل سوى على الورقة التي تم البرمجة لها واذا كانت هناك ورقة جديدة سوف يتم اضافة فورم جديد لها هذا حسب علمي اقبل تحياتي واحترامي
midoboha قام بنشر ديسمبر 21, 2016 الكاتب قام بنشر ديسمبر 21, 2016 شكرا جزيلا سيدى لمتابعتك انا اعلم ان اى ورقة ثانية تحتاج فورم جديد ولكن عند عمل ذلك اقوم بنسخ نفس الاكواد فى الفورم الجديد وتغيير اسم الورقة ولكنه لايعمل
طلعت محمد حسن قام بنشر ديسمبر 21, 2016 قام بنشر ديسمبر 21, 2016 السلام عليكم اخي الكريم المشكلة قد تكون في فهم اجزاء الكود ارفق ملف للتجربة وحدد المطلوب في الورقة الجديدة واختبر مدى فهمك لاجزاء الكود بعد ذالك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.