Dosya yolu gösterme (Versiyon atlatma)

[SCetin25]

Merhabalar herkese,

Aynı klasör içinde çalışan 3 4 adet excelim var ve bunlar bir birleri arasında veri transferi yapıyorlar.
Excel isimlerinden çağırıyorum fakat bu exceller geliştikce sonundaki versiyon numarasını değiştiriyoruz.
Örnek kodu aşağıda gönderiyorum. "01_tdy2018_GUIDE*" bunu bulunca sonundaki v2a v2b v2c ne olduğuna bakmaksızın seçsin.
Yardımlarınız için şimdiden teşekkür ederim.

Sub tdy2018_GUIDE_PEER_icin_Hedef_Spektruma_Veri_Gonder()
'
' tdy2018_GUIDE_PEER_icin_Hedef_Spektruma_Veri_Gonder Makro
'

'
    Windows("01_tdy2018_GUIDE v2a.xlsm").Activate
    Columns("A:A").Select
    Selection.Copy
    Range("A1").Select
    Windows("tdy2018_GUIDE_PEER_icin_Hedef_Spektrum.csv").Activate
        Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("01_tdy2018_GUIDE v2a.xlsm").Activate
    Range("B1").Select
End Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyinin.

Sub tdy2018_GUIDE_PEER_icin_Hedef_Spektruma_Veri_Gonder()
'
' tdy2018_GUIDE_PEER_icin_Hedef_Spektruma_Veri_Gonder Makro
'

'
    Windows("01_tdy2018_GUIDE" & " v2a.xlsm").Activate
    Columns("A:A").Select
    Selection.Copy
    Range("A1").Select
    Windows("tdy2018_GUIDE_PEER_icin_Hedef_Spektrum.csv").Activate
        Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Windows("01_tdy2018_GUIDE" & " v2a.xlsm").Activate
    Range("B1").Select
End Sub

 

[SCetin25]

Hocam bunu denemiştim ama olmadı. Dosya ismini v2b olarak revize ettiğimde hata alıyorum, kodun içerisine girip v2a yı v2b yapmak gerekiyor maalesef. .

 

[Korhan Ayhan]

Merhaba,

Açık olan dosyaları döngüye alarak dosya adını kontrol edip ilgili pencereyi aktif hale getirebilirsiniz.

Option Explicit

Sub Test()
    Dim WB As Workbook
    For Each WB In Application.Workbooks
        If Left(WB.Name, 16) = "01_tdy2018_GUIDE" Then
            Windows(WB.Name).Activate
            Exit For
        End If
    Next
End Sub

Ya da bu işlemi yaparken eğer iki dosya açıksa aşağıdaki kod da geçiş işlemi yapar.

ActiveWindow.ActivateNext

 

[SCetin25]

Çok teşekkür ederim işime yaradı sağolun