ياسر العربى

بعد اذن اخي الصقر تفضل وياريت توضح ايه اللي عاوزه يحصل بالضبط عند اغلاق الفورم 123.rar

ودي لو هتكتب قيم غير الموجودة عشان تلافي الخطأ جدول رقم 1 - Copy.rar

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

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

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

Dim x x = InputBox("Type your password here.", "Password Required") If x = "123" Then ضع كودك هنا اخي الغالي Else MsgBox "كلمة المرور خطأ يرجى اعادة المحاولة" End If ليصبح هكذا الكود الاول Sub invoice_cleer() 'مسح كامل بيانات الفاتورة و اضافة رقم فاتورة Dim x x = InputBox("Type your password here.", "Password Required") If x = "123" Then Sheets("invoice").Select Sheets("invoice").Unprotect Range("E3,I3,E5").ClearContents Range("D10:J60").ClearContents Range("E3").FormulaR1C1 = "=NOW()" Range("F3").FormulaR1C1 = "=R3C5" 'Range("I10:I59").FormulaR1C1 = "=SUM(RC8*RC7)" 'Range("I10:I60").FormulaR1C1 = "=SUM(RC8*RC7)" ActiveSheet.PageSetup.PrintArea = "$B$2:$K$65" ActiveWindow.View = xlPageBreakPreview ActiveWindow.Zoom = 60 ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayGridlines = False ActiveWindow.LargeScroll Down:=-99 ActiveWindow.LargeScroll ToRight:=99 Range("I3") = Range("L3") Range("E5").Select Else MsgBox "كلمة المرور خطأ يرجى اعادة المحاولة" End If End Sub الكود الثاني Sub invoice_Kill() ' حذف بيانات فاتورة Dim x x = InputBox("Type your password here.", "Password Required") If x = "123" Then Application.ScreenUpdating = False Set Ws = Worksheets("INVOICE") Set WS1 = Worksheets("Customers") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 If Ws.Range("J3") = "" Then GoTo 6 For FR = 10 To 60 LR1 = Val(Ws.Cells(FR, 12)) If Ws.Cells(FR, 12) = "" Then GoTo 7 WS1.Range("E" & LR1 & ":M" & LR1).ClearContents LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False Ws.Select Application.ScreenUpdating = True 6 MsgBox "تم حذف بيانات الفاتورة THIS BILL DELETED" Application.Run "invoice_cleer" On Error Resume Next Range("I60:I64").SpecialCells(xlCellTypeConstants).ClearContents On Error GoTo 0 Else MsgBox "كلمة المرور خطأ يرجى اعادة المحاولة" End If End Sub والافضل كما قالي اخي الغالي عبد العزيز البسكري يرجى وضع مرفق بالتوضيح حتى يتمكن اكبر عدد من الاساتذة من مساعدتك

ليس لنا رب سواك فيدعى وليس لنا الها غيرك فيسأل فاستجب دعائنا وتقبل منا انك انت السميع العليم واغفر لنا انك انت الغفور الرحيم وصلى اللهم وسلم وبارك على افضل الخلق اجمعين وعلى آله وصحبه وسلم تسليما كثيرا واخر دعوانا ان الحمد لله رب العالمين

ايوه ياعم علي الهدايا اللي نازله ترف الله يسهلو اللي اداك يدينا يامعلم

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

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

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

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

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

تمام يامعلم شغال الله ينور بس عشان خاطر ابو يوسف يبقي مش شغال ياعم صقر وظبطو شغلكوا شوية ياعم

عملت تعديل بسيط خالص ياريت يكون طلبك إستدعاء البيانات وترحيلها لعدد معين من الاسماء .xlsb.rar

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

هل تقصد مثل هذا الموضوع تفضل http://www.officena.net/ib/topic/64534-تنسيق-تلقائى-لجميع-ورقات-العمل-اعتمادا-على-الصفحة-الرئيسية/ وكود ترحيل البيانات يتوقف عند انتهائه من نقل جميع بيانات الشيت الثاني

مشكور اخي محمد الريفي حل جميل اما بالنسبة اخي الغالي موضوع رفع المرفقات يرجى ضغط الملف اولا باي صيغه zip & rar مثلا ثم قم برفعه واما بالنسبة لاسم الظهور بالمنتدى يرجى تغييره للغة العربية لسهولة التعامل ودائما انسى مرحبا بك في منتدى اوفيسنا بين اخوانك

اخي عبد العزيز انت اخويا ولازم اساعدك اتفضل التوضيح هنا بعد اذن الغالي انا سايب الكومنت فاضي عشان تطبق بردو TestWAV.rar

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

متزوج يامعلم وعندي كمان أسيل ومحمد وموضوع التجديد دا احنا مش سالكين كدا هنجيب تاني ربنا يكرمنا

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