SCetin25
Altın Üye
- Katılım
- 22 Mart 2023
- Mesajlar
- 7
- Excel Vers. ve Dili
- 2013
- Altın Üyelik Bitiş Tarihi
- 22-03-2028
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.
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.
Kod:
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