احمد عبد الناصر

السلام عليكم معذرة علي التأخير انا بطيء قليلا لكن لم انس الملف :] يوم او يومان بأذن الله و ساقوم بتجربة الكود تحياتي

السلام عليكم مع كثرة البيانات و المعادلات لا اعلم شخصيا كود يجعل المهمة سريعة تلقائية .... اعتقد من الممكن ان نجعل كود يعمل بعد تغير قيمة الخلية بأن يذهب فقط امام الحساب المعدل ليضع معادلاته و ينسخه و يلصقه كقيم .... سوف تظهر مشكلة و هي تغير ايضا الحساب السابق (اي بعد ان يعدل الي الحساب الجديد) في حالة التعديل و ليس اضافة سطر جديد , اعتقد ان لهذه الحالة حل ايضا .... لست متأكد 100% من دقة و فاعلية هذه الطريقة(لا افضلها صراحة اذن فيها مجال للخطأ) و هي هل تتناسب مع ما تريد ؟؟؟ تحياتي ---------

السلام عليكم جرب هذه افتراض ان الاجازة يوم الجمعة و سبت تحياتي today+fri+sat.rar

السلام عليكم جرب هذه ملاحظة : كود المورد (1) تنسيقه نص و ليس رقم لا اعلم ان كان هذا مقصود ؟ تحياتي With Holding Tax_2015+.rar

السلام عليكم من الممكن وضع زر بحيث يعمل الكود عند الطلب فقط في شيت الميزان , هل هذا يفي بالغرض ؟ جرب المرفق تحياتي ----- sumif+.rar

السلام عليكم الاسم و كلمة السر >> nomuser

معذر ة علي الخطأ جرب هذه حساب العملاء---.rar

السلام عليكم جرب هذا اكواد متقنة استاذي سليم :] تحياتي حساب العملاء+-+.rar

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

السلام عليكم جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then If Target.Cells.Count = 1 Then If Target.Value = "ÛíÑ ãÝÚá" Then Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Range("a" & Target.Row & ":o" & Target.Row).Copy Sheets("æÑÞÉ2").Range("a" & Sheets("æÑÞÉ2").Cells(Rows.Count, 1).End(xlUp).Row + 1) Rows(Target.Row).Delete Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End If End If End If End Sub ملاحظة الكود بطيء جدا اعتقد ان المشكل في تنسيقات الملف و الله اعلم . تحياتي حساب العملاء++.rar

السلام عليكم جرب هذا http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2009/08/07/7293.aspx تحياتي -قم حمل الملف -قم بفتحه ثم اختار open ثم اختار ملف EXCEL فاضي تكون مسجله قبل كده يكون Macro enable -ثن insert ثم sample XML ثم Excel -a custome tab -save -اغلق البرنامج ثم افتح شيت الاكسيل تحياتي

. Error+.rar

. LETTER+.rar

السلام عليكم كلمة امر التكليف في الريبورت غير متطابقة مع امر التكليف في البيانات و كذلك عناوين البيانات في الريبوت و البيانات . اعمل copy للعناوين من شيت البيانات جديد ثم paste special values في شيت الريبوت . تحياتي

استاذي اسف اجابة لموضوع اخر :/ معذرة علي ذلك

السلام عليكم كلمة امر التكليف في الريبورت غير متطابقة مع امر التكليف في البيانات و كذلك عناوين البيانات في الريبوت و البيانات . اعمل copy للعناوين من شيت البيانات جديد ثم paste special values في شيت الريبوت . تحياتي

السلام عليكم لست متأكد من المطلوب ... جرب هذه المعادلة في خلايا اعمدة "المحقق" =SUMIFS('Sales Report'!$F:$F;'Sales Report'!$L:$L;$B3;'Sales Report'!$C:$C;INDEX($1:$1;1;COLUMN()-1)) من المفترض انها مرنة تعمل علي كل الاعمدة . تحياتي

السلام عليكم =IF(C7="";"";SUMIFS(Sheet1!$J$3:$J$10000;Sheet1!$C$3:$C$10000;$D$3;Sheet1!$E$3:$E$10000;C7;Sheet1!K3:K10000;$D$4)) جرب ثبت الجزء الاخير من المعادلة (Sheet1!K3:K10000) مثل بقية المعادلة في الخلية D7 لتصبح =IF(C7="";"";SUMIFS(Sheet1!$J$3:$J$10000;Sheet1!$C$3:$C$10000;$D$3;Sheet1!$E$3:$E$10000;C7;Sheet1!$K$3:$K$10000;$D$4)) تحياتي

السلام عليكم اسعد الله صباحكم بعد اذن استاذي ياسر الزر في sheet1 بيشغل الامر ده LastRow1 = Columns("A").Find("الفصل الأول", SearchDirection:=xlPrevious, LookIn:=xlValues, LookAt:=xlWhole).Row فبيعيد برمجة FIND بانها تبحث عن الكلمة كلها و فقط (LookAt:=xlWhole) يعني تبحث عن محمد لازم يكون الاسم محمد فقط مش محمد محسن مثلا . فممكن يتعدل الجزء ده في البحث التابع للفورم , السطر ده Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M, LookAt:=xlPart) فيعيد البرمجة بتاعت FIND تاني بحيث تبحث بمعلومية جزء من الكلمة (LookAt:=xlPart) تحياتي

السلام عليكم اسعد الله صباحكم استاذ ابو العزم جرب المرفق , هي دي الطريقة الي انا شغال بيها يجب ان تكون البيانات مرتبة علي حسب .. الصنف ثم التاريخ ثم نوع الحركة (اضافة اولا ثم صرف) لتعطي نتائج صحيحة . اعتقد انها ستكون اسرع مع البيانات الكثيرة بهذه الطريقة . الاعمدة الملونة هي التي بها معادلات . تحياتي average +.rar

السلام عليكم شكرا استاذ مختار ثلاث مواضيع دسمة هذا كود قد مررت به من قبل -لا اظن انه يعمل على كل اصدارات اكسل (يحتاج تعديل في الكود) Sub sbADO() Dim sSQLQry As String Dim ReturnArray Dim Conn As New ADODB.Connection Dim mrs As New ADODB.Recordset Dim DBPath As String, sconnect As String DBPath = ThisWorkbook.FullName sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';" Conn.Open sconnect sSQLSting = "SELECT * From [DataSheet$]" mrs.Open sSQLSting, Conn ActiveSheet.Range("A2").CopyFromRecordset mrs mrs.Close Conn.Close End Sub --الكود منقول تحياتي SQL Excel TO Excel.rar

السلام عليكم اسعد الله اوقاتكم موضوع :تصدير بيانات الي برنامج الاكسيس http://www.officena.net/ib/index.php?showtopic=44222&page=2#entry264825 كود Sub cool() ConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\export.accdb ;Persist Security Info=True" Set oCn = New ADODB.Connection oCn.ConnectionString = ConnString oCn.Open sSQL = "delete from t ;" oCn.Execute sSQL sSQL = " INSERT INTO t SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "].[Sheet1$a:b] ;" oCn.Execute sSQL End Sub تحياتي Codes Library.rar

السلام عليكم اسعد الله صباحك استاذ ياسر شكرا و جعله الله في ميزان حسناتك . "لا تعطني سمكة ولكن علمني كيف اصطاد" لقد تجاوزت معني المثل بهذا المجهود الرائع استاذنا تحياتي

السلام عليكم استاذنا سليم اكواد و معادلات مميزة الف مبروك , زادك الله علما و نفع بك و اعلى نزلك في جنات النعيم . تقبل تحياتي

السلام عليكم من الممكن استخدام كود vba لجلب البيانات , و هذا تسطيع ان تضع عليه كلمه سر. جرب الرابط http://analysistabs.com/excel-vba/ado-sql-macros-connecting-database/ تحياتي