نجوم المشاركات

تفضل test2001.mdb

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

السلام عليكم ورحمة الله وبركاته بين يديكم أحبائي الكرام كتاب رائع يشرح بأسلوب مبسط وباللغة العربية معظم دوال إكسل 2007 ومرفق معه أمثلة الشرح المرفقة مع الكتاب نفعكم الله به - آمين http://www.4shared.com/rar/3OgU4IZ3/Learn_Functions_in_Excel_2007.html

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

السلام عليكم و رحمة الله وبركاته بعد الشكر و التقدير لكلا من اخوني الأفاضل زيزو و ali على الحلول الصحيحة و الرائعة التي قدموها ================================ هذا حل ثالث باستخدام التصفية المتقدمة بالكود اولا : الخانات الحمراء مهمة جدا لعمل الكود ثانيا : لن يقف في طريقك اي معلومة ناقصة اذا ادخلت اسم العميل فقط = تظهر لك بيانات هذا العميل في جميع المخازن اذا ادخلت اسم المخزن و تركت خانة اسم العميل فارغة = تظهر لك كل بيانات هذا المخزن لكل العملاء اذا تركت كلتا الخانتين فارغة = تظهر لك كل البيانات الموجودة في ورقة 1 Sub srsh() Dim RN1 As Range, RN2 As Range, RN3 As Range Set RN1 = Sheets("æÑÞÉ1").Range("A4:L99") Set RN2 = Sheets("æÑÞÉ2").Range("K1:L2") Set RN3 = Sheets("æÑÞÉ2").Range("A4:L99") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False End Sub كشف حساب عميل حسب المخزن.xlsm

نعم الكائنات مخفية الحقل تم تأمينه ولفك التأمين : افتح النموذج على التصميم / انقر بزر الفأرة الايمن على الحقل واختر خصائص افتح على لسان التبويب : بيانات غير القيمة : مؤمن الى " لا " ثم احفظ واخرج

تفضل kk124.rar

عليكم السلام مثالك الاخير لا يمكن تنزيله وهذا تعديل حسب طلبك الاول المسدد2.rar

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

السلام عليكم ورحمة الله فى حالة عدم وجود اسم العميل او اسم المخزن لن يعمل معك الكود اليك الكود Sub StatmentCS() Dim ws As Worksheet, Sh As Worksheet Dim CusmName As String, StorName As String Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, j As Long, p As Long Set ws = Sheets("ورقة1") Set Sh = Sheets("ورقة2") StorName = Sh.Range("C2") CusmName = Sh.Range("F2") LR = ws.Range("D" & Rows.Count).End(xlUp).Row Sh.Range("A5:L" & Sh.Range("D" & Rows.Count).End(xlUp).Row + 1).ClearContents Arr = ws.Range("A5:L" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 12) = StorName And Arr(i, 4) = CusmName Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next End If Next If p > 0 Then Sh.Range("A5").Resize(p, UBound(Temp, 2)).Value = Temp End Sub

النموذج هو بصيغه pdf فهل يمكن ربطه بقاعدة بيانات اكسس ؟

لم افهم سؤالك الم تختفي عملية الكود في المثال ؟

لسلام عليكم ورحمة الله وبركاته بين أيديكم ملف رائع للمبتدئين وأنا منهم يشرح بالشرح السهل المفصل جداً والمبسط بشدة لماهية الماكرو وتكريبه وتكوين أوامر VBA وشرح لأهمها لأهمها وأبسطها بجانب بعض الأكواد المبسطة التي نستخدمها في أعمالنا اليومية. الملف يشرح على أوفيس 2007 ويصلح لتطبيقه على اى إصدار متقدم الرابط http://www.mediafire.com/download/9fp391zqdsdlq1m/vba1.rar vba1.rar

بارك الله فيك ونفع بك

حسب مافهمت اتفضل شوف المرفق المسدد.rar

شكرا على الافاده هل يعمل فى حاله تغير اسم الملف ام لا ؟

جرب هذا الملف شغل سيارات Salim.xlsx

هذا الكود الستاذ ياسر خليل يفى بالغرض Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("DATA") Set sh = Sheets("AS") Application.ScreenUpdating = False sh.Range("B3:U1026").ClearContents lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 2 ws.Range("B7:U1026").SpecialCells(xlCellTypeVisible).Copy sh.Range("B" & lr).PasteSpecial xlPasteValues On Error Resume Next sh.Columns(5).Replace 0, "" sh.Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow.Delete On Error GoTo 0 Application.CutCopyMode = False Application.ScreenUpdating = False End Sub

ريما تنفع هذه المعادلة =IF(A2="","",INDEX({30;50;100},MATCH(A2,{30;50;100}))*B2) الملف الارقام salim.xlsx

السلام عليكم تفضل المرفق لعل فيه ما تريد... بن علية حاجي المسافة ضرب المنطقة.rar

أحسنت أستاذى بكار بارك الله فيك

بارك الله فيك وجعله فى ميزان حسناتك

الحل المسافة ضرب المنطقة salim.xlsx

جرب هذه المعادلة ///تضع في الحلية F1 الرقم الذي تريده (10000 مثلاً)/// وتسحب نزولاُ =IF(H2>$F$1,(INT(H2/1000))*1000,$F$1) اما الشق الثاني من السؤال لم استطع فهمه الملف مرفق ضرب ارقام salim.xlsx

تفضل أخى الكريم ترحيل بيانات.rar

السلام عليكم أ/ على .. وصلنى الكود من أ / ياسر مشكوراً .. وبتجربيته لم يعمل وإليكم المرفق ترحيل بيانات.rar

تفضل تم الانتهاء من الفاتورتين الشراء والبيع يمكنك اضافة اكثر من صنف داخل فاتورة واحدة ، تختار الصنف وتكمل البيانات ثم حفظ ، ثم تختار الصنف الآخر ثم حفظ وهكذا .. الطريقة جديدة .. مبتكرة .. بعيدا عن الطرق التقليدية حين تريد فتح فاتورة جديدة كل ما عليك هو تحديث حقل ( المورد في الشراء أو الموقع في البيع ) الاسعار وضعتها في جدول الاصناف ، وتنزل آليا عند اختيار الصنف طباعة الفاتورة تتم بمعلومية رقم الفاتورة الظاهر في النموذج الرئيس جرب وكرر التجربة ثم قم بادخال بيانات كافية ووافني بمرئياتك بقي : التحويل ، وكشف الارصدة db12.mdb

تفضل أخى الكريم حذف وإضافة صف فارغ.xlsm

تكمن المشكلة في شريط المهمام Taskbar، إذا كانت خاصية دمج عنواين التطبيقات على وضعية الإخفاء (وهي الوضعية الافتراضية)(وويندوز 7 وما بعده) فسوف يأخذ تطبيق أكسس الأيقونة الافتراضية (ويفرضها على جميع قواعد البيانات المفتوحة) وبناء على هذه المعطيات ستكون النتيجة مخيبة لمطوري قواعد البيانات أكسس لأنه ليس بوسعك فرض وضعية التوسع لهذه الخاصية على مستخدم وويندوز إذا لم يرغب فيها، وليس من الجيد تغيير أيقونة طبيق أكسس من أجل قاعدة البيانات خاصتك! هذا كل ما في الأمر

شكرا أخي العزيز أحسن الله اليك

مبدع يا أستاذانا جزاك الله خير الجزاء وجعله في ميزان حسناتك

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

جزاك الله خير الجزاء دمتم لنا و لغيرنا و دام فضلكم

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