اريد المساعده فى ارتباط تشعبى

[صلاح الصغير]

برجاء من الاساتذة الافاضل

المساعده فى عمل ارتياط تشعبى بطريقة الية

او معادلة hyperlink

او كود

مرفق ملف

salah.rar

[شوقي ربيع]

السلام عليكم

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

Sub test()
On Error Resume Next
Pth = ActiveWorkbook.Path & "\" & Range("C9") & ".pdf"
ActiveWorkbook.FollowHyperlink Pth
End Sub

[صلاح الصغير]

شكرا استاذ / شوقى

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

و ماذا لو تكرمت فى حل الطلب الاول بالورقة الاولى

و اتمنى ان اكون لا اثقل عليك

تم تعديل أبريل 20, 2014 بواسطه صلاح الصغير

[شوقي ربيع]

السلام عليكم

Sub test()
    Dim StrFile As String
    Dim Pth, FName
    FName = "*" & Range("C9") & "*"
    Pth = ActiveWorkbook.Path & "\"
    StrFile = Dir(Pth & FName)
    If StrFile = "" Then MsgBox "الملف غير متوفر"
    Do While Len(StrFile) > 0
    On Error Resume Next
    ActiveWorkbook.FollowHyperlink Pth & StrFile
        StrFile = Dir
    Loop
End Sub

اما الطلب الاخ لم افهمه بشكل جيد

[محمد نصري]

السلام عليكم ورحمة الله وبركاته هذا حل للطلب الثاني بالمعادلات

أخي الكريم قم بتعديل في معادلتك الخاصة بالارتباط التشعبي كما يلي

 

=HYPERLINK("G:\salah\"&C9&".pdf";"عرض")

التعديل الذي قمت به هو :

اولا استبدل اسم ملف pdf الذي تريد فتحه وهو 1 او 2 او 3 ....

استبدله بالخلية التي تريد ان تضع اسم الملف فيها وهي C9

ثم ضع قبل الخلية اشارة اقتباس " ثم &

ثم ضع بعد C9  أيضا & ثم اشارة "

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

اعتذر لم اعرف كيف ارفع الملف لك

قم بنسخ المعادلة فقط

ارجو ان تكون الإجابة مفيدة لك

السؤال الأول لم أفهمه جيدا

[صلاح الصغير]

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

بارك الله فيكم

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

و السؤال هنا كيف يمكن عمل ارتباط بطريقة الية عند اضافة صف جديد و رقم فى العمود a بحيث يقوم الكود بعمل ارتباط لكل الصفوف الموجودة و يوجد رقم فى العمود a

يقوم بربطه بنفس الرقم فى المستندات المصورة

و شكرا لكم و ارجو ان اكون لا اثقل عليكم

[صلاح الصغير]

للرفع

[صلاح الصغير]

للرفع

يا جماعة الخير

[صلاح الصغير]

معلش يا اساتذة اعزرونى 

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

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

لان عدد القرارات يكون كثير جدا خلال السنة و انا اقوم بتصوير القرار و تسميته ثم عمل ارتباط له بالطريقة التقليدية

فهل يمكن عمل المطلوب

و ارجو ان اكون اوصلت الفكرة

[صلاح الصغير]

اتمن ان يكون الشرح وافى

[الخالدي]

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

الكود التالي يضيف ارتباط تشعبي في العمود D ورقة الطلب الاول

ضع الكود في حدث تغير الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 1 Then
For Each C In Intersect(Target, [A2:A10000])
Pth = ActiveWorkbook.Path & "\" & C & ".pdf"
C(1, 4).Hyperlinks.Delete
If C = "" Then
    C(1, 4) = ""
Else
    If Dir(Pth) <> "" Then
        C(1, 4).Hyperlinks.Add C(1, 4), Pth, , , "فتح الملف"
    Else
        C(1, 4) = "الملف غير متوفر"
    End If
End If
Next
End If
End Sub

ارجو ان يكون المطلوب

في امان الله

[صلاح الصغير]

عذرا للتأخر فى الرد لمشكلة فى النت

بجد رائع يا استاذ / الخالدى

اشكرك كل الشكر على اهتمامك بالمواضيع

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

منتدى اكثر من رائع و اساتذة بارك الله فيهم كلهم بلا استثناء

[ا بو سليمان]

ما شاء الله تبارك الله 

 

تعاااااااااااون رائع بين   الاخوه في اوفسينا

[ا بو سليمان]

 

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

الكود التالي يضيف ارتباط تشعبي في العمود D ورقة الطلب الاول

ضع الكود في حدث تغير الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 1 Then
For Each C In Intersect(Target, [A2:A10000])
Pth = ActiveWorkbook.Path & "\" & C & ".pdf"
C(1, 4).Hyperlinks.Delete
If C = "" Then
    C(1, 4) = ""
Else
    If Dir(Pth) <> "" Then
        C(1, 4).Hyperlinks.Add C(1, 4), Pth, , , "فتح الملف"
    Else
        C(1, 4) = "الملف غير متوفر"
    End If
End If
Next
End If
End Sub

ارجو ان يكون المطلوب

في امان الله

 

كم انت رااااااااااااائع اخي الخالدي