فلسطيني

كل عام وأنتم بألف خير بارك الله في جهودكم الطيبة و وفقكم إلى ما يحبه و برضاه

delete_duplicate.rarالسلام عليكم ورحمة الله وبركاته شاهد الملف المرفق

السلام عليكم ورحمة الله جرب الصيغة التالية في A9 =COUNTA(C9:H9)-COUNTIF(C9:H9;"")

khaled.rarالسلام عليكم ورحمة الله وبركاته في المرفقات ملفان كل منهما بطريقة مختلفة أتنى أن يكون هذا ما تريد سلامي إلى نابلس جبل النار

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

_____________________________________________.rarالسلام عليكم ورحمة الله الملف بعد التعديل في المرفقات

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

مشكور أخي على هذه المشاركة الطيبة

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

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

Nov_06_Cash_Flow.zipالسلام عليكم ورحمة الله تم التعديل في المل فالمرفق عسى أن يكون حسب رغبتك

أخي الكريم السلام عليكم ورحمة الله الرجاء إعادة تحميل الملف فهو غير موجود

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

السلام عليكم ورحمة الله وبركاته انظر الملف المرفق في الرابط التالي http://www.officena.net/ib/index.php?showtopic=14364

print.zipالسلام عليكم ورحمة اله وبركاته أخي الكريم جرب الملف المرفق و ستجد فيه ما تريد إن شاء الله

السلام عليكمورحمة الله حسب ما فهمت أنك تريد طباعة أكثر من نطاق في صفحة واحدة إليك الكود التالي مع تغيير النطاقات Sub PrintRpt2() Range("HVIII_3A2").PrintOut Range("BVIII_3").PrintOut Range("BVIII_4A").PrintOut Range("HVIII_4A2").PrintOut Range("BVIII_5A").PrintOut Range("BVIII_5B2").PrintOut Range("HVIII_5A2").PrintOut Range("HVIII_5B2").PrintOut End Sub

السلام عليكم ورحمة الله وبركاته أخي الكريم استخدم هذا الكود و سوف يقوم بعمل دالة vlookup و إذا احتجت لأي تعديل فسوف نقوم بعمله Sub MyLOOKUP() Dim rngLOOK As Range, strVAL As String, iCol As Integer Dim MyVar As Variant strVAL = Application.InputBox("ÃÏÎá ÇáÞíãÉ", "Lookup Value", Type:=2) Set rngLOOK = Application.InputBox("Select the Lookup Range", "ÍÏÏ ÇáãÌÇá ", Type:=8) iCol = Application.InputBox("ÃÏÎá ÑÞã ÇáÚãæÏ", Type:=1) MyVar = Application.WorksheetFunction.VLookup(strVAL, rngLOOK, iCol, False) MsgBox MyVar End Sub

progress.zipالسلام عليكم ورحمة الله وبركاته في المرفق ملف يعطي ما تريد على شريط الحالة السفلي أرجو تجربته و إبداء الرأي

السلام عليكم ورحمة الله وبركاته يمكنك تعديل الكود بهذا الشكل ليوقم بكتابة عرض و ارتفاع كل خلية تقف عليها في داخلها Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell = "Cell width =" & ActiveCell.ColumnWidth & " " & " and Cell hieght=" & ActiveCell.RowHeight End Sub

cell_wedith.zipالسلام عليكم ورحمة الله الكود التالي يظهر رسالة بعرض العمود و ارتفاع الصف للخلية النشطة Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "Cell width =" & activecell.ColumnWidth & " " & " and Cell hieght=" & activecell.RowHeight End Sub كما في الملف المرفق

كل عام و أنتم بخير أعاده الله عليكم و أنتم لله أقرب

test2.rarألسلام عليكم ورحمة الله وبركاته إليك الملف المرفق

______________.rarالسلام عليكم ورحمة الله و بركاته في الملف المرفق يمكنك الذهاب لأول خلية فارغة في العمود B

السلام عليكم ورحمة الله وبركاته جرب الكود التالي Sub Macro1() ActiveWorkbook.SaveAs Filename:= _ "c:\Book1.txt", FileFormat:= _ xlTextMSDOS, CreateBackup:=False End Sub

time.rarأخي سماوي السلام عليكم ورحمة الله وبركاته جرب الملف المرفق فيه كود لوقت الإدخال كما طلبت