Çözüldü Kopyala ve başka dosyaya değerleri yapıştır

[Armara]

Merhaba,
Bir MALZEMELER.xlsx isimli excel çalışma kitabında KALEM, DEFTER, SİLGİ, AJANDA, NOTLAR, KLAVYE, NOTEBOOK, TELEFON, CEP TELEFONU, ZIMBA... gibi yaklaşık 40 tane çalışma sayfası var ve bu çalışma sayfaları birbirinden formüllerle veri almaktadır.
Yapılmak istenen özetle: MALZEMELER isimli excel dosyasında yer alan çalışma sayfaları ile ilgili nasıl bir rapor istenirse o çalışma sayfalarındaki görünen alanları RAPOR isimli excel dosyasına değerler olarak yapıştırarak raporu sunmaktır. Bu amaçla aşağıdaki adımları sırasıyla nasıl yapabilirim?

Şimdi bir vba kodu ile sırasıyla;
1 - MALZEMELER isimli çalışma kitabındaki DEFTER isimli çalışma sayfasında A1: BA250 aralığını kopyala (Sayfada filtreler var, bu nedenle sadece görünen alanı veya yazdırma alanını kopyala diyebiliriz)
2 - Yeni bir excel çalışma kitabı oluştur (C: \RAPORLAR\KIRTASİYE\RAPOR.xlsx)
3 - Yeni çalışma kitabını RAPOR.xlsx olarak adlandır
4 - Kopyalanan aralığı (DEFTER A1:BA250 aralığını) RAPOR isimli dosyada Sayfa1'e (Değerler olarak) yapıştır.
5 - Çalışma sayfasını DEFTER olarak adlandır.
6 - MALZEMELER isimli çalışma kitabındaki DEFTER isimli çalışma sayfasının biçimini kopyala, RAPOR isimli çalışma kitabındaki DEFTER isimli çalışma sayfasına biçim yapıştır.
7 - Dosyayı kaydet.

Sonra;
8 - MALZEMELER isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasını (A8: AR145 aralığını) kopyala
9 - Kopyalanan aralığı (SİLGİ A8: AR145 aralığını) RAPOR isimli dosyada yeni bir çalışma sayfasına (Değerler olarak) yapıştır.
10 - Çalışma sayfasını SİLGİ olarak adlandır.
11 - MALZEMELER isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasının biçimini kopyala, RAPOR isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasına biçim yapıştır.
12 - Dosyayı kaydet.

Yardımlarınız için teşekkür ederim.

 

[kralım]

Sayın Armara
Bu şekilde sadece derdinizi anlatmış olursunuz. Böyle çözüme ulaşamazsınız. Dosyanızı paylaşmalısınız. Ama dikkat edin, dosyanızın içinde yapmak istediklerinizi manuel örneklerle anlatın ki ne yapmak istediğiniz daha kolay anlaşılsın.

 

[Armara]

Sayın kralım
Örnek dosya ektedir.

 

[kralım]

Sayın Armara
Makro bilen üstadlarımız size yardımcı olacaklardır. Ben makro bilmem. Ben sadece size dosya paylaşmanız gerektiğini hatırlattım. Zira dosya paylaşmak Forum kurallarından biridir.

 

[Alicimri]

Ekteki dosyada "C:\Users\user\Downloads\RAPOR.xlsx" ve "C:\Users\user\Downloads\MAZEMELER.xlsx" dosya yollarını kendinize uygun şekilde değiştirin.
MAZEMELER dosyasını açıyor, RAPOR dosyasını eskisi varsa silip yenisini oluşturuyor, kopyalama ve diğer işlemlerden sonra dosyaları kapatıyor
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[SNNAY]

Merhaba,
Bir MALZEMELER.xlsx isimli excel çalışma kitabında KALEM, DEFTER, SİLGİ, AJANDA, NOTLAR, KLAVYE, NOTEBOOK, TELEFON, CEP TELEFONU, ZIMBA... gibi yaklaşık 40 tane çalışma sayfası var ve bu çalışma sayfaları birbirinden formüllerle veri almaktadır.
Yapılmak istenen özetle: MALZEMELER isimli excel dosyasında yer alan çalışma sayfaları ile ilgili nasıl bir rapor istenirse o çalışma sayfalarındaki görünen alanları RAPOR isimli excel dosyasına değerler olarak yapıştırarak raporu sunmaktır. Bu amaçla aşağıdaki adımları sırasıyla nasıl yapabilirim?

Şimdi bir vba kodu ile sırasıyla;
1 - MALZEMELER isimli çalışma kitabındaki DEFTER isimli çalışma sayfasında A1: BA250 aralığını kopyala (Sayfada filtreler var, bu nedenle sadece görünen alanı veya yazdırma alanını kopyala diyebiliriz)
2 - Yeni bir excel çalışma kitabı oluştur (C: \RAPORLAR\KIRTASİYE\RAPOR.xlsx)
3 - Yeni çalışma kitabını RAPOR.xlsx olarak adlandır
4 - Kopyalanan aralığı (DEFTER A1:BA250 aralığını) RAPOR isimli dosyada Sayfa1'e (Değerler olarak) yapıştır.
5 - Çalışma sayfasını DEFTER olarak adlandır.
6 - MALZEMELER isimli çalışma kitabındaki DEFTER isimli çalışma sayfasının biçimini kopyala, RAPOR isimli çalışma kitabındaki DEFTER isimli çalışma sayfasına biçim yapıştır.
7 - Dosyayı kaydet.

Sonra;
8 - MALZEMELER isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasını (A8: AR145 aralığını) kopyala
9 - Kopyalanan aralığı (SİLGİ A8: AR145 aralığını) RAPOR isimli dosyada yeni bir çalışma sayfasına (Değerler olarak) yapıştır.
10 - Çalışma sayfasını SİLGİ olarak adlandır.
11 - MALZEMELER isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasının biçimini kopyala, RAPOR isimli çalışma kitabındaki SİLGİ isimli çalışma sayfasına biçim yapıştır.
12 - Dosyayı kaydet.

Yardımlarınız için teşekkür ederim.

Deneyiniz; Kodda bulunan
' Kaynak ve rapor dosya yolları
kaynakDosya = "C:\RAPORLAR\KIRTASİYE\MALZEMELER.xlsx"
raporDosya = "C:\RAPORLAR\KIRTASİYE\RAPOR.xlsx"
yukarda yazan yerleri kendi bilgisayarınızda bulunan klasör adı ile değiştiriniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alicimri]

Sayın Armara dosyanıza baktım, SİLGİ sekmesinden başlayan sayfalarda tarih sütunu yok bir yanlışlık mı var, yoksa başka bir durum mu var bu sayfalar neye göre süzülecek.

 

[Armara]

Sayın Armara dosyanıza baktım, SİLGİ sekmesinden başlayan sayfalarda tarih sütunu yok bir yanlışlık mı var, yoksa başka bir durum mu var bu sayfalar neye göre süzülecek.

Merhaba,
Sayfalardaki filtreler rapor talebine göre değişebiliyor, (Bazen tarih, bazen birim fiyat, bazen tutar.... vb değişebilmektedir) Bu nedenle sayfalardaki veriler göründüğü şekilde kopyalanıp değer olarak yapıştırılması gerekmektedir.

 

[Armara]

Deneyiniz; Kodda bulunan
' Kaynak ve rapor dosya yolları
kaynakDosya = "C:\RAPORLAR\KIRTASİYE\MALZEMELER.xlsx"
raporDosya = "C:\RAPORLAR\KIRTASİYE\RAPOR.xlsx"
yukarda yazan yerleri kendi bilgisayarınızda bulunan klasör adı ile değiştiriniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Elinize sağlık, çok güzel olmuş. Ancak iki güncelleme yapabilir miyiz?
1- Tüm sayfalar kopyalanmayacak, sadece kopyalanması istenilen sayfalar kopyalanacak. Bunun için gerekirse Veri adında yeni bir boş sayfa oluşturularak B1 sütununda EVET yazan sayfalar kopyalanabilir, B1 sütununda HAYIR yazan veya boş olan sayfalar kopyalanmaz.
2- Kopyalanan sayfalarda yer alan filtrelere göre kopyalama yaparken aradaki boş satırları da silmeliyiz.
Bu güncellemeleri yapabilir miyiz?

 

[SNNAY]

Elinize sağlık, çok güzel olmuş. Ancak iki güncelleme yapabilir miyiz?
1- Tüm sayfalar kopyalanmayacak, sadece kopyalanması istenilen sayfalar kopyalanacak. Bunun için gerekirse Veri adında yeni bir boş sayfa oluşturularak B1 sütununda EVET yazan sayfalar kopyalanabilir, B1 sütununda HAYIR yazan veya boş olan sayfalar kopyalanmaz.
2- Kopyalanan sayfalarda yer alan filtrelere göre kopyalama yaparken aradaki boş satırları da silmeliyiz.
Bu güncellemeleri yapabilir miyiz?

Deneyiniz. Veri sayfasında A sütununda bulunan sayfa isimlerinin yanında b sütununda bulunan X ile seçim yaparak seçilen sayfaların verilerini RAPOR sayfasına aktarır.

 

[Armara]

Deneyiniz. Veri sayfasında A sütununda bulunan sayfa isimlerinin yanında b sütununda bulunan X ile seçim yaparak seçilen sayfaların verilerini RAPOR sayfasına aktarır.

Elinize sağlık, tam istediğim gibi oldu. Teşekkür ederim.