خالد الرشيدى

اخى الفاضل استخدم المعادلة التالية =VLOOKUP($C11;OFFSET($BE$1;;;COUNTA(BE:BE);3);3;0) نموذج.rar

اخى الفاضل استخدم المعادلة التالية =INDEX($B$8:$AB$50;ROW(A1);MATCH($AD$5;$B$7:$AB$7;0)) بحث عن الاحياء والمراكز2.rar

اخى الفاضل ولما اليوزر فورم لجلب البيانات طالما انه بمجرد ادخال الكود يتم ادراج البيانات داخل الفاتورة !!!!!!!!!

اخى الفاضل ارجو توضيح المطلوب بالتفصيل الممل حتى يتضح الامر اتريد يوزر فورم فاتورة ام ماذا ?????

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

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

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

اليك شرح الكود Sub مستطيلمستديرالزوايا6_Click() ' التعريف بالمتغيرات Dim Ls As Long, LR As Long, u As String ' U الموجودة بشيت الفاتورة فى المتغير L1 تخزين قيمة الخلية u = Sheets("فاتوره").Range("L1") ' كود ايجاد اخر صف بة بيانات فى صفحة الفاتورة Ls = Sheets("فاتوره").Cells(Rows.Count, 4).End(xlUp).Row ' U كود ايجاد اول صف فارغ فى الصفحه المرحل اليها البيانات LR = Sheets(u).Cells(Rows.Count, 2).End(xlUp).Row + 1 ' وقف اهتزازات الشاشة اثناء عملية التنفيذ لما يلى Application.ScreenUpdating = False ' اخر صف بة بيانات LS بدلالة o الى B7 نسخ النطاق من Range("B7:O" & Ls).Copy ' U لصق القيم المنسوخة فى اول صف فارغ فى ورقة العمل Sheets(u).Cells(LR, 2).PasteSpecial Paste:=xlPasteValues ' عودة الى شيت الفاتورة وتحديد النطاق المرحل ثم حذف الخلايا التى لا تحوى معادلات Range("B7:O" & Ls).SpecialCells(xlCellTypeConstants, 23).ClearContents Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox ("تم بحمد الله ترحيل فاتورة " & u) End Sub

اخى الكريم جرب الكود التالى فى حدث ورقة العمل قم بوضع اى رقم اكبر من الصفر فى العمود A ستجد ان الخلية المجاورة فى العمود B بها تاريخ اليوم Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg If Target > 0 Then With Target(1, 2) .Value = Format(Date, "yyyy/mm/dd") .EntireColumn.AutoFit End With End If End If End Sub الكود فى حدث ورقة العمل Book1.rar

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

اخى الحبيب أ.ابراهيم ابو ليله مرورك دائماً يسعدنى جزاك الله خيرا استاذى الفاضل تقبل خالص تقديرى واحترامى

اخى الكريم جرب المرفق لعله المطلوب دفتر حسابات 2016 - Copy.rar

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

م. ياسر فتحى مرورك دائماًً يسعدنى ويشرفنى جزاك الله خيراً

هذه احد طرق الحل لعلها تفى بالغرض ان كان ما تريد سأشرح لك كيف تفعلها جرب المرفق bjn3000_2.rar

أ.عادل ابوزيد مرورك شرفنى واسعدنى بارك الله لك وجزاك خيراعلي كلماتك الطيبة تفضل اخى الكريم LOOKUP.rar

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

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

أ. زيزو العجوز مرورك دائماًً يسعدنى ويشرفنى جزاك الله خيراً

أ.عبد العزيز البسكري جزاك الله خيراً على هذا المرور الطيب وعباراتة الرائعة تقبل خالص تحياتى

اخى الفاضل لقد وضعت الشرح فى موضوع منفصل على الرابط التالى لعل هذا الشرح يمثل اضافة لاحد الاعضاء http://www.officena.net/ib/topic/63095-اخر-قيمة-مطابقة-لقيمة-البحث-lookup/ واعتذر عن التاخير فشرح المعادلة ليس امرا سهلاً بل لعلة اصعب من كتابتها تقبل خالص تحياتى

نبذة مختصرة عن احد الدوال البحثية LOOKUP

اخى الفاضل جرب المرفق لعلة المطلوب New Microsoft Excel Worksheet_2.rar

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

استازى القدير / ياسر خليل معادلة رائعة بحق تتلافى قصور المعادلة الاولى .. فلعلى ام انتبة الى تلك الاحتمالات .. جزاك الله عنا خيراً