حراثي تواتي

الى خبراء الاكسيل السلام عليكم و رحمة الله وبركاته

التمس منكم التعديل على هذه الدالة ( الملف في المرفقات ) حتى اذا لم تتحقق الشروط الثلاثة تعطيني القيمة "" او 0 المهم لا تعطيني FALSE

false.xlsx

هل ما اريد عمله على ملفي مستحيل ؟؟ ام المطلوب غير واضح

2 ساعات مضت, طلعت محمد حسن said:

السلام عليكم

اخي الكريم عليك الذهاب الى تبويب التحقق من صحة البيانات 

1- تحدد المدى المراد عدم تكرار البيانات بدخلة

2- تفتح قائمة التحقق من صحة البيانات وتختار منها الخيار مخصص وتكتب المعادلة التالية

3- لنفرض ان المدى هو A1:A5 نكتب CountIf($A$1:$A$5;A1)=1=ونكتب رسالة الخطأ المراد بها ان تظهر

4- اشارة الدولار لتثبيت المدى بعد تحديد المدى اضغط على F4

 

شكرا اخي على المرور و الاهتمام بالموضوع

لاتنفع لان الادخال سيكون عن طريق اليوزر فورم و الرسالة ستظهر على اليوزر فورم

السلام عليكم اخواني خبراء الاكسيل و اشكركم على المجهودات المبذولة من اجل تنويرنا و ازاحة كل العقبات التي تصادفنا اثناء ممارساتنا على الاكسيل

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

الشرح و الملف مرفقان

عدم السماح بتكرار نفس البيانات مرتين.rar

4 ساعات مضت, أبوعيد said:

وعليكم السلام

تفضل

ترحيل من شيت1.rar

الحمد لله تم بفضل الله ثم بفضل اخي أبو عبيدة من الوصول الى الحل

فشكرا للجميع

ترحيل من شيت.rar

3 ساعات مضت, أبوعيد said:

وعليكم السلام

تفضل

ترحيل من شيت1.rar

شكرا أخي و بارك الله فيك و اطال الله في عمرك

لكن فضلا و ليس امرا اريد الترحيل من زر في اليوزر فورم ان امكن طبعا

و شكرا مسبقا

السلام عليكم اخواني الافاضل ان شاء الله الجميع في صحة و عافية

اليوم انا اريد ترحيل البيانات مباشرة من الشيت رقم 1 الى السيت رقم 2 وفق ترقيم تلقائي و عن طريق اليوزر فورم

في انتظار مساعدتكم لي اترككم في رعاية الله و حفظه

الملف و الشرح مرفقان

ترحيل من شيت.rar

الان, ياسر العربى said:

فعلا مكتبة مفقودة تفضل هذه الاداة قم باضافتها داخل الويندوز في الSystem32

وشغل البرنامج مره اخرى

 

MSCOMCT2.rar

السلام عليكم أخي الفاضل

والله لا اعرف بدون اساتذتنا اللافاضل كيف سيكون حالنا فعلا انقذتني ويسرت لي الامر

و لايسعني من هذا المقام الا ان ادعو  لاخي العربي  و كل من ساعدني بهذا الدعاء " أبعد الله عنك شر النفوس ..
وحفظك باسمه السلام القدوس ..
وجعل رزقك مباركا غير محبوس ..
وجعل منزلتك عنده جنة الفردوس .. "

اللهم آآآآآآآآآآآآآآآآآمين

الان, ياسر خليل أبو البراء said:

أخي الكريم

قم بالذهاب إلى قائمة Tools ثم References ثم أزل علامة الصح بجانب الخيار Missing الذي يظهر في الصورة ، حيث أن المكتبة مفقودة مما يسبب ظهور الخطأ لديكم

تقبل تحياتي

اخي ياسر خليل ابو البراء يعجز اللسان عن شكرك فبارك الله فيك

صبحك الله بالسعادة ..
ورطب لسانك بالشهادة ..
وحبب فيك خلقه وسخر لك عباده ..
وجعل خير عمرك آخره وخير عملك خواتمه وخير
أيامك يوم لقائه ..

اقتباس

 

الملف يشتغل على xp ولا يشتغل مع الويندوز win7

ملف.rar

السلام عليكم اخواني الكرام و أمسية طيبة للجميع

عند تشغيل الملف على الويندوز اكسبي يشتغل عاد جدا لكن اجد مشكلة عند تشغيله مع الويندوز 7  و تاتي مثلا هذه الرسائل

ساعدوني في ايجاد حل للمشكل

مع العلم جربت مع عدة اجهزة تشتغل بالوندوز 7 و نفس المشكل

7 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم حراثي

ضع الكود التالي في حدث الفورم

Private Sub CommandButton1_Click()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Me.Hide
        Feuil1.PrintPreview
    Next I
End Sub

تقبل تحياتي

 

أستاذي الفاضل بارك الله فيك و مدّك الله بالصحة و العافية و طول العمر و دمت ذخرا لنا

ايها الاخوة الافاضل السلام عليكم و رحمة الله وبركاته

هذه المرة انا اريد طباعة الصفحة من اليوزر فورم بنفس هذا الكود مع التعديل عليه

Sub PrintAll()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Feuil1.PrintPreview
    Next I
End Sub

الملف و الشرح مرفقان

3طباعة.rar

السلام عليكم اساتذتي الكرام

اريد كود يقوم بالترحيل بناء على قيمة موجودة في الكمبوبوكس يبحث عنها في العمود ثم بقوم بالتعديل في الصف الموافق لها

يعني انا الذي اختار الصف الذي اريد الترحيل اليه

الشرح و الملف مرفقان

ترحيل معين.rar

13 دقائق مضت, ياسر خليل أبو البراء said:

هل جربت إضافة السطر التالي في نهاية الكود

UserForm1.Show ..

إذا لم يعمل معك فأرجو إرفاق الملف للعمل عليه والإطلاع عليه بحيث تتضح الصورة

و الله جربت الان و نجحت العملية فبارك الله فيك يا استاذي الفاضل ياسر خليل أبو البراء  و دمت ذخرا لنا

Private Sub CommandButton1_Click()
Sheets(1).Activate
UserForm1.Hide
Range("a1:u87").PrintPreview
UserForm1.show
End Sub

السلام عليكم اخواني الافاضل

هل هناك كود يقوم باعادة فتح اليوزر فورم بعد غلق تافذة صفحة معاينة الطباعة

وشكرا مسبقا

Private Sub CommandButton1_Click()
Sheets(1).Activate
UserForm1.Hide
Range("a1:u87").PrintPreview
End Sub

هل من مساعدة اخواني و اساتذتي الافاضل

السلام عليكم اخواني الافاضل اليوم احتاج الى مساعدة فيما يخص ربط الليست بوكس بجدول البيانات عن طريق البحث بالحرف وعندما اعثر على الاسم و اقوم بتظليله  في الليست بوكس يكتبه كاملا في text box1 

وشكرا

الملف مرفق

البحث بالليست بوكس.rar

في 21/03/2016 at 13:09, ahmedy30 said:

السلام عليكم

الاستاذ الجموعى .... جزاكم الله خيراً

الاستاذ . عبد العزيز البسكرى .. جزاكم الله خيراً .. الحل المقدم من قبلك اخى الكريم  يجتاج الى تعديل بسيط. .. 

وهو ان يتم استدعاء الصورة المحفوظة من خلال زر اخر على الفورم .. على ان يتم استدعاء الصورة صاحبة الاسم الموجود فى تكست بوكس واحد .. الامر بمسابة ترحيل واستدعاء من الفورم والى الفورم

اتمنى ان لا يضيق صدركم منى ... كما ارجو المساعدة لاهمية الامر

خالص احترامى لحضراتكم

السلام عليكم ورحمة الله وبركاته

شكرا اخواني الافاضل على المتابعة و المساعدة و الاثراء

فقط لو يتكرم علينا احد اساتذتنا الكرام بكود اعادة ادراج الصورة في الفورم بناء على اسم الشخص او رقمه

6 دقائق مضت, بن علية حاجي said:

السلام عليكم ورحمة الله

الأخ الكريم حراثي تواتي، إن المعادلة التي اقترحها الأخ الكريم زيزو العجوز هي "معادلة صفيف" أي يجب الضغط على CTRL+SHIFT+ENTER لتأكيدها بدلا من ENTER فقط وبإذن الله تعمل المعادلة على أحسن حال...

بن علية

 

شكرا على الاهتمام و المتابعة ,,, الان نجحت 10/10 بارك الله فيكما و في خبراء و اساتذة منتدانا الغالي

بعد البحث في منتدانا الغالي و جدت هذا الموضوع الذي افادني كثيرا

فشكرا لكم أخواني

http://www.officena.net/ib/topic/38914-دوال-مستحدثة-جديدة-دوال-البحث-vlookup-متنوعة/

البحث بمتغيرين2.rar

7 دقائق مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

اكتب هذه المعادلة فى الخلية التى تريد اظهار نتيجة البحث فيها

=IFERROR(INDEX(C4:C12;MATCH((G7&L7);A4:A12&B4:B12;0));"")

شكرا اخي الكريم على اهتمامك وردك على موضوعي

جربت الدالة و لم تعمل معي

السلام عليكم ورحمة الله

اخواني الافاضل اليوم ابحث عن دالة البحث بمتغيرين في حالة توفر المتغيرين بعطني القيمة المقابلة لهما

الملف مرفق و شكرا مسبقا

البحث بمتغيرين.rar

8 ساعات مضت, أبو قاسم said:

السلام عليكم 

حسب فهمي للموضوع عسى ان يكون هذا المطلوب

ترحيل محدد.rar

شكرا اخي الكريم هذا ما كنت ابحث عنه بالضبط

دمتم و دام لنا المنتدى ذخرا

8 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام أخي الكريم حراثي

تفضل الكود

Private Sub CommandButton1_Click()
    Range("B2").Value = TextBox1.Value
    Range("D3").Value = TextBox2.Value
End Sub

 

 

شكرا اخي أخي ياسر و فيت و كفيت

دمتم و دام عطاؤكم لنا

السلام عليكم و رحمة الله وبركاته

التمس منكم اخواتي الاكارم ان تساعدوني في ايجاد الكود الذي يقوم بترحيل القيمة من "TextBox1"  الى الخلية "B2" و من "TextBox2" الى "D3"

الملف مرفق

ترحيل محدد.rar

2 دقائق مضت, محمد حسن المحمد said:

 

 

 

 

السلام عليكم ورحمة الله وبركاته إخوتي الكرام:

أخي الكريم حراتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم .

جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته. 

شكرا اخي على الرد

ليس هناك مشكل ، فقط الصورة ماخوذة من برنامج اخر

احتاج الى كود ترحيل صورة من اليوزر فورم الى خلية معينة في الاكسل ان امكن

وشكرا مسبقا