Makro da Tablo Ekleme

[bjkliislam]

İ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

 

[ÖmerBey]

Merhaba,
Kodlarınızın başına Set w1 = ThisWorkbook satırını ilave ediniz. Daha sonra da koyu renkle işaretlediğiniz yeri w1.Activate koduyla değiştirip deneyiniz.

 

[bjkliislam]

Merhaba,
Kodlarınızın başına Set w1 = ThisWorkbook satırını ilave ediniz. Daha sonra da koyu renkle işaretlediğiniz yeri w1.Activate koduyla değiştirip deneyiniz.

dediğiniz gibi değiştirdim. Ancak kopyala yaptıktan sonra mevcut excele geri dönüp yapıştırma yapmadı. hata da vermedi.

Makro, personal makrolar içerisinde kısayol tuşu kullanıyorum.

 

[ÖmerBey]

Aynı işlemi ThisWorkbook yerine ActiveWorkbook yazarak deneyiniz. Yine olmazsa ben sorununuzu yanlış anladım demektir.

 

[bjkliislam]

Aynı işlemi ThisWorkbook yerine ActiveWorkbook yazarak deneyiniz. Yine olmazsa ben sorununuzu yanlış anladım demektir.

tamamdır. Oldu. teşekkür ederim. hayırlı geceler.

 

[ÖmerBey]

Hayırlı geceler,
İyi çalışmalar...

 

[bjkliislam]

Hayırlı geceler,
İyi çalışmalar...

Ömer Bey Merhaba;

full test şablonunun konumunu değiştirdik. Makro çalışmamaktadır.

\\ablkfs\BLK_ORTAK\KALITE_KONTROL\MELAMİN_PRESLER_TEST_SONUCLARI\YONGA LEVHA LABORATUVAR\MACRO FULL TEST İŞLEME\LAK KOLAY İŞLEME

Ekteki konumdaki şablon excell i makro ile açıp, a2:f7 aralığını kopyalayıp active work book a yapıştırmak istiyorum. sonra da şablon excell ini kapatmak istiyorum.

hangi kodları kullanmam gerekmektedir?

teşekkür ederim.

iyi çalışmalar.
saygılarımla.