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

السلام عليكم

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

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

تحياتي 

السلام عليكم

مع كثرة البيانات و المعادلات لا اعلم شخصيا كود يجعل المهمة سريعة تلقائية ....

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

سوف تظهر مشكلة و هي تغير ايضا الحساب السابق (اي بعد ان يعدل الي الحساب الجديد) في حالة التعديل و ليس اضافة سطر جديد , اعتقد ان لهذه الحالة حل ايضا ....

لست متأكد 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/

تحياتي