örnek çalışmamda tıkandığım nokta....

[copilot]

ekteki örnek çalışmamda temel olarak istediğimin birkısmını yapabildim.
beceremediğim noktaya gelince;

A:J kolonlarına bilgi girdikten sonra RAPOR GİR buttonuna tıklayınca raporlar dosyasındaki TETKİK kolanundaki isimlerle anılan WORD dosyasını çağırsın.

cevaplarınız için şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Dosyanızdaki "Rapor gir" butonuna aşağıdaki kodu kopyalayın. word dosyalarınızın C:\RAPOR isimli klasörde bulunduğu kabul edilmiştir.

[vb:1:f5818322d8]Private Sub CommandButton2_Click()
On Error Resume Next
For a = 2 To [g65536].End(3).Row
dosya = "WINWORD.exe " & """" & "C:\RAPOR\" & Cells(a, "g") & ".doc" & """"
Shell dosya, vbNormalFocus
Next
End Sub[/vb:1:f5818322d8]

 

[copilot]

sevgili levetm

öncelikle cevabınız için teşekkürler.verdiğiniz kod çalıştı ama benim ifade yanlışımdan kaynaklanan ufak bir yanlışla.bunun için özür dilerim.
aslında konuyu yeni yeni öğrenmeye çalıştığım içinde projeyi doğru tasarlamamışta olabilirim.sorun şurda oluştu;
RAPOR GİR buttonu her satırda mevcut olacak.rapor gir e tıklanınca açılacak WORD dosyası TETKİK kolonundaki isimle anılan dosya olacak

Ã?RNEK: 2. satıra veriler girilince rapor gir tıklandığında sadece TORAK word dosyası açılacak ,şimdiki düzende RAPOR dosyasındaki diğer Word dosyalarıda açıkmakta

 

[Levent Menteşoğlu]

Yani sadece yazılan satırdaki dosyamı açılacak.

 

[Levent Menteşoğlu]

Size g sütunundaki hücreye çift tıkladığınızda çalışacak bir kod önereyim. Böylece her satıra buton koymaya gerek kalmayacaktır. Bu kodu "VERİ GİRİÞİ" isimli sayfanın kod sayfasına kopyalayın. (commandbuttonun bulunduğu sayfa ile aynı sayfadır)

[vb:1:35e39bab5c]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, [g2:g65536]) Is Nothing Then Exit Sub
On Error Resume Next
dosya = "WINWORD.exe " & """" & "C:\RAPOR\" & ActiveCell & ".doc" & """"
Shell dosya, vbNormalFocus
End Sub
[/vb:1:35e39bab5c]

 

[copilot]

sevgili leventm

şimdi tam istediğim gibi oldu yardımın için çok teşekkür ederim

iyi bayramlar