ياسر العربى

حبيبي واخي في الله حسام ((الصقر)) اتمنى من الله دوام الصحة والعافية وزادك الله من علمه وانار الطريق امامك لتحسم امورك الي كل الخير والصلاح ارجو ان يكون غيابك مجرد مراجعة نفس عن قرارك هذا والعودة الى اخوانك هنا من جديد فالكل يحتاجك هنا وانا طبعا منهم وانت عارف كدا كويس ومتابع لدروسك واختباراتك تحديدا حتى وان كنت علي علم بها فانا اتفاعل معاها لتثبيت المعلومة والمراجعه وطبعا افادة كبيرة لكل اعضاء المنتدى الكرام اتمنى من الله ثم منك العودة وعدم اتخاذ قرار يقطع عنا هذا العمل الصالح والمفيد للجميع ويقطع عنك باب الحسنات والدعاء من هؤلاء الاعضاء فكن ما تكن ولكن كن العون لنا ولجميع الاعضاء ولتحسن لهؤلاء الاعضاء - وهل جزاء الاحسان الا الاحسان فهم دعموك وارادو منك ان تكون معلمهم خبيرهم استاذهم اخوهم فكن لهم مثلما ارادو ولا تخذلهم ارجو من الله العودة لاسرة اوفيسنا علي خير باذن الله وان تكون نجما ساطعا في سمائها اخوك ياسر العربي

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

مجهود رائع من الاخوه اخي وائل اخي مختار حسن اخي عبد العزيز البسكري ولك مني اضافة بسيطة لكود الاخ مختار حسن sheet3.Visible = xlSheetVeryHidden نضعه في حدث فتح اي شيت واحد سري 2 .rar وبدل ما نتعب نفسنا ونحط كود الاخفاء الشيت في اي شيت نفترض اننا عملنا شيتات جديدة ونسينا نحط فيها فدي عرضة لعرض الصفحة الافضل نحط كود الاخفاء في حدث غلق الشيت يعني لما الشيت يبقي مش اكتف غير نشط يختفى وكدا جبناها من الاخر Private Sub Worksheet_Deactivate() sheet3.Visible = xlSheetVeryHidden End Sub واحد سري 2 .rar

اليك ما طلبت اخي الغالي وعملت امر الطباعة عرض للطباعة وليس مباشرة لترى المحتوى المطبوع نقل بيانات كل 10 ثوانى.xlsb.rar

هل هذا الشكل الذي تريده مجرد وضع وسأقوم بالتعديل عليه فيما بعد نقل بيانات كل 10 ثوانى.xlsb.rar

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

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

اخي الغالي ابوعيد الف مبروك الترقية ودائما من تقدم لتقدم وبارك الله فيك وزادك الله من علمه

الَلَهِمِ كمِا أدُعَـوِك لَنفسي أدُعَـوِك لَمِنٌ أعَـزَهِمِ وِأحًـبّـــهِمِ فيــك أنٌ تُرزَقَهِمِ فُيّ كلَ خٌـفُقَة قَلَبّـٍ فُرحًـآً وِاطٌمِئنٌانٌا وِفُيّ كلَ طٌرفُة عَـيّنٌٍ مِخٌـرجَـآً وِ اسًـتُقَرارآً و ِأمِنٌآً وِ فُيّ كلَ دُعَـاءٍ إًسًـتُجَـابّـةً وِرحًـمِةً وِ غّـفُرانا

بسم الله الرحمن الرحيم فكرة وياريت الكل يتفاعل لتنشط القسم اثبت حضورك بكلمة صباح البركة استيقظنا على عظيم هبات اللهروحٌ عادت..ونعم زادت..صباح أطل..وأمن أظل..من أدام التسبيح : فرجت أسراره ومن أدام الحمد : تتابعت عليہ آلخيراتومن أدام الاستغفار : فتحت لہ المغاليق اللهم اجعل أيامنا سعيدةوهمومنا بعيده وفرجنا قريب .. وسرورنا يزيد وعيشنا رغيد واجعلنا ممن قلت فيهم " لَهُمْ مَا يَشَاءُونَ فِيهَا وَلَدَيْنَا مزيد" ياسر العربي

ياعم الحاج انت حبيبي وعمري ما ازعل منك بس انت استحمل رخمتي بس وبعدين انا هشتغل بكودي بقي ايه رايك رخامة وشوف الكود تاني Sub Rectangle1_Click() Dim mohamed As Integer Application.ScreenUpdating = False mohamed = [A100000].End(xlUp).Row Sheet1.Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheet5.Range("a5:a9999")) + 4 Sheet5.Range("A" & aseel + 1).PasteSpecial Paste:=xlPasteValues Sheet1.Range("a2:h100000").ClearContents Application.ScreenUpdating = True End Sub ومحمد واسيل متغيرات عشان هما كل يوم بحال وعشان نبقي خالصين خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات خشب السقف سبع خشبات واتمسكت بسبع قفشات

الراجل كلامة واضح بيقول مستخدم عادي مقلتش واحد اسةتاذ شاطر وانا عامل فيها المبتدئ من الاخرالموضوع دا للغلابة خليهم ياكلو عيش بقي

ههههههههههههههههههههههه اينعم انا عدلت بس مجربتش ماشي ياعم انت زي ما انا شاكك فيك من الاول منفسن من ناحيتي مش عارف ليه انا مبحبش النقد الهدام داااا هههههههه انت ياخي كودك الاولاني زي الفل اشتغل علي Select or Activate محطتشي تاتش في حته وسلكت لازم يتعلم عليا كدا ماشي الواحد مش بيتعلم ببلاش

ياعم وائل اعمل كلمة مرور جامدة كدا المبتدئ ممكن يخمن كدا 123456789 ومنها عرفت حماية الشيت كامبتدئ Wael وجاري اختبار بقيت نقط الضعف باذن الله انا بتكلم كا مبتدئ مش خبير خالص

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

هذا ملف تفقيط كان وضعه اخي الاستاذ ابو البراء عشان يوجع دماغي بيه لعله يكون طلبك وعندك عربي وانجليزي وفي اعدادات تظبط زي ماانت محتاج فاتورة المؤسسة 2.rar

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

انصحك بنصيحة كل الخبراء لنا اولا قسم برنامجك بنظام شيت مثلا قاعدة البيانات وشيت ادخال وشيت استعلام واي اضافة ستحتاجها ودي اساسيات نفترض انك محتاج تعرف ارصدة معينة في شيت لعرض البيانات مثلا وهتاخد البيانات من قاعدة البيانات بمعادلات داخل شيت عرض البيانات الافضل هنا بدل ما تفضل تعمل معادلات كتير جوا الشيت لا ممكن تحط معادلات بسيطة وتعوض المعادلات جوا الشيت باكواد تفعل بكبسة زر وتظهر لك البيانات لانه كدا انت لغيت موضوع تحميل المعادلات علي الملف بصفة دائمة ومجرد تحميل بسيط يحدث عند اظهار البيانات ويرجع ملفك سريع كما كان وهناك طريقة اخرى وهي عند ترحيل بيانات وبطئ الملف ممكن نعمل ايقاف الحساب التلقائي وعند الانتهاء نقوم بارجاع الحساب التلقائي مثل هذا كدا حساب يدوي Application.Calculation = xlManual ودا ارجاعه لوضعه الطبيعي Application.Calculation = xlCalculationAutomatic يارب اكون وصلت ليك المعلومة ونسيت اقولك نورت المنتدى يا ابو البراء

والحق واقولك غير كودك بالكود دا عشان في مشرفين هنا بيقفشوا علي الواحدة ويقولك بلاش Select or Activate Application.ScreenUpdating = False Dim mohamed As Integer mohamed = [A100000].End(xlUp).Row Range("a2:h" & mohamed).Copy aseel = WorksheetFunction.CountA(Sheets("تحويل داخلي).Range("a5:a9999")) + 4 Sheets("تحويل داخلي").Range("A" & aseel).PasteSpecial Paste:=xlPasteValues aseel = aseel + 1 Range("a2:h100000").ClearContents كود الغاليين

الامر بسيط جدا خطأ الكود هو حرف i ir = [A100000].End(xlUp).Row المفروض احنا عرفناه علي اساس انه l وليس i الصح نخليه كدا lr = [A100000].End(xlUp).Row تفضل يوميه مخازن.rar

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

نرجوا ارفاق الملف او مثال لتوضيح المشكلة

دائما متميز بردودك الجميلة استاذي الغالي محمد حسن المحمد شكرا لاهتمامك لموضوعنا هذا وبالنسبة لصوت الخطأ انا علي قدر وقت الفراغ بحثت ولم اعثر علي صوت طفل للحث علي التريث والتركيز والمحاولة مرة اخري وعبارات التشجيع كل ما عثرت عليه هو باصوات رجال كبيرة لم تعجبني الاصوات لان صوت الطفل له جمال اخر لقبوله من الاطفال عند سماعهم اياه فجاري البحث عن صوت طفل لموضوع الخطأ هذا ولك مني كل الشكر لمرورك الكريم هذا

علي حد فهمي هل هذا ما اردت نقل بيانات كل 10 ثوانى.xlsb.rar