طارق محمود

مشكلة في التحميل المرفق علي الرابط http://www.4shared.com/file/ZqwWBe0a/del_dub2.html

السلام عليكم تفضل المرفق

السلام عليكم أخي الكريم تفضل المرفق أرجو ان أكون فهمت المطلوب VLOOKUP2.rar

السلام عليكم أخي الكريم الخلل ليس من اجراءاتك بل من عندي تفضل المرفق ، ان شاء الله كما تحب timon2.rar معادلات الى كود4.rar

مش مضبوط قبل تشغيل الزر ، إمحيهما ستجد الماكرو يحسبهما من قائمة View ثم Toolbar ثم علم علي Control Toolbox ومنها أضبط وضعية التصميم ثم أنقر الزر الذي تريد ادراجه ثم أخرج من وضعية التصميم ثم دبل كليك علي الزر سيتحول المؤشر تلقائيا إلي الفيجوال بيزيك الخاص بالزر ضع فيها الكود الذي تريد ليس له فائدة ، نسخته عندك بالخطأ

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

أخي علي جزاك الله خيرا التعلم يحتاج الصبر والممارسة عليك بدراسة المشاكل التي يعرضها الإخوة وخاصة تلك التي تقترب من مجال عملك ليسهل عليك فهمها والعمل بها أيضا لتعلم الماكرو أو الكود بطريقة سهلة ممكن تدرس موضوع أخونا الغالي العبقري هادى محمد المامون سالم علي الرابط التالي http://www.officena....opic=12203&st=0 وهناك الكثير من المواضيع بالمنتدي لهذا الغرض إبحث وتلذذ بالأكواد وفقنا الله وإياكم لما يحب ويرضي

السلام عليكم ممكن عن طريق دبل كليك علي الرقم في عمود الكمية تحفز الكود التالي أو ضعه في حدث الورقة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) rr = Target.Row: cc = Target.Column t = Target.Value: p = Target.Offset(0, -1).Value If rr < 5 Or cc <> 6 Or t = "" Or p = "" Then Exit Sub On Error Resume Next Set price = Range("M7: O14") a = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 2) b = WorksheetFunction.VLookup(Cells(rr, cc - 1).Value, price, 3) Cells(rr, cc + 1).Value = a Cells(rr, cc + 3).Value = b Cells(rr, cc + 2).Value = a * t Cells(rr, cc + 4).Value = t * (a - b) End Sub أو حمل المرفق ثم ضع اي رقم في عمود الكمية ثم دبل كليك علي الرقم تركت اول صف بالمعادلات للمرجع ويمكنك طبعا تلغيها معادلات الى كود.rar

السلام عليكم الحل بالملف المرفق وهو من جهد أخي الحبيب مشرف المنتدي / أبو عبدالله ولزيادة العلم ممكن زيارة الموضوع علي الرابط: http://www.officena.net/ib/index.php?showtopic=32040 Cutting_Plan.rar

السلام عليكم أخي الحبيب أرهقتني في تحميل الملف يكفيني هذا اليوم لكني سأرفعه هنا ليتمكن الإخوة من المساهمة وأرجو ان تراعي التالي فيما بعد لاداعي لنسخ المعادلات حتي آخر صف 65536 فهي تستهلك الكثير من حجم الملف وتجعل العمل علي الملف صعب جدا لقد الغيت لك الزائد عن الألف إلغاء الصور التي ليس لها داعي بالملف أو علي الأقل إجعل حجمها اقل مايمكن لقد ضغطت حجم الصور بالملف لأقل درجة ضغط الملف قبل رفعه لأي مكان بالنت لقد كان الملف 32.5 ميجا الآن مازال كبيرا لكنه 3 ميجا فقط وبعد ضغط الملف بالوينرار أصبح 1.3 ميجا Close_09_2.rar

السلام عليكم أخي أيمن الرابط لايعمل الرابط الصحيح هو: http://www.4shared.com/get/cRML2UKN/Close_09.html

السلام عليكم أسهل طريق هو الجداول المحورية PIVOT TABLE ! مشكلة في رفع الملفات ! أنظر المرفق علي الرابط http://www.4shared.com/file/kQW-gdRR/PIV_TABLE.html

أقترح زيادة 10أعمدة أخري لتضع بها بيان إسم الحوش بجوار أول عمود من كل حوش لتضع به تسميه الحوشه أي أن الوضع الحالي للحوش 1 مثلا هو ح 1- عدد السبايط || ح 1- وزن قائم | ............ وسيكون ح 1- عدد السبايط |ح 1- تسميه الحوشه| ح 1- وزن قائم | ............

أولا ، لابد أن تعلم أن صورة الشيت المراد حفظها يتم تركيبها أولا علي شارت أعددتها خصيصا لهذا الغرض ولأنها ضبطت معي من ثالث محاولة لذا فرقم الشارت 3 في السطر السادس من الكود ActiveSheet.ChartObjects("Chart 3").Activate الإحتمال الأول للخطأ أن تكون أنشأت صفحة فاضية عادية ثم سميتها TAREQ المفروض أن تأخذ نسخة من الصفحة في الملف الأول كما هي بالشارت اللي فيها إحتمال آخر أن يكون رقم الشارت لم يعد 3 ولتلافي هذا قف علي الشارت وانقر صورة الفاتورة ثم الغيها ثم قف علي الشارت نفسها ، كليك يمين الماوس ستجد أحد الخيارات Chart Window أنقر عليه ستجد رقمها يظهر بالأعلي مثلا ان كانت Chart 1 تغير ذلك في السطر السادس من الكود وخلاص

السلام عليكم كل ماتريده هذا يمكن الحصول عليه من الشكل الذي ضبطته لك في مشاركتي السابقة فإسم المزرعة موجود كعمود بالورقة أي أن بيانات المزرعة (1) ستكون مفصولة عن بيانات المزرعة (2) مثلا لأنها في صفوف آخر وهكذا فلن تحتاج لأيه اعمدة أخري وقد وضعت لك 10 احواش

غير فقط السطر الثالث من الأسفل من الكود الثاني من FName = ThisWorkbook.Path & "\" & a & ".gif" إلي FName = "F:\Invoices\" & a & ".gif"

السلام عليكم أخي الكريم من محرر الفيجوال بيزيك دائما تجد جميع الشيتات بحالاتها الثلاث المخفية جدا والمخفية والظاهرة إضغط F4 وقف علي الشيت TAREQ ثم غير حالته من مخفي جدا إلي ما تريد أنا فضلت ان أخفيه حتي لايغير أحد شيء ، مقاس الصورة مثلا في السطر الثالث من الأسفل من الكود الثاني يوجد أمر يجعل مسار الصورة هو نفس مسار الملف FName = ThisWorkbook.Path & "\" & a & ".gif" عندي مشكلة في رفع الملفات عالموقع أنظر الصورة في الرابط التالي http://www.4shared.com/photo/7ahGdCZ6/tofimoon.html

السلام عليكم أخي الكريم أنظر الفيديو المرفق او الرابط http://www.officena.net/ib/index.php?showtopic=33272&st=0&p=173539&hl=%C7%E1%CA%CD%DF%E3&fromsearch=1&#entry173539 Control_Box.rar

السلام عليكم من خلال البحث في بعض المواقع الأجنبية وجدت إمكانية تحويل الرسم البياني بالإكسل Chart إلي صورة بامتداد gif عن طريق كود بسيط نسبيا وفي هذا ميزات كثيرة أهمها (1) صغر حجم الصور (2) لاداعي لتنزيل برامج تحويل إلي صور تفضل المرفق وبه زر أخضر لتحويل المجال المطلوب إلي صورة 4.rar

السلام عليكم ستجد الرد في الموضوع الآخر http://www.officena.net/ib/index.php?showtopic=34186

السلام عليكم إخواني تفضلوا المرفق أعدت تنسيق الورقة "تفصيلي الأذون" ليتمكن من يريد من عمل التقارير بعد تضبيط باقي أوراق الملف "اجماليات الاذون" ، ... نصف الحل ولكنه يكفي للبداية يبدو أن التحميل بالموقع معطل ستجدها علي الرابط http://www.4shared.com/file/YQ_sdsXA/Zeina_Farm-2011.html الله يوفقكم

السلام عليكم أخي العزيز لم أفهم فالكود يعمل معي جيدا بفرض أن الملف به بيانات اليوم السابق عند تشغيل الماكرو الأول (1) ،كما هو بالسابق يفتح الملفات في نفس المجلد بالتتابع ويأخذ البيانات ويعمل منها نسخة في الملف المجمع علي شكل شييت 1،2،3...هكذا ثم يغلق الملفات أيضا بالتتابع إلا الملف المجمع ثم عند تشغيل الماكرو الثاني (2) ، يقوم بالتالي بلغي مابه من بيانات قديمة يرحل البيانات التي في الشيتات إلي ورقة التجميع TOTAL يلغي باقي الشيتات وبالتالي تكون بيانات اليوم الواحد متراكمة ولايوجد غيرها إن لم يكن هذا ماتريد، أرجو الشرح جيدا طبعا الكود الأول Files_Collect ، لم يحدث به تغيير الكود الثاني بعد التعديل Sub Shet_Collect() x = Worksheets.Count Worksheets("TOTAL").Select Range("A2", [M2000].End(xlUp)).ClearContents Range("B1").Select Application.DisplayAlerts = False For i = x - 1 To 1 Step -1 Worksheets(i).Select Range("B2", [M2000].End(xlUp)).Select Selection.Copy Worksheets("TOTAL").Select [m60000].End(xlUp).Offset(1, -11).Select ActiveSheet.Paste Sheets(i).Delete Next i Application.DisplayAlerts = True [a2].Value = 1: [A3].Value = 2 Range("A2:A3").Select [A3].Activate Selection.AutoFill Destination:=Range("A2", [m60000].End(xlUp).Offset(0, -12)) [a2].Copy Range("A2", [m60000].End(xlUp).Offset(0, -12)).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False [a2].Select End Sub ومرفق الملف وبه التعديل Total.rar

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

السلام عليكم مؤقتا نزل البرنامج لو غير موجود عندك من الرابط http://explore.live....-live-writer-xp مع إختيار مايناسبك لو الويندوز ليست XP ثم شغل البرنامج وليس من الضروري تشغيل باقي الأجزاء غير الرايتر أنظر الصورة وإلي لقاء غدا

لاأدري ربما يلزمك ان تشترك بالفورشيرد دقيقة واحدة - مجاني جربها