احمدزمان

ملاحظة يمكنك اخفاء جميع الأعمدة الجديدة ذات اللون الرصاصي او الرمادي

Sub sheet_collec() Dim x 'ÚÏÏ ÇáÃæÑÇÞ Dim Z ' Dim A 'ÂÎÑ ÕÝ ááæÑÞÉ ÇáãÑÍá ãäåÇ Dim S 'ÂÎÑ ÕÝ ááæÑÞÉ ÇáãÑÍá áåÇ Sheets("TOTAL").Select S = Range("A55555").End(xlUp).Row x = Worksheets.Count Worksheets(2).Select For i = 2 To Sheets.Count Worksheets(i).Select sh = Worksheets(i).Name For A = 2 To Range("A9999").End(xlUp).Row With Sheets("TOTAL") Let S = S + 1 .Cells(S, 1) = Cells(A, 2) .Cells(S, 2) = Cells(A, 6) .Cells(S, 3) = Cells(A, 7) .Cells(S, 4) = sh End With Next A Next i Worksheets(1).Select End Sub نفضل اخي الفاضل

الشرح كامل في المرفق EXPORT.rar

السلام عليكم تم عمل ذلك بالدوال اكسل للمواقف يمكنك تطبيق نفس الشيء على الباقي آمل ان يكون هذا المطلوب ay______________.rar

جزاك الله خير عملية الإدخال لصفحة البيانات يدوية للحرف X او غير ذلك الحل الذي تريدة ايهما دوال اكسل معادلات او كود فيجول بيزك

تسلم الأيادي استاذ ابو عبدالله جزاك الله كل خير على هذه الأفكار الرائعة

اللهم ياسامع الصوت و ياسابق الفوت و يا كاسي العظام لحما بعد الموت اجزي اخواني القائمين على هذا الموضوع بالإحسان احسانا و بالسيئات رحمة و غفرانا

اخي اقرأ هذا الموضوع لتفهم عمل هذا الكود http://www.officena.net/ib/index.php?s=&am...st&p=130251 وكل ما ذكرته من تعديلات ممكنه اذا فهمت الموضوع الذي على الرابط السابق

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

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

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column <> 1 Then Exit Sub اذا كان العمود ليس العمود رقم 1 انهي الكود If Not Range("A" & Target.Row) = "" Then For i = 2 To 111 If Range("A" & Target.Row) = Sheets("الأسماء").Cells(i, "A") Then اذا كانت الخلية في الععمود A في السطر الحالي = الخلية في العمود A من صفحة الأسماء اذا Range("F" & Target.Row) = Sheets("الأسماء").Cells(i, "B") الخلية F في السطر الحالي = الخلية B في صفحة الأسماء وهكذا Range("G" & Target.Row) = Sheets("الأسماء").Cells(i, "c") Range("H" & Target.Row) = Sheets("الأسماء").Cells(i, "D") End If Next i End If Application.ScreenUpdating = True End Sub

http://www.officena.net/ib/index.php?s=&am...st&p=132219

السلام عليكم و رحمة الله هذا من بعض ماتعلمته من استاذي القدير الفاضل خبور خير جزاه الله عنا كل خير EXPORT.rar

السلام عليكم و رحمة الله استاذ طارق محمود شكرا جزيلا لك فكرة الكود جميلة استاذي عادل بعد اذنك انا عملت على الملف الأخ احمد حافظ بناء على رسالتك تم عمل المرفق ______________________2.rar

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

السلام عليكم و رحمة الله جرب المرفق هل هذا المطلوب =SUMPRODUCT((INDEX(SH2;0;3)=$B3)*(INDEX(SH2;0;1)=D$1);INDEX(SH2;0;4)) Book22.rar

السلام عليكم و رحمة الله وبركاته الأستاذ الفاضل طارق محمود حل رائع و اكثر من رائع ومن ناحية اخرى فلقد وجدت لدي نموذج للأستاذ خبور يتم الإختيار منه للإضافة تم عمله على الملف المرفق بالضغط على زر اضافة عميل يظهر نموذج تختار منه نوع البحث رقم العميل او اسم العميل ثم يتم الكتابه في الخانة الأخرى اول ارقا او اول احرف الإسم وسوف يظهر في الخانة الثالثة جميع المطابقات للبحث يتم اختيار المطلوب وبضغط موافق يتم ادراج رقم العميل و اسم العميل في الأعمدة المخصصة لذلك للسطر الموجود به المؤشر وينطبق نفس الشرح على زر اضافة مزرعة وبذلك يمكن الإستغناء عن جميع المعادلات الخاصة ب جلب اسم العميل او اسم المزرعة آمل التجربة ayman.rar

و عليكم السلام و رحمة الله وبركاته تفضل المطلوب _______2.rar

السلام عليكم و رحمة الله وبركاته طبعا مش اي حد يستطيع التعديل على كود عملاق من العمالقة الكبار مثل الأستاذ خبور ولكن عند مراجعة الملف وجدت لك حل مؤقة وهو استخدام التصفية الموجودة في الصفحة لإختيار الصفوف المحددة للتاريخ وتم اضافة ذلك للكود مع تعديل معادلة المجموع لكي يكون الناتج صحيح If [G4] <> "" And [H4] <> "" Then Selection.AutoFilter Field:=1, Criteria1:=">=" & [N1], Operator:=xlAnd _ , Criteria2:="<=" & [N2] Else ActiveSheet.ShowAllData End If من ناحية اخرى بالنسبة للعمل اذاكنت في حاجة الى شركة تقدم نفس الخدمات في المدينة المنورة من استقبال و توديع و مزارات آمل مراسلتي على AYMZ077@YAHOO.COM مع التحية أخوك احمديعقوب _____.rar

و عليكم السلام و رحمة الله وبركاته شاهد المرفق 2003 آمل ان يفي بالغرض silver.zip

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

السلام عليكم تم التعديل في صفحة محضر جرد ______Alialdin.rar

وعليكم السلام و رحمة الله وبركاته بالنسبةللأكواد وشرحها يوجد حاليا في المنتدى دورة كاملة وجاري الشرح فيها برعاية الأساتذة ابوهاجر المصري وعمودي والأستاذ الفاضل هادي سالم على الرابط http://www.officena.net/ib/index.php?s=&am...st&p=130251 آمل مراجعتها و متابعتها اما حول تعديل الملف سوف اوافيك به لاحقا اليوم او غدا ان شاء الله مع التحية و التقدير

ممكن من ضمن الماكرو اخفاء و اظهار الصفوف غدا ان شاء الله يكون الملف هنا معدل حسب الطلب

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