edkawy

وعليكم السلام استاذ عبدالله

الكود ممتاز جزاك الله خير بس هل ممكن التعامل مع الصفوف حتى الصف رقم 30000 لان الملف الاصلى تقريبا فيد العدد ده ؟؟

السلام عليكم استاذ نبيل

بارك الله فيك بس الصوره المرفقه بتظهر لو حاولت اعمل دبل كليك زى ما حضرتك قولت 

مش معارف ايه السبب 

السلام عليكم 

الاخوده الكرام برجاء المسلعده فى الملف المرفق

فى معادله فى العمود K  , (تراكمى) برجاء زضع المعادله فى كود VBA  لان الملف الاساسى تقيل جدا بسبب هذه المعادله

ولكم وافر الشكر مقدما

officena 2.xlsm

جزاك الله خير يا استاذ / سليم على مجهودك

ملف سريع جدا و اكتر من ممتاز و انا بحاول اعدل على الكود عشان استخدمه على الملف بتاعى و ياريت لو ممكن حضرتك تساعدنى و تقوللى  :

1 - ازاى اقدر ازود عدد الاعمده فى الجدول الرئيسى وتظهر فى نفس الوقت فى صفحه الاستعلام ؟

2- ازاى الفورمات بتاعت صفحه الاستعلام تكون متغيره بتغير نتيجه البحث ؟

جزاك الله خير مقدما على مجهودك و تقبل تحيتى

السلام عليكم 

مجهود ممتاز استاذ محمد و بارك الله فيك

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

فى الملف بتاع حضرتك كشف الحساب تقريبا محدد بعد الصفوف بغض النظر عن عدد حركات الفواتير للعميل او اذا كان عميل قديم او عميل جديد 

مثلا اذا كان كشف حساب لعميل قدين من لمده طويله الجدول هيفضل ثابت الا اذا سحبت المعادله لتحت

و فى الحاله التانيه اذا كان حساب العميل لمده قليله ( خلال شهر مثلا ) الجدول هيفضل بردو محدد بنفس عدد الصفوف 

هل ممكن حضرتك تضيف امكانيه استيراد كشف الحساب خلال فتره معينه فى الملف المرفق اكون شاكر ليك

 و هل ممكن ان كشف العميل يكون متغير و مرتبط بعدد  حركات الفواتير للعميل

new log 33.xlsx

سلام عليكم

ممكن تجرب و تدوس على على الارقام دى و لاحظ تغيير شكل الريبورت او ممكن تعمل ريبورت مانويل زى الشكل المطلوب اللى انت عاوزه و نشوف طريق يبقى اتوماتيك

calculated item_Rev 1.xlsx

السلام عليكم

1 - اختار الاعمده المراد عمل نسخ لها ( دوس على  زر الكونترول فى الكيبورد و بعدين ظلل الاعمده كلها المراد عمل نسخ لها)

2 - فرضا انك اخترت عدد 4 من الاعمده وعملت ليهم نسخ

3- روح على الشيت المراد عمل اللصق هناك

4- اختار عدد 4 من العمده ( او نفس عدد الاعمده اللى انت عملتلها نسخ من الاول ) 

5 - كليك يمين و بعدين اختار نسخ من القايمه

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

العفو منك  يا اخى الكريم , انا مش استاذ ولا حاجه , احنا بنتشارك المعلومات عشان نساعد بعض مش اكتر

السلام عليكم

انا عملت تغيير بسيط فى الملف انى حولت البيانات الى جدول اتوماتيك و اتمنى ان ده يساعدك

جرب الملف و شوف

تعديل في دالة vlookup1.xlsx

جزاك الله خير يا استاذ وجيه عل مجهودك و لك الشكر

المعادله شغاله الحمد لله.

بارك الله فيك

السلام عليكم

الاخوه الكرام برجاء المساعده فى الملف المرفق

المطلوب البحث عن القيمه الموجوده فى العمود ( من عمود الكود الموجود فىجدول البيانات الاساسى ) وترتيبها افقيا فى جدول نتيجه البحث حسب التاريخ

وشكرا لكم مقدما

get all codes.xlsx

• اخى يجب عليك اظهار الكل من الفلتر كما هو بالصوره

حاول تظبط الخط الافتراضى من اعدادات الاكسل فى الاربعه اجهزه

اتفضل يا أخى

تم تغيير اسما الصفحات للغه الانجليزيه عشان الكود يشتغل و المخطط هيتغير بمجرد اك تغير البيانات فى الجدول

جرب الملف 

مخطط تعداد التلاميذ4.xlsm

العفو يا أخى 

جرب الملف الان 

مخطط تعداد التلاميذ2.xlsx

ممكن تجرب تحفظ الملف بامتداد تانى اسمه excel binary workbook

بيقلل حجم الملف تقريبا للنص

السلم عليكم

جرب الملف المرفق كده

R 11_1.xlsx

السلام عليكم

محاوله اتمنى تكون قريبه من المطلوب

مخطط تعداد التلاميذ.xlsx

العفو انا معملتش حاجه ... للاسف انا مليش فى الاكواد يا استاذ رجب , انا حبيت اشاركك المعادله اللى بستخدمها ممكن تفيدك

بص ممكن تجرب الكود ده 

Public Function Fex(strFullPath As String) As Boolean
On Error GoTo EExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then Fex = True
EExit:
On Error GoTo 0
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim a As String
If Target.Column > 6 Then GoTo EEExit
On Error GoTo EEExit
If Target.Value = vbnulstring Then GoTo EEExit
a = Dir("H:\B12\sources b12\\" & Target.Value & ".*")
a = Right$(a, Len(a) - InStrRev(a, "."))
a = "H:\B12\sources b12\" & Target.Value & "." & a
If Fex(a) Then
Target.Hyperlinks.Add anchor:=Target, Address:=a
Else
MsgBox "File " & Target.Value & " not found in current directory."
End If
Application.EnableEvents = True
Exit Sub
EEExit:
Target.Hyperlinks.Delete
Application.EnableEvents = True
End Sub

فكره الكود ده ان مجرد انت ما تحط ملف او فولدر فى مكان عين هو اتوماتيك بيعمل هايبلينك للملف ده طالما ان الملفات كلها موجوده فى مكان واحد 

يعنى مش محتاج تعمل مسار لكل ملف 

كل اللى عليك تعمله انك تحدد مكان الفولدر اللى الملفات هاتكون موجوده فيه اللى هو تقريبا هيكون H:\B12\sources b12\

جرب الكود ده لوحده فى ملف تانى وشوف

Automatically create hyperlink to file or folder in same cell.xlsm

السلام عليكم

بعد اذن الاستاذ احمد دى طريقه تانيه ممكن تساعد على اساس الملف ده مش محتاج تحدد المسار بتاع الفولدر الاساسى و كمان الداله تشتغل سواء اسم الملف عربى او تنجليزى مع امكانيه فتح الملفات الفرعيه للموظف

STAFF_edkawy.xls

السلام عليكم 

انا عملت حاجه ممكن تساعدك شويه حسب فهمى لطلبك

لو هو ده طلبك يبقى بعد اذنك غير شويه فى الملف بتاعك عشان يبقى شغال اتوماتيك اكتر ما انت عاوز

1 - بدل ما تكتب مسار الملف كمل فى الخليه اكتب اسم الملف فقط لا غير لان المعادله صعب انها تشتغل 

2- حاول تكتب اسم الخطاب بطريقه افضل شويه عشان تسهل البحث عليك لما تحب تدور على خطاب معين

3- اكتب رقم مرجع لكل خطاب فى الملف عشان سهوله التتبع Letter Reference No.

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

معلش ممن اكون طولت عليك بس انا تقريبا شغال زيك و دى شويه نصايح ممكن تساعدك فى شغلك

Ragabmax.zip

السلام عليكم

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

Incentives & Production Sheet 1.xlsx

سلام عليكم

ده ممكن يكون حل للجزء الاول من سؤالك

valid.zip

بارك الله فيك يا استاذ سليم بس انا محتاج انى اعمل كوبى لاسم الفولدر الموجود فى العمود حسب الاسم 

يعنى مثلا انا عندى 400 اسم فى العمودو انا محتاج اعمل كوبى اتوماتيك بدون ما افتح الملف نهائيا

الاخوه الكرام السلام عليكم و رحمه الله

الرجاء منكم المساعده فى الملف المرفق

انا بشتغل مع مجموعه من الملفات و الرسومات و المراسلات الموجوده فى فولدر رئيسى و متفرع تحت منه مجموعه من الفولدرات مصنفه حسب نوع لمستند و محتاج انى اعمل كود بحث و كوبى حسب اسم الملف او الفولدر

فى ملف الكسل المرفق العمود A  مجموعه اسماء لملفات مختلفه الامتدادات ( وورد , اكسل و هكذا ) و الملفات دى موجوده تحت عدد من الفولدرات الفرعيه  subfolder  و كنت  محتاج مساعده فى عمل فيجوال بيسك كود عشان اقدر عمل :

1 – محتاج ان الاكسل يبحث عن اسم الملف الموجود فى العمود A  فى المسار المحدد فى الخليه C1   و بعيدن يعمل نسخه من الملف ده فى المسار المحدد فى الخليه C4

2 - محتاج ان الاكسل يبحث عن اسم الفولدر الموجود فى العمود A  فى المسار المحدد فى الخليه C1   و بعيدن يعمل نسخه من الفولدر ده و جميع الملفات الموجوده فيه فى المسار المحدد فى الخليه C4 .

اتمنى ان السؤال يكون واضح لحضراتكم و انا بصراحه محتاج خالص الكود ده للشغل هنا و دورت كتير على النت و لقيت كود ممكن يعمل كوبى للملفات بشرط انها كلها تكون فى فولدر واحد و ده مستحيل انى اعمل ده فى الشغل هنا عشان كميه الملفات اللى المفروض اجمعها تقريبا مائه الف ملف / فولدر

جزاكم الله خير مقدما

VBA.rar