كود لفتح مجلد

[obad65]

مع التحية أخواني

  أرجو المساعدة في انشاء ماكرو عند الضغط على رقم الموظف الوظيفي يقوم بفتح مجلد موجود

مثلا

لو تم الضغط على رقم الموظف في العمود B موظف رقم 125  يتم فتح مجلد برقم الموظف موجود في   (D:\Empl\125)

 

 

  وشكرا جزيلا لكم

[obad65]

مع التحية أخواني

 

   برفقه مثال على المطلوب

 

  لاعدمناكم

ss.zip

[ابو تراب]

هلا عباد

 

كود لفتح المجلد

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B3:B10000")) Is Nothing And Target.Value <> "" Then
        Shell "cmd /c start D:\Empl\" & Target.Value, vbHide
    End If
End Sub

جرب الملف

 

 

ss.zip

[obad65]

جزاك الله خير أخي ابوتراب

 

   فعلا انجاز رائع وهو المطلوب بالفعل