Kapaklı Dosyadan Otomatik Veri Alma

[q0ksel]

Merhaba ;

Günlük olarak tutmuş olduğum bir veri işleme tablom var ve birde yıllık olarak veri tablom ve ben gün olarak işlediğim tabloda bunları yıllık tabloya otomatik olarak atmasını istiyorum örnek tabloda acıklamaları belirrtim yardımcı olursanız sevinirim..

 

[q0ksel]

Help To help !

 

[tlgsri88]

Merhaba,

Erikli 12 dosyasına bir modülün içerisine aşağıdaki kodu yazınız.
ve erikli12 dosyası gün sayfasına bir butona yerleştiriniz.
Butona bastığınızda aylık ortalamalar açılır cihaz bilgisi aktarılır ve kaydedilir.
Dikkat etmeniz gereken iki dosyanızın da aynı klasör altında olmasıdır.

Sub aktar()

Range("I34").Select
Selection.Copy


Workbooks.Open Filename:=ActiveWorkbook.Path & "\Aylık Ortalamalar.xlsx"
Sheets("Cihaz").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


ActiveWorkbook.Save
ActiveWorkbook.Close



End Sub

 

[q0ksel]

Merhaba,

Erikli 12 dosyasına bir modülün içerisine aşağıdaki kodu yazınız.
ve erikli12 dosyası gün sayfasına bir butona yerleştiriniz.
Butona bastığınızda aylık ortalamalar açılır cihaz bilgisi aktarılır ve kaydedilir.
Dikkat etmeniz gereken iki dosyanızın da aynı klasör altında olmasıdır.

Sub aktar()

Range("I34").Select
Selection.Copy


Workbooks.Open Filename:=ActiveWorkbook.Path & "\Aylık Ortalamalar.xlsx"
Sheets("Cihaz").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


ActiveWorkbook.Save
ActiveWorkbook.Close



End Sub

Vba modulle ilgili bir bilgim yok dolayısıyla bi kac kez denedim fakat olmadi gonderdigim dosyalarda uygulayıp bir ornek ile paylasır iseniz devamını tamamlayabilirim.