Soru Farklı Dosyalar Arası Kopyala ve Yapıştır İşlemi

[ekremmk]

Herkese iyi akşamlar benim çalışmalarımda ortak olan bazı sekmeler var. Bu sekmeleri birbirine kopyala yapıştır yaparken gizli dosyayı kaldır kopyala gizle yapıştır tarzı uzun işlemler yapmam gerekiyor. Bunun yerine makro yardımıyla bir buton kullanarak kopyalayacağım hücreleri seçip diğer dosyada yapıştır butonuna basarak istediğim veriyi aktarmak istiyorum.
Örnek dosyalarda ayrıntılı açıkladım.

ÖRNEK KOPYALA

ÖRNEK YAPIŞTIR

Şimdiden herkese teşekkür ederim.

 

[ekremmk]

konu günceldir. Yok mu aceba bir çözümü?

 

[ekremmk]

Sub CommandButton1_Click() Dim Kopyala As Range Set Kopyala = Worksheets("Sayfa1").Range("A1:F10") Kopyala.Copy End Sub

Private Sub CommandButton1_Click() Dim Yapistir As Range Set Yapistir = Worksheets("Sayfa2").Range("A1") Yapistir.PasteSpecial End Sub

Kopyala yapıştır durumunu böylece hallettim. Ancak
Sayfa1 den A1:F10 arallığı ve F20 yi kopyalamak gibi durumlar için nasıl bir kod yazmalıyım bulamadım yardımcı olabilir misiniz lüften.

 

[Ömer BARAN]

Merhaba.
Örnek belge ve kodlarınıza bakmadım ama sanırım aralıklı alanları kodda nasıl belirteceğinizle ilgili yardıma ihtiyaç var.
Aşağıdaki gibi düşünebilirsiniz.

Set Kopyala = Worksheets("Sayfa1").Range("A1:F10, F20")

 

[ekremmk]

Merhaba.
Örnek belge ve kodlarınıza bakmadım ama sanırım aralıklı alanları kodda nasıl belirteceğinizle ilgili yardıma ihtiyaç var.
Aşağıdaki gibi düşünebilirsiniz.

Sayın Ömer hocam kodlardan pek anlamasam da deneme yanılma yaparken dediğinizi denedim.
Kopyala.Copy çoklu işlemlerde kullanılamaz tarzı bi hata vermişti

 

[ekremmk]

Run-Time Error '1004'
Bu komut çoklu seçimlerde kullanılamaz
Hatası veriyor hocam.