Gönderen Konu: Makro ile veri aktarma  (Okunma sayısı 663 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ayyıldız05

  • Excelce Onbaşı
  • **
  • İleti: 9
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ihsan görgülü
  • Doğum Yılınız: 1981
  • İl / İlçe: ankara beypazarı
  • İşletim Sisteminiz: xp sp3
  • Mesleğiniz: kamu
  • Office Versiyonunuz: oficce 2003
Makro ile veri aktarma
« : 19 Eylül 2020, 23:34:03 »
Arkadaşlar selamlar.Elimde 2 birime ait ekim ayının istatistik çizelgesi var. 1-EKİM2020 ve 9-EKİM2020 dosya başındaki numaralar birimleri temsil etmekte, yani 2 birimin çizelgelerinde renklendirdiğim TOPLAM FAALİYET ve DÖKÜM sayfalarını EKİM TOPLAM AYLIK SONUÇ kitabındaki her birimin ilgili sayfasına buton koyup aktarmak (2 ekibin istatistiğini tek bir çalışma kitabında) istiyorum.Yani 1-EKİM2020/TOPLAM FAAALİYET çizelgesindeki bilgileri Ekim toplam aylık sonuçtaki 1.TOPLAM FAALİYETE, 9-EKİM2020/TOPLAM FAAALİYET çizelgesindeki bilgileri Ekim toplam aylık sonuçtaki 9.TOPLAM FAALİYETE, döküm sayfalarınıda aynı şekilde her biriminkini kendi bölümüne aktarsın istiyorum.Bir arkadaşımız böyle bir kod yazdı ama uyarlayamadım.Yardımcı olurmusunuz.Dosya 2020.rar klasörü

Sub aktar()
Application.ScreenUpdating = False
hedef = "hedefdosya.xlsm"
ThisWorkbook.Sheets("test").Select
ThisWorkbook.Sheets("test").Cells.Select
Selection.Copy
Workbooks.Open (ThisWorkbook.Path & "\" & hedef)
Workbooks(hedef).Activate
Workbooks(hedef).Sheets("test").Select
Workbooks(hedef).Sheets("test").Paste
Workbooks(hedef).Sheets("test").Range("a1").Select
Workbooks(hedef).Save
Workbooks(hedef).Close
ThisWorkbook.Sheets("test").Select
ThisWorkbook.Sheets("test").Range("a1").Select
Application.ScreenUpdating = True
End Sub