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

[Ragabmax]

[أحمد يوسف]

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

كيف يمكن العمل على الصورة ؟ّ!!!

[Ragabmax]

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

Book11.rar

[Ragabmax]

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

[وجيه شرف الدين]

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

[Ragabmax]

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

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

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

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

[Ragabmax]

ارجو  الرد

[edkawy]

السلام عليكم 

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

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

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

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

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

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

 

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

Ragabmax.zip

[Ragabmax]

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

[edkawy]

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

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

 

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

تم تعديل مايو 12, 2019 بواسطه edkawy
اضافه كود

[Ragabmax]

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

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

[Ragabmax]

Up

[Ragabmax]

Up