- Katılım
- 29 Aralık 2008
- Mesajlar
- 21
- Excel Vers. ve Dili
- 2007
İyi akşamlar.
Full test şablon isimli içerisinde tablo bulunan excell dosyam var, 1 tane de sürekli ismi değişen excell dosyam var. Kişisel makro kaydettim.
Sürekli ismi değişen excell dosyamda kişisel makroyu çalıştırıp , full test şablon excellinden tablo/veri aldırmaya çalışıyorum. Ancak her defasında dosya ismi farklı olacağı için 2. seferde makro çalışmıyor. Yardımcı olabilir misiniz?
Kalın ile işaretlediğim yere ne yazmam gerekmektedir?
iyi çalışmalar.
saygılarımla.
Sub Sablon()
'
' Klavye Kısayolu: Ctrl+Shift+Z
'
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Rows("15:15").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A15").Select
Windows("FULL TEST ŞABLON.xls").Activate
Range("A2:F7").Select
Selection.Copy
Windows("sonuclar.xls").Activate
ActiveSheet.Paste
Range("A1:E3").Select
End Sub
Full test şablon isimli içerisinde tablo bulunan excell dosyam var, 1 tane de sürekli ismi değişen excell dosyam var. Kişisel makro kaydettim.
Sürekli ismi değişen excell dosyamda kişisel makroyu çalıştırıp , full test şablon excellinden tablo/veri aldırmaya çalışıyorum. Ancak her defasında dosya ismi farklı olacağı için 2. seferde makro çalışmıyor. Yardımcı olabilir misiniz?
Kalın ile işaretlediğim yere ne yazmam gerekmektedir?
iyi çalışmalar.
saygılarımla.
Sub Sablon()
'
' Klavye Kısayolu: Ctrl+Shift+Z
'
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Rows("15:15").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A15").Select
Windows("FULL TEST ŞABLON.xls").Activate
Range("A2:F7").Select
Selection.Copy
Windows("sonuclar.xls").Activate
ActiveSheet.Paste
Range("A1:E3").Select
End Sub
Son düzenleme: