Emad Karali

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

السلام عليكم ممكن كود ترقيم تلقائي خلية a عند الكتابة في خلية c

عرفت المشكلة ولاكن عند البحث بلكود لايظهر شي بلأسم شغال الرجاء المساعدة

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

يعجز اللسان عن شكرك على مساعدتك وابداعك هوا المطلوب جزاك الله الف خير

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

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

شكرا اخ خالد حاولت في هذا الكود اتاكدلي منه اشتغل بس الصف الاول انا اريد العامود من g9:l23 : j = j + 1 If Cells(j + 9, 12) = "" Then MsgBox Cells(j + 1, 12).Address & " " & "الرجاء ادخال اسم المستلم""": Exit Sub

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

السلام عليكم ممكن اضافة على هذ الكود من تعديل الغالي خالد الرشيدي عدم ترحيل البيانات اذا كان من الخلية k9:l23 لاتوجد بها بيانات مقابل الخلية المكتوب فيها فقط لاان المشكلة هنا لما عدلت الكود فقط صف واحد الي اتتفعل باقي الصفوف لا , الرجاء المساعدة Sub exchange_store() Dim positve As Boolean, i As Long Do While Cells(i + 9, 11).Value <> "" If Cells(i + 9, 11).Value > 0 Then positve = True MsgBox Cells(i + 1, 11).Address & " " & "There IS a Positive Number In The Cell""" Exit Do End If i = i + 1 Loop If i And positve = False Then Application.ScreenUpdating = False azsh = Sheet12.Range("l100000").End(xlUp).Row + 2 Sheet5.Range("e9:l23").Copy Sheet12.Cells(azsh, 5).PasteSpecial Paste:=xlPasteValues MsgBox "Migration Successful", vbDefaultButton1, "Add" Sheet5.Range("f9:f23").ClearContents Sheet5.Range("k9:l23").ClearContents Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub المخزن 878.rar

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

يعطيك العافية هوا المطلوب بس فيه مشكلة بسيطة انه يحذف بيانات عامود d م اعرف السبب شيكة على الكود تمام لاكن يحذف صيغة التعداد في عامود d9:d وهل يمكن استخدام الكود في شت المخزن ايش اغير في الكود

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

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

الله يسعدك ي رب ويجزاك خير م قصرت هو المطلوب

هذ الملف فقط اريد التعديل على اذن الاضافة واذن الصرف اذن الاضافة الترحيل بارقام اكبر من الصفر واذن الصرف اقل من 0 من عامود j9:j23 مع رسالة خطا اطلب مساعدتكم وشكرا مخزن.rar

السلام عليكم ممكن مساعدتكم اريد كود عدم ترحيل البيانات اذا كان اي من الارقام في العامود J9:J23 برقم موجب يظهر تنبيه يوجد خطا عندي كود الترحيل بس ابغاء اضيف هذا الكود