Jasmin

شكرا لكم..وشفى الله كلّ المسلمين..

آمين آمين آمين..

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

إخواني الكـرام الحل موجود المصدر بهذه الصفحة ، وإليكم الطريقة.. http://www.asap-utilities.com/blog/index.php/2007/10/25/problem-with-copying-filtered-data-in-excel-2007-workaround/ بعد تحديد ما تريد نقله، اضغط على F5 ثم انقر زر SPECIAL و اختر "Visible cells only" و الآن عندما تعمل نسخ و لصق ما في مشكلة!!! شكرا لكم على الردود..

بسيطة اخي الكريم ان شاء الله ابعث لك فيديو و ابعثه لكم..

شكرا لكم...

بلى أخي الكريم و انا ايضا عندي النسختين وانا أجربها وهي دوما صحيحة...

فقط بطريقة ال Paste أو Coller بالفرنسي .. فهو ينقل المعلومات إلى القسم الفلتر عادي و من ثم نسحب الفلترة فنرى المعلومات كلها.. و لكن الآن يقول لك بأن عدد الخانات مختلف ...

أخي الكريم، أولا ألف شكر والله يعطيك العافية و جعله الله في ميزان حسناتك..و لــكــن هذا ليس ما أردت فأنا بعد الفلترة تمكنت من نقل إلى ورقة filtered و لكن ما أردته هو العكس تماما... نقلتها إلى Filtered ثم عدلت فيها ما أريد ومن ثم أريد استرجاعها إلى ورقة NW ؟؟

بسم الله إخواني الكرام، هذه تقنية مستعملة بال2003 ولم أجدها بال2007 كيف أنقل معلومات من ورقة لأخرى مفلترة (أرفق إليكم مثالا : ورقة NEW مفلترة على أساس type A مثلا و نسختهم إلى ورقة Filtered وبعد التعديل احاول لصقهم في ورقة NW على أساس الفلتر فلا أستطيع حتى بالPaste special فما الحل برأيكم؟؟ filtercopy.rar

شكرا لكم جميعا...

تفضلوا الحل للإفادة للجميع.. Form_upd2.rar

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

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

شكرا لك أخ يحيى سأجربها وأشوف..

طيب بدون واجهة إن أخذنا الحقول المدخلة من خلايا موجودة وبعدين نجعل لونها أبيض.. ما في طريقة؟؟

أخوتي الكرام أنا لا زلت أنتظر بس وجدت هذه المعادلة في D2 و مشي الحال =IF(B2>=D$1;($B2-MOD(B2;D$1))/D$1;0) و بالنسبة للخانة E2 فها هي: =IF(B2>=E$1;($B2-SUMPRODUCT(($D$1:D$1)*($D2:D2))-MOD($B2-SUMPRODUCT(($D$1:D$1)*($D2:D2));E$1))/E$1;0) بس المشكلة في كبر حجم العادلة في ما سيلي و بانتظاركم

أخي hben جميل جدا: ممكن تفسر لي المعادلة =INT(MOD(($B2-SUMPRODUCT(($C$1:C$1)*($C2:C2)))/D$1;10)) ولا أستطيع أن أقول لك إلا جزاك الله خيرا..

بسم الله إخواني الكرام، تأملوا هذه الصورة: كيف ممكن تقسيم الأرقام (مثلا في B2 : 163) إلى 100 - 50 - 10 و 3 ؟؟؟ أرفق لك أيضا المثال.. split.rar

تفضل أخي الكريم ub ADOImportFromAccessTable(DBFullName As String, _ TableName As String, TargetRange As Range) ' Example: ADOImportFromAccessTable "C:\FolderName\DataBaseName.mdb", _ "TableName", Range("C1") Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) ' open the database Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ DBFullName & ";" Set rs = New ADODB.Recordset With rs ' open the recordset .Open TableName, cn, adOpenStatic, adLockOptimistic, adCmdTable ' all records '.Open "SELECT * FROM " & TableName & _ " WHERE [FieldName] = 'MyCriteria'", cn, , , adCmdText ' filter records RS2WS rs, TargetRange ' write data from the recordset to the worksheet ' ' optional approach for Excel 2000 or later (RS2WS is not necessary) ' For intColIndex = 0 To rs.Fields.Count - 1 ' the field names ' TargetRange.Offset(0, intColIndex).Value = rs.Fields(intColIndex).Name ' Next ' TargetRange.Offset(1, 0).CopyFromRecordset rs ' the recordset data End With rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub طبعا عليك إضافة مكتبة الADO إلى الVBA

شكرا لكم..

شكرا لكم..

بسم الله إخواني الكرام..أبعث لكم بالمرفقات ملفا لو امكن شرح او تطبيق المطلوب: تحديث بواجهة Input form أي أن أقوم بوضع فورم وبه 2 textbox واحد للتاريخ واحد للفئة - Type (فرضا أكبر من 1-1-2001 و الفئة B) و وضع حقل ثالث به القيمة يللي سنغيرها لاحقا لمن تتناسب معه الشروط أعلاه (لنقل 20) و من ثم زر لتعديل البيانات التابعة لنفس الرقم Nb إلى الورقة ال2 بالعامود B أو Amt عندها ستتغير بعض حقول العامود b إلى 20... آمل أن يكون واضحا.. form_Upd.rar

أخي الكريم جعله الله في ميزان حسناتك..

بسم الله أظن الصورت توضح لكم ما المطلوب نشوف المشترك بالعامودين و نعمل عامود ثالث فيه الكل بس بدون تكرار عمليا سيقرأ كلّ cell من عامود ويقارنها مع كل العامود الثاني فإن وجدها متكررة محا واحدة وإلا نقله