Dosya İsmi

[waytooraider]

tarih tarih günlük şantiye raporlarım var içinden adam sayılarını almam gerekiyor. şöyle bir makro kaydettım

Range("AN41:AS41").Select
Selection.Copy
Windows("15.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU.xls").Activate
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Windows("SEM VE TAŞERONLARIN NET ÇALIŞAN SAYISI.xlsx").Activate
Range("AU7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


bu makro "15.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU" isimli dosyada geçerli ama 16.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU" isimli dosyadada geçerli olması için ne yapmalıyım
daha doğrusu "SEM VE TAŞERONLARIN NET ÇALIŞAN SAYISI" ısımli dosyada calıstıracagım makro herhangi bir excel dosyasında istediğim işlemi yapması için ne yapmalıyım

Şimdiden saygılarımla!

 

[hımmmmmmmm]

SLM

aslında cevabı basit bir durum.. fakat tasarım anlaşılmadı... bir yerlerden bir yerlere copy-past yaptığın belli...

en üstteki

Range("AN41:AS41").Select
Selection.Copy

bu satırın dosyasımı var...
'---------------------------------------------------
şunu söyleyebilirim.. office 2007 veya 2010 kullanıyosun sanırım...

ThisWorkbook.Name + ".XLSx"

bu kot active edilen dosyanın ismini verir... bunu isimlerin yerine kullanbililmeyi dene

 

[waytooraider]

Range("AN41:AS41").Select
Selection.Copy

olduğu dosya "SEM VE TAŞERONLARIN NET ÇALIŞAN SAYISI.xlsx"
bu dosyada kaydettiğim makroyu çalıştırınca s "15.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU.xls" dosyası için sorun omuyor ama "16.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU.xls" isimli dosyayı açtığımda makro çalışmıyor yani istediğim kaydettiğim makroda Windows("15.12.2010-PCP. FAZ-1 GÜNLÜK ŞANTİYE RAPORU.xls").Activate yerine öyle bişi olmaliki her excel dosyasında copy pastı yapmalı

 

[hımmmmmmmm]

slm

    Range("A1").Copy
    Windows("Kitap2.xls").Activate
    Sheets("SAYFA1").Range("A1").Select
    ActiveSheet.Paste
    Windows("Kitap3.xls").Activate
    Sheets("SAYFA1").Range("A1").Select
    ActiveSheet.Paste

tüm dosyaların açık olduğunu varsayıyorum...
kitap1.xls dosyasından a1 hücresindeki bilgiyii;
kitap2.xls-sayfa1-a1 hücresine VE
kitap3.xls-sayfa1-a1 hüresine sırayla kopyalar