Hücre değerine göre başka excell dosyası açma.

[mustafa77yilmaz]

Merhaba..;
A1 hücresinde veri doğrulama ile listelenen belirli bir metni seçince başka bir excell dosyasının açılması için nasıl bir yol izleyebilirim.
Yardımcı olursanız sevinirim.

 

[alicimri]

"D:\" konumunda bulunan dosyaları, A1 hücresindeki veri doğrulama ile listelenen dosya isimlerini seçince açan kod
İlgili sayfanın modülüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = "deneme" Then
Workbooks.Open "D:\santral\001\hesapla.xls"  
End If
End Sub

 

[mustafa77yilmaz]

Calismadi. Belki tam olarak ben anlatamadım.

Örnek olarak;
A1 hücresinde açılır listeden "deneme" kelimesini seçtiğimde "d:\santral\001\hesapla.xls" dosyasını çalıştıracak.

 

[alicimri]

#2 mesajdaki kodu yeniden düzenledim.

 

[alicimri]

Eğer seçenekli yapacaksanız kod örneği.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
if Target.Value = "deneme1" Then
Workbooks.Open "D:\santral\001\hesapla.xls"
elseif Target.Value = "deneme2" Then
Workbooks.Open "D:\santral\001\rapor.xls"
elseif Target.Value = "deneme3" Then
Workbooks.Open "D:\santral\001\topla.xls"
End If
End If
End Sub

Kendinize göre uyarlayın.

 

[mustafa77yilmaz]

Aynı sayfada aşağıdaki kod yazılı ve yukarıda sizin yazdığınız kodu altına yapıştırınca maalesef çalışmıyor.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 9 Or Target.Row > 23 Then Exit Sub 'Satır sayısı değiştiği durumlarda buradaki rakamları güncelleyebilirsiniz.
If Target.Column = 2 Or Target.Column = 3 Then
If Target.Column = 2 Then
Cells(Target.Row, 3).Select
Else
Cells(Target.Row + 1, 2).Select
End If
End If
End Sub