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

هذا الكود لمثل هذه الحالة Option Explicit Sub give_data_salim() Dim m%, i%, x%, my_st$ Dim a As Boolean Dim match%, k%: k = 1 x = Range("Source_tabl").Rows.Count Dim find_range As Range Range("Source_tabl").Offset(1, 1).ClearContents For m = 2 To x my_st = Range("Source_tabl").Columns(1).Cells(m) If my_st = vbNullString Then k = k + 1: GoTo 2 For i = 1 To 4 a = IsError(Application.match(my_st, Range("tabl_" & i).Columns(1), 0)) If Not a Then match = Application.match(my_st, Range("tabl_" & i).Columns(1), 0) Set find_range = Range("tabl_" & i).Columns(1). _ Cells(match).Offset(-match + 1, -1) Range("Source_tabl").Columns(2).Cells(k + 1) = find_range.Value Range("Source_tabl").Columns(3).Cells(k + 1) = Range("tabl_" & i) _ .Columns(3).Cells(match) k = k + 1 GoTo 2 End If Next 2: Next End Sub

برنامج_مخازن_جديد.xlsm

السلام عليكم لا يمكن أن يكون الإجمالي نفسه في المواد باعتبار أن عددا من النسب في بعض المواد بالنطاق AD:AK تتجاوز 100% وفي جدول التحليل للفصل لا يوجد عمود خاص بالنسب التي تتجاوز 100% وهو الذي جعل التفاوت في المجاميع (الإجمالي)... بن علية حاجي

شكرا لك استاذ الكود يعمل بشكل جيد

طيب جرب هذا بعد التحديث DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE [جدول الاصناف] SET [جدول الاصناف].[الكمية]=[الكمية]+Forms![فاتورة مشتريات]![نموذج فرعي]![الكمية].[value]" _ & " WHERE ((([جدول الاصناف].رقم الصنف)=[forms]![فاتورة مشتريات]![نموذج فرعي]![رقم الصنف]));") DoCmd.SetWarnings True

راجع هذا الموضوع

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

يوجد برنامج طابعة افتراضية اسمه ImagePrinter Pro يمكنك من اختيار اي حجم تريد و يعطيك إمكانية طباعة التقرير على شكل صورة حمل البرنامج نسخة تجريبية من هنا http://www.01net.com/telecharger/windows/Utilitaire/imprimantes/fiches/108437.html

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

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

لم تنجح العملية

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

جرب هذا الكود Option Explicit Sub copy_range() Dim lr2%, lrFeuil_2% lr2 = Sheets("2").Cells(Rows.Count, 1).End(3).Row If lr2 < 15 Then lr2 = 15 lrFeuil_2 = Sheets("Feuil2").Cells(Rows.Count, 1).End(3).Row + 1 With Sheets("2") Union(.Range("a16:i" & lr2), .Range("L16:V" & lr2)). _ Copy Sheets("Feuil2").Range("a" & lrFeuil_2) End With End Sub

من المفروض هذا يقبل من أي ملف و قد جربت ذلك

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

وين موجود مسبقا؟؟؟؟ ما هي التقارير التي تريدها؟

لم أفهم ماهو المقصود هل تود أن تطوره الى يوزر فورم أخي hadji27

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

وعليكم السلام ولإثراء الموضوع ممكن تجرب ده مساعدة محتاج عمل شيت جمع وطرح من عمود واحد.xlsm

استعمل خاصية البحث في المنتدى سوف تجد العديد من المواضيع حول جلب الصورة من الماسح الضوئي

إن شاء الله يوم الجمعة سوف أرفقه

عن قريب أخي زياد لدي ملف بسيط وليس برنامج