Excel de calisirken baska bir dosya acmak

[Levent Menteşoğlu]

Levent Hocam, küçük bir sorun var. A sütununa çentik attığımda ilgili sayfayı açıyor. Daha sonra o çentiği kaldırdığımda yine o sayfayı açıyor. Yani hücrede işaret varsa açsa işaret yoksa açmasa diyorum. Çok şey mi istiyorum acaba... Saygılarımla..

Kodu aşağıdaki ile değiştirin.

[LEFT]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing or target="" then Exit Sub
CreateObject("Shell.Application").Open ThisWorkbook.Path & "\" & Cells(Target.Row, "c") & ".doc"
End Sub

[/LEFT]

 

[enteresan]

Çok sağolun Hocam. Elleriniz dert görmesin...

 

[ahseka]

Merhaba Arkadaşlar;

Sub Düğme5_Tıklat()
With Application.FileSearch
.NewSearch
.LookIn = "\\C:\Urun\EtiketResim\sahit"
.Filename = Range("C5").Value & ".jpg"
.SearchSubFolders = True
If .Execute > 0 Then
For i1 = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i1))
Next i1
Else
MsgBox "ÜRÜNÜN ŞAHİT GİRİŞİ HENÜZ YAPILMAMIŞTIR. YETKİLİYE HABER VERİNİZ.)"
End If
End With
End Sub

Ben bu formülle başka bir klasörde bulunan jpg formatındaki resim dosyasını düğme5 ile açmak istiyorum ama malesef açılmıyor.
Yardımlarınızı rica edeiyorum.

Şimdiden tüm arkadaşlara teşekür ediyorum.

"Yaşam, elinde iyi kartlar olması değil, elindekilerle iyi oynamaktan ibarettir."

 

[halit3]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub Düğme5_Tıklat()
klasör = "C:\Urun\EtiketResim\sahit"
AD = klasör & "\" & Sheets("SIFRE").Cells(5, 3).Value & ".jpg"
On Error Resume Next
WinExec "Explorer.exe " & AD, 1
End Sub

Sub Düğme5_Tıklat()
With Application.FileSearch
.NewSearch
.LookIn = "C:\Urun\EtiketResim\sahit"
.Filename = Range("C5").Value & ".jpg"
.SearchSubFolders = True
If .Execute > 0 Then
For i1 = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i1))
Next i1
Else
MsgBox "ÜRÜNÜN ŞAHİT GİRİŞİ HENÜZ YAPILMAMIŞTIR. YETKİLİYE HABER VERİNİZ.)"
End If
End With
End Sub

 

[halit3]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub Düğme5_Tıklat()
klasör = "C:\Urun\EtiketResim\sahit"
AD = klasör & "\" & Sheets(ActiveSheet.Name).Cells(5, 3).Value & ".jpg"
On Error Resume Next
WinExec "Explorer.exe " & AD, 1
End Sub

Sub Düğme5_Tıklat()
With Application.FileSearch
.NewSearch
.LookIn = "C:\Urun\EtiketResim\sahit"
.Filename = Range("C5").Value & ".jpg"
.SearchSubFolders = True
If .Execute > 0 Then
For i1 = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i1))
Next i1
Else
MsgBox "ÜRÜNÜN ŞAHİT GİRİŞİ HENÜZ YAPILMAMIŞTIR. YETKİLİYE HABER VERİNİZ.)"
End If
End With
End Sub

 

[ahseka]

Merahaba halit

Çalışmadı.


"Yaşam, elinde iyi kartlar olması değil, elindekilerle iyi oynamaktan ibarettir."

 

[halit3]

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub Düğme5_Tıklat()
klasör = "C:\Urun\EtiketResim\sahit"
AD = klasör & "\" & Sheets(ActiveSheet.Name).Cells(5, 3).Value & ".jpg"
On Error Resume Next
WinExec "Explorer.exe " & AD, 1
End Sub


dosyanın yeri burası doğru ise
bu kod çalışıyor ben denedim

 

[ahseka]

Halit şöyle anlatayım.

Yaklaşık 2500&3000 adet ürün var. Bu ürünlerin birer kodu var ve hepsinin bir resmi var. Bu resimler bir klasörde jpg fromatında. Ben excelde bir makro yaptım. O makroda ürünün bilgi klasörleri var (xls) formatında bunlara ulaşabiliyorum birde yerini belirttiğim dosyada resimleri var örnek C5 hücresine ürün kodunu girdiğimde bir butona basıyorum ürünün bilgi dosyasına ulaşıyorum diğer butonlada resmine ulaşmak istiyorum. Senin gönderdiğim formulde "" WinExec "arıza veriyor. açıkçası ben yeniyim. birde If döngüsü kurmam gerekiyor. herhangi bir olumsuzlukta bana geri dönmeleri için.
İlgin için teşekürler.

 

[baydeniro]

Teşekkürler, sayenizde yine harika bir şey öğrendim. Sağlıcakla kalın.