Excelde butonla ilgili word dosyası açmak

[safir33]

Sevgili hocalarım ve sevgili arkadaşlarım; Ekte vermiş olduğum sınav örneğinde postalar yardımı ile excel sayfasındaki verileri word dosyasına alabiliyorum. Sorunum şu;
Excelde verileri değiştirdiğim zaman mesleğe bakarak o mesleğe ait olan word dosyasını çağırmak istiyorum. Yardımcı olabilirseniz çok mutlu olurum.
Tüm arkadaşara iyi çalışmalar.

 

[safir33]

Arkadaşlar bir el atabilirseniz çok sevinirim.

 

[safir33]

Sayın hocalarım valla mesaj atmadan önce de mesajı yolladıktan sonrada sürekli forumu karıştırıp duruyorum ama istediğim cevaba bir türlü ulaşamadım. Lütfen bir yardım.

 

[safir33]

Sub DoluÇerçeve1_Tıklat()
Workbooks.Open Filename:=ThisWorkbook.Path & "\C:\Users\casper\Desktop\sınav\tesisat.doc"
End Sub

Arkadaşlar forumda şöyle bir kod buldum ama uyarlayamıyorum. Yok mu bir yardımcı olan. Belki de bulduğum kod bana uymuyor bilemiyorum ki. Kafayı yiyeceğim ya.

 

[leumruk]

Merhaba,
Aşağıdaki kod işinizi görecektir.

Sub Dosya_Ac()
yol = ThisWorkbook.Path & "\"
Dosya = Dir(yol & [d2] & ".doc*")
If Dosya <> "" Then
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & Dosya
Else
MsgBox "Böyle bir dosya mevcut değil, dosya adının doğru yazıldığından emin olun.", vbExclamation, "l e u m r u k"
End If
End Sub

 

[safir33]

Hocam cevabınız için öncelikle teşekkür ederim.
Ben meslek hücresine (D2) mesleği girdiğimde buton yardımı ile ilgili word dosyasını açmak istemiştim. Yani tüm meslekleri ayrı ayrı yazmak yeriine buton bu işi yapmalı. Mutlaka kolaydır ama ben bilmiyorum özür dilerim.

 

[leumruk]

Kodları ve dosyayı güncelledim. Yeniden indirebilirsiniz.

 

[safir33]

Hocam Allah razı olsun. Teşekkür ederim, hayırlı akşamlar diliyorum.

 

[leumruk]

Rica ederim, hayırlı akşamlar.