Ragabmax

حضور وانصراف.xlsm

Private Sub CommandButton7_Click()
Application.Visible = True
Sheet1.Activate
Sheet1.Visible = True                 'الشيت المراد اظهاره
Sheet2.Visible = False
Sheet3.Visible = False
Unload Me
End Sub

تفضل الكود

تم عمل المطلوب 

فاتورة فارغة للصرف 2019.xlsx

بعد اذن الاستاذه الافاضل هناك طريقة اخره فى الفديو اليك الرابط لعله هذا هو المطلوب 

 Up

1 hour ago, عبدالله الصاري said:

البرنامج يفتح وتاتي الشاشة الرئيسة  وطلب التحديث

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

1 hour ago, أحمد يوسف said:

بيظهر معى صفحة فاضية بيضاء

ايوه بيتجي صفحه فاضيه بعد ماتيجي الشاشه الرئيسيه

انا عاوز اعدل في الكود بحيث يفتح في اي جهاز تاني 

2 hours ago, أحمد يوسف said:

كيف تتم المساعدة والملف لا يفتح أصلا ؟!!!!!

فبالتالى لا يمكن المساعدة

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

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

2- عند فتح البرنامج يظهر تحديث علما بان الرساله لم تظهر فيما قبل 

ارجو المساعده وبارك الله فيكم 

الباسورد 25 

program.xlsm

جاري حل المشكلة 

الملف مره اخرى انا مجربو لوندوز 10/7/8 وشغال وافيس 2016

program.xlsm

فعل الماكرو انا جربته علي اكثر من جهاز وشغال معايا

Mr-ragab اليوزر نيم

الباسورد 25

 بعد حفظ الخطاب اضغط تحديث البيانات لفتح الخطاب فى عملية البحث  

program.xlsm

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

Up

مطلوب كود ترحيل البيانات من نوع ايميلات عند الترحيل تتحول أوتوماتيك لهيبرلينك

ارشيف.xlsm

Up

Up

6 hours ago, edkawy said:

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

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

 

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 15.45 kB · 1 download

تسلم بس مش هو ده اللي انا عاوزه انا عاوز احول خانه من الشيت تحول تلقائي لما اضيف فيها عنوان

1 hour ago, edkawy said:

السلام عليكم 

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

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

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

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

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

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

 

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

Ragabmax.zip 1.22 MB · 2 downloads

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

User name : ragab

password: 25

Ragab.rar

ارجو  الرد

3 hours ago, وجيه شرف الدين said:

ممكن تنظر الى هذا الرابط https://www.officena.net/ib/topic/90710-ارتباط-تشعبي-لأسماء-ملفات-مجاورة/?tab=comments#comment-569736

اخي العزيز انا نظرت علي الموضوع من قبل لكن انا عاوز اضيف كود بحيث كل مضيف مسار خطاب علي فورم انا عمله يحوله أوتوماتيك الي هايبر لينك علشان اقدر افتحه من خلال الشيت يرجي من سيادتكم العمل علي المرفق ولكم مني جزيل الشكر والاحترام

انا عاوز اعمل في الخانه المشار اليه اي حاجه تكتب فيها تتحول أوتوماتيك 

مفيش حد يساعدنى 

تم ارفق الملف مع العلم انا عامل معدله عاوز احولها لكود 

Book11.rar

Up