فلسطيني

كل عام وأنتم بألف خير

بارك الله في جهودكم الطيبة

و وفقكم إلى ما يحبه و برضاه

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أخي سماوي السلام عليكم ورحمة الله وبركاته

جرب الملف المرفق فيه كود لوقت الإدخال كما طلبت