Çoklu sayfaları tek excel sayfasında toplamak

[farsoy]

Merhabalar,

Benim amacım bir klasör altında yaklaşık 600 tane içerikleri değişen aynı görevde dosyalar mevcut. hepsinin aslında bir kodlama sistemi var tekrarlayan yok yani dosya adları "300 500.00" "300 500.01" vb. şekilde devam ediyor.

Yapmak istediğim tek bir excel dosyası oluşturarak istediğimi çektirebilmek.
örneğin bir hücreye "300 500.00" yazdığımda ilgili excel sayfasını açması veya 2. sayfaya birebir aynısını getirmesi ve oradan çıktı alabilmem. Yeni veri girişlerini yine dosya oluşturarak devam edeceğim. tek istediğim çıktı verirken dosya aramamak ürün kodunu yazdıgımda ilgili dökümanın açılması.

Umarım çok karıştırmadım, özünde çok basit birşey gibi geldi yardımlarınızı bekliyorum. Teşekkürler.

 

[Ömer]

Merhaba,

A1 de yazılan değer, D klasöründeki Deneme dosyasında varsa açar.

Sub Dosya_Ac()
 
    Dim yol As String
 
    yol = "D:\Deneme\" & Range("A1")
    
    On Error GoTo atla
    Workbooks.Open yol
    
    Exit Sub
atla:
    MsgBox "Dosyayı Bulamadım"
 
End Sub

.

 

[farsoy]

ilginiz ve cevabınız için teşekkürler,

 

[farsoy]

Merhaba,

A1 de yazılan değer, D klasöründeki Deneme dosyasında varsa açar.

Sub Dosya_Ac()
 
    Dim yol As String
 
    yol = "D:\Deneme\" & Range("A1")
    
    On Error GoTo atla
    Workbooks.Open yol
    
    Exit Sub
atla:
    MsgBox "Dosyayı Bulamadım"
 
End Sub

.

ilginiz ve cevabınız için teşekkürler,

kendi pc üzerinde D: sürücüsnde tanımlayınca istediğim şekilde çalıştırabildim ancak, bir sorunum daha var. dosya yolunu serverda konum olarak değiştirince bulamadı hatası alıyorum. Server üzerinde bir klasör tanımlamak istiyorum herhangi bi değişiklik yapmam gerekir mi?

 

[farsoy]

problemim hakkında bir fikri olan var mıdır acaba?