Aktif Sayfadan Aktif Sayfaya Veri kopyalama.

[Bora K]

Günaydın Arkadaşlar.
Makroyu tetikleyeceğim kitabın aktif sayfasındaki verileri; açık olan
diğer kitabın aktif sayfasına kopyalayacak bir koda ihtiyacım var.
Yardımlarınız bekliyorum. Hürmetler.

Kopyalanacak ve taşınacak adresler aynıdır.
A5: D15 alan
E4:EI7 alan
F7 hücre
E14 hücre

 

[Bora K]

Merhabalar.
"Excel.web.tr de bir konuya cevap yazılmıyorsa; bu başlıkta yeteri
kadar açıklama yapılmadığı içindir." Teleffuzuna mütemadiyen denk geldiğim
için tekrardan, biraz daha ayrıntılı malumat vermek istedim.

Benim sorumda sadece 2 aktif sayfa ve adresler var. Açıklamada kaynak ve hedef
kitap için kitap ve sayfa isimleri mevcut değil. Çünkü öyle olmak zorunda.
Yapmayı düşündüğüm yeş şu: a b c d ...... şeklinde kitaplarım var. Bu kitapların onlarca
sayfası var. Bu kitapları revizyon edeceğim. Yani yeniden oluşturacağım. Yeniden oluştururken ise
sayfa sayfa kopyalamam gerekiyor ve her sayfanın isimleri farklı.

Bu durumda formülün pratik olması gerekiyor. Tüm kitaplarda
kullanılabilmesi için. Kod öyle dizayn edilmeli ki; kodun tetikleneceği açık sayfadaki adresleri
2. kitabın açık sayfasına kopyalasın. Ümid ediyorum ki biraz daha malumat verebildim.
Değerli uzmanlarıdan bu doğrultuda bir kod istiyorum. Saygılarımla.

 

[cems]

Merhabalar.
"Excel.web.tr de bir konuya cevap yazılmıyorsa; bu başlıkta yeteri
kadar açıklama yapılmadığı içindir." Teleffuzuna mütemadiyen denk geldiğim
için tekrardan, biraz daha ayrıntılı malumat vermek istedim. .

Cevabın gecikmesindeki ana neden , siz ekranda ve fikrinizdekini tarif ettiğinizi düşünürken
bunun aynısını da sorunuzu okuyandan beklemeniz ve basit de olsa bir dosya hazırlayıp eklememenizdendir.

Anlatımınız ne kadar iyi olursa olsun , insanlar sıfırdan neden sizin fikrinizi baştan oluşturmalılar ? Siz çözüm isterken problemin dizaynını da çözücülere bırakırsanız, başta dizaynda öyle değil böyle sözleri ile dosya reddedilecektir.

Bir zahmet dosya hazırlayarak ekleyin ki biz de baştan keşfe ya da terke zorlanmayalım.

 

[Bora K]

Merhaba;

Örnek dosya ektedir.

 

[asi_kral]

Merhaba;

Örnek dosya ektedir.

Merhaba
Yol bilgisi vermeniz gerekirdi.
1. Dosyanız D:\Bora k\Bora\
2. Dosyanız D:\Excel\Excel\
gibi.

 

[Bora K]

Günaydın Sayın Kral.

Sayfa adı verdiğim zaman makronun bir anlamı kalmaz.
Şöyleki ; Bir kitapta 20 sayfa olsun bu yirmi sayfadaki verileri başka bir kitabın
20 sayfasına aktaracağım. Ver her sayfa aktarmada koda girip isim değiştireceğim.
Bu durumda her sayfada makroda değişiklik yapmakla manuel olarak yapıştırmak
hemen hemen aynıya gelir.

Yok eğer kitap isimleri yeterli olur ise. zaten kitap isimleri mevcut.

 

[asi_kral]

Ben sizden sayfa bilgisi istemedim yazdıklarımı lütfen dikkatli okuyunuz.
Yol bilgisi istedim. Aralarında \ işareti olan yerler klasörlerdir. Bilgilendirme

 

[Bora K]

Özür dilerim Sayın Asi Kral.
Tecrübesizlğimden dolayıdır....

Kitaplar
C/kaynak.xls
C/hedef.xls
pozisyonundalar.
Klasör olayı yok.

 

[asi_kral]

Özür dilerim Sayın Asi Kral.
Tecrübesizlğimden dolayıdır....

Kitaplar
C/kaynak.xls
C/hedef.xls
pozisyonundalar.
Klasör olayı yok.

Bu dosyaların ikiside aynı anda mı açık mı olacak_?
Yoksa biri açık biri kapalı mı olacak_?

 

[Bora K]

Her ikiside aynı anda açık olacak.

 

[asi_kral]

Merhaba
Kitap ismi belirtmek zorundayız yoksa hangi kitaba kayıt yapacağını bilmediği için çalışmaz.

Option Explicit
Sub veri_aktar()
Dim s1 As Worksheet, S2 As Worksheet, ÇLŞ As String
Application.ScreenUpdating = False
ÇLŞ = ActiveWorkbook.Name
Set s1 = ActiveSheet
Workbooks("hedef.xls").Activate
Set S2 = ActiveSheet
Workbooks(ÇLŞ).Activate
s1.Range("A5:D15").Copy S2.Range("A5")
s1.Range("E4:E17").Copy S2.Range("E4")
s1.Range("F7").Copy S2.Range("F7")
s1.Range("G14").Copy S2.Range("G14")
Workbooks(ÇLŞ).Activate
Application.ScreenUpdating = True
End Sub

Kaynak.xls kitabında boş bir module kopyalayın ve deneyin.

 

[Bora K]

Üstad ellerine sağlık kod çok güzel olmuş.

Şu şekilde birşey istesem olma ihtimali varmı acaba?

"Kaynak" adlı kitabın kopyalanacak bütün sayfalarında hazır
butonlarım var. Yaptığınız bu makroyu kitaptaki tüm butonlara
atamak istiyorum. Bunu otomatik olarak yapabilirmiyiz?

 

[asi_kral]

Üstad ellerine sağlık kod çok güzel olmuş.

Şu şekilde birşey istesem olma ihtimali varmı acaba?

"Kaynak" adlı kitabın kopyalanacak bütün sayfalarında hazır
butonlarım var. Yaptığınız bu makroyu kitaptaki tüm butonlara
atamak istiyorum. Bunu otomatik olarak yapabilirmiyiz?

Bunu butonlara otomatik atama şansınız var mı bilmiyorum.
Ben şöyle bir tavsiyede bu makroyu çalıştırmak için kısayol tuşu atayın.
Alt+F8 yapın makroyu seçin Seçenekler - Kısayol tuşuna bir tuş atayın. ve tamam diyerek koşulları tamamlayın. Sonra dilediğiniz sayfada kullanın. Böylece butona'da ihtiyaç kalmayacaktır.

 

[Bora K]

Hımmm. Bu daha iyiymiş.
Çok çok teşekkür ederim sayın Asi Kral.
Herşey gönlünüzce olsun.

 

[asi_kral]

Hımmm. Bu daha iyiymiş.
Çok çok teşekkür ederim sayın Asi Kral.
Herşey gönlünüzce olsun.

Kolay Gelsin.