طارق محمود

السلام عليكم لا أعلم كثيرا عن هذا الموضوع ولكني أعتقد أن Office 2003 = اصدار 11 Office 2007 = اصدار 12 Office 2010 = اصدار 14 والله أعلم

السلام عليكم بدون التنسيق الشرطي ، ممكن بالفيلتر (التصفية) أظر المرفق تلوين المكرر.rar

السلام عليكم أخي الكريم الشكر طبعا أولا لله ثم لأخونا العزيز وأستاذنا بن علية الآيميل الخاص : tarekmahmoud_2@hotmail.com أرجو أخي مراجعة الموضوع التالي أولا ، قد تد فيه مايفيدك http://www.officena.net/ib/index.php?showtopic=35496 إرسل لي الملف وسأحاول معرفة السبب

السلام عليكم أهلا ومرحبا بك أخي بين إخوانك تفضل اخي المرفق Chart.rar

السلام عليكم الأخت الفاضلة Jasmin كما قال أخي الكريم بن علية هذه العملية (نسخ نطاق مصفى على هذا النطاق) غير ممكنة البتة في أي نسخة كانت (لعدم تطابق النطاقات) وفي جهازي أعمل بنسختي إكسيل 2003 و 2007 وقد جربت ذلك في النسختين... وهذا قد يحدث فقط في حالة واحدة فقط وهي: أن التصفية في أسطر متتالية أي كما في المثال الذي أرفقتيه ، تكون بيانات type A متتالية ويتم عمل اللصق علي أول خلية فقط وليس علي الكل بمعني أن تأخذي من شيت الFiltered نسخة من البيانات بعد تعديلها ثم تقفي في شيت NW علي الخلية A2 وليس علي النطاق المصفي ثم لصق

أخي العزيز يوجد في ملف اخي بن علية نطاق تم تسميته Data وهو النطاق $A:$A عندك حلين إما تسمي نفس النطاق بنفس الإسم أو تستبدل الكلمة Data في التنسيق الشرطي (الشرط الثاني والثالث) بالنطاق $A:$A

السلام عليكم في ملف أخي بن علية ظلل المساحة H103:B2 ثم إضغط التالي بالتتابع Alt O D لاستعراض شروط التنسيق الشرطى ستجد 3 شروط ثم في ملفك انت ظلل نفس المساحة H103:B2 ثم إضغط نفس الضغطات بالتتابع وانقل الشروط الثلاثة

ظلل علي المجال بالكامل علي أن تبدأ التظليل من أول خلية بها معادلات إضغط CTRL.D ستجد نسخة من الصف الأول بمعادلاته لكامل المجال ويمكن أيضا مليء هذه المعادلات لسطور معينة دون غيرها أنظر الفيديو المرفق إضغط CTRL.G ستجد قائمة صغيرة بأسفلها مكان تكتب به عنوان المرجع المراد مثلا A3000 إضغط CTRL.D.rar

السلام عليكم أخي العزيز / سعد عابد لامانع مطلقا لكني كما تعلم لست محاسبا ، بس سؤال الا يصلح عمل القيد المزدوج علي سطرين فبدلا من ان يكون دائن 100 من ح/1 إلي ح/2 ، ح/3 بالتساوي مثلا فتكون قيدين دائن 50 من ح/1 إلي ح/2 دائن 50 من ح/1 إلي ح/3 أي كما قال أخونا syr_acc12 أو إرسل لي تصورك عن الموضوع أو كيف تريد ذلك بمثال بسيط

السلام عليكم بعد إذن أستاذنا الجليل خبور خير أخي جمال رجعت إلي مقترحي الأول والذي كنت عملته يدويا بالمشاركة #2 وطبقت عليه التنسيق الشرطي ووجدته جيدا ليس به تكرار في الزميلين في المرفق تم تعديل وضعية المزاملة وتم عمل تنسيق شرطي ثاني لتفادي التكرار في الزميلين وإن كان وقت التوافيق طويل نسبيا علي كل حال تفضلوا المرفق توزيع عشوائى5.rar

جزاك الله خيرا أخي أبوعلاء

السلام عليكم أخي العزيز جرب المرفق بالتنسيق الشرطي شيكات للعملاء.rar

السلام عليكم مرحبا بك أخي الكريم بين إخوانك تفضل المرفق كما طلبت يحفظ المدي المطلوب في كل مرة تضغط علي الزر ويكون إسم الملف المحفوظ بهذا الشكل مثلا 270111_1209.xls أي أنه تم تسجيله في الساعة 12:09 من اليوم 27/01/2011 ويتم التسجيل في نفس مكان الملف الأصلي المرفق فعليك أولا أن تحفظه في المكان الذي تريد ثم تضغط علي الزر SAVE_A5_F23.rar

السلام عليكم إخواني مازال يوجد بعض التكرار في الزميلين تحايلت لاكتشافه بالتنسيق الشرطي أيضا تفضلوا المرفق توزيع عشوائى_4.rar

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

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

السلام عليكم أخي syr_acc12 الكود أصبح أسهل كثير تفضل الكود Sub Shift() Qaid_No = Cells(10000, 3).End(xlUp).Row - 3 '___________ READ _________________ For i = 1 To Qaid_No a = Cells(3 + i, 3) 'Check Account is exist or No x = Worksheets.Count For j = 1 To x If Worksheets(j).Name = a Then GoTo 100 Next j add_n_sht (a) 'in case no sheets in this name 100 Worksheets("QAID").Select Range("A" & 3 + i & ":F" & 3 + i).Copy Sheets(a).Cells(10000, 3).End(xlUp).Offset(1, -2).PasteSpecial Paste:=xlPasteValues Next i End Sub Function add_n_sht(n_acc) Sheets("sample").Select 'in case no sheets in this name Sheets("sample").Copy Before:=Sheets(1) ActiveSheet.Name = n_acc Range("B1").Value = n_acc End Function والملف مرفق ترحيل القيود للدائن وللمدين وإنشاء صفحة للحساب2.rar

السلام عليكم أخي العزيز سعد عابد هذا الملف كان محاولة متواضعة حسب فهمي لموضوع المحاسبة ولكني فعلا لاأعلم الكثير عنها انا اول مرة مثلا اسمع عن القيود المزدوجه حسب مافهمت ان يكون احد طرفي الدائن و المدين اكثر من حساب اعتقد ان لهذا حل طبعا ولكن هل راجعت اولا ماهو معروض بالفعل في مواضيع المحاسبة علي الاغلب انك ستجد هذا مثلا في http://www.officena.net/ib/index.php?showtopic=32105&st=0&p=164213&hl=+%DE%ED%E6%CF%20+%E3%D2%CF%E6%CC%C9&fromsearch=1&#entry164213 أو ببعض البحث وإلا سأحاول معك الأسبوع القادم

أخي كيماس (عبد الفتاح) أخي ولد المجرب (أبو أحمد) كلنا نتعلم من بعضنا أنا عن نفسي تعلمت منكما الكثير جزاكما الله كل خير علي كلماتكما الطيبة وبارك فيكما

السلام عيكم أنظر الفيديو المرفق من صفحتي الشخصية مرسال.rar

السلام عليكم ممكن ذلك ولكن دعنا نتفق علي أنك تريد اكتشاف تاريخ آخر تغيير في الخليه وليس تواريخ كل التغييرات يمكن ذلك عن طريق تخصيص عدد من الخلايا مساو لعدد الخلايا التي تريد أن تراقبها في المثال المرفق خصصت الخلية E4 لمراقبة الخلية B4 وبالمثل يمكن مراقبة العمود B كله بتخصيص العمود E مثلا لذلك وبالطبع يمكن إخفاء العمود E أو عمل حماية له لكي لايتلاعب بها أحد الكود يجب أن يكون في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub If Target.Row <> 4 Then Exit Sub MsgBox ("You last editing of B4 was on" & [e4]) [e4] = Date & " _ " & Time End Sub أنظر المرفق اكتشاف تاريخ آخر تغيير في الخليه.rar

أخواني هذه ليست رسالة خطأ بل تعني أن لديك 6 تعليقات (او رسائل) في صفحتك الشخصية إضغط علي هذا الرقم 6 أو 7 وسيقودك غلي الرسائل بعد ان تعلم عليها كرسائل مقرؤة او تلغيها ينقص الرقم حتي يتلاشي إن قرأت أو لغيت كل الرسائل

لإرفاق الملفات لابد ان تضغطها اولا عن طريق Winrar او Winzip

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

السلام عليكم أخي جمال المرفق ان شاء الله هو ماتطلب ظلل الأسماء المراد توزيعها ثم إضغط زر الماكرو الأصفر يتكون المطلوب بداية من C5 لزيادة التأكيد تم عمل تنسيق شرطي ليعطي لون أحمر للخلية (الخلايا) في حال تكرار الاسم في الصف او في العمود وهذا هو الكود Sub hhh() a = Selection.Columns.Count b = Selection.Count If a <> 2 Then MsgBox ("لابد أن تكون البيانات المختارة في عمودين"): Exit Sub If Int(b / 2) * 2 <> b Then MsgBox ("لابد أن يكون عدد البيانات في العمودين متساويين"): Exit Sub Dim x(999), y(999) i = 1 For Each ce In Selection i = i + 1: s = Int(i / 2) If s * 2 = i Then x(s) = ce.Value Else y(s) = ce.Value Next ce For s = 1 To b / 2 last = 0 For i = 1 To 10 If (s + last) > (b / 2) Then k = 50 Else k = 0 [B4].Offset(s, 2 * i - 1).Value = x(s + last - k) [B4].Offset(s, 2 * i).Value = y(s + last - k) last = last + 1 Next i Next s End Sub تفضل المرفق توزيع عشوائى3.rar