أبو حنــــين

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

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

السلام عليكم و الله هذه محاول اخرى جربها و بكل صدق ملفك صعب نوعا ما 456.rar

أخي أبو محمد جزاكم الله خيرا على المرور و الدعاء و لك باضعافه ان شاء الله حفظكم الله و رعاكم

أخي وليد فتحي جزاكم الله خيرا

اخي اجعل تنسيق الخليتين الاولى و الثانية [$-1060401]B2yyyy-mm-dd;@ و تنسيق الخلية الثالثة [$-1060401]B2d- mm- yyyy;@

أخي ابو حنين

و زيادة لما قدمه الاساتذة الكرام و لتعميم الفائدة و تعدد الحلول هذه طريقة أخر عسى ان يستفيد بها احد و استفيد انا من دعائه Sub MoveData() Dim EndRow As Long, Ary1 As Variant, Ary2 As Variant, i As Byte, ii As Byte, li As Worksheet, inv As Worksheet Set li = ThisWorkbook.Sheets("List") Set inv = ThisWorkbook.Sheets("Invoice") '----------------------------------------------------------------------- Ary1 = Array("B3", "D3", "A5", "D6", "B8", "D8") Ary2 = Array("B", "C", "D", "E", "F", "G") '----------------------------------------------------------------------- For i = 0 To UBound(Ary1) If inv.Range(Ary1(i)) = "" Then MsgBox "رحاءا تأكد من إدخال البيانات", vbExclamation, "خطأ" Exit Sub End If Next '----------------------------------------------------------------------- EndRow = li.Range("A1").CurrentRegion.Rows.Count + 1 For ii = 0 To UBound(Ary1) li.Range(Ary2(ii) & EndRow).Value = inv.Range(Ary1(ii)).Value li.Range("A" & EndRow) = EndRow - 1 inv.Range(Ary1(ii)) = "" Next MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "رسالة تأكيد" End Sub

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

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

اخي رجب جزاك الله خيرا كود رائع

السلام عليكم استعمل هذا الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) If Date = #1/26/2014# And Time >= #12:17:00 AM# Then ThisWorkbook.SaveAs "C:\MMM.xls", FileFormat:=xlNormal, Password:="123" End If End Sub حيت كلمة فتح الملف هي 123

هذا هو المثال غير الساعة في الملف ثم اغلقه و جرب RR.rar

أخي محمود الشريف

اعتقد و الله اعلم بالطريقة التالية جربها واخبرني Private Sub Workbook_BeforeClose(Cancel As Boolean) If Date = #1/26/2014# And Time >= #10:00:00 AM# Then ActiveWorkbook.SaveCopyAs ("C:\RR.xls") End If End Sub

أخي محمد

و هذا التعديل بدون زر VlookUp Test_2.rar

يمكن استعمال مثل هذا Private Sub CommandButton1_Click() If Date = #1/3/2014# And Time = #10:00:00 AM# Then ActiveWorkbook.SaveCopyAs ("C:\DD.xls") End If End Sub

السلام عليكم ان اردت بالكود فتفضل المرفق VlookUp Test.rar

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

أخي عادل أبو زيد

اخي محمود اخي فارس

و اضافة لما ذكره الاخوة الكرام جزاهم الله خيرا ترحيل بدون تكرار والتكراريعتمد على العمود الأول A ويمكن التحكم في تغيير السعرمن خلال الخلايا : N- O -P تصفية وجبة-3.rar

اخي انت حددت المدى بهذا الشكل =VLOOKUP($H$6;الدرجات!$A$3:$AQ$62;2;FALSE) هذه احدى دوال VLOOKUP الموجود في الملف و لاحظ المد A$3:$AQ$62 غير الرقم 62 الى آخر صف مكتوب عندك و طبقه على جميع الدوال اجعله مثلا 1000 لتصبح A$3:$AQ$1000 و تصبح الدالة : =VLOOKUP($H6;الدرجات!$A$3:$AQ$1000;2;FALSE) غير كل الدوال في صفحة النتيجة

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