[ÇÖZÜLDÜ] Gizli Sayfadan Veri Kopyalamak

[baydeniro]

Merhaba arkadaşlar. Gizlenmiş (Hide) sayfadan belirli bir alanı makro ile gizli olmayan başka bir sayfanın belirli bir yerine kopyalamak mümkün mü ?

 

[Orion1]

Merhaba arkadaşlar. Gizlenmiş (Hide) sayfadan belirli bir alanı makro ile gizli olmayan başka bir sayfanın belirli bir yerine kopyalamak mümkün mü ?

Denemek lazım.
Neden denemiyorsunuz?

 

[baydeniro]

Sayın evren gizlen ilginiz için teşekkürler. Denedim sayfa gizli olduğu için makro çalışmadı, o yüzden bunun bir çözümü vardır diye forumu araştırdım. Ancak bu durumla ilgili bir konu bulamadım. O yüzden yeni konu açmanın aynı konuda araştırma yapanlar için de uygun olacağını düşündüm.

 

[Orion1]

Sayın evren gizlen ilginiz için teşekkürler. Denedim sayfa gizli olduğu için makro çalışmadı, o yüzden bunun bir çözümü vardır diye forumu araştırdım. Ancak bu durumla ilgili bir konu bulamadım. O yüzden yeni konu açmanın aynı konuda araştırma yapanlar için de uygun olacağını düşündüm.

Çokta güzel kopyalıyor.
Ekli dosyayı inceleyiniz.

Sub kopyala()
Range("A1:B20").Clear
Sheets("Sayfa2").Range("A1:B20").Copy Range("A1")
End Sub

 

[uzmanamele]

merhaba
syn Evren beyin verdiği örnekden hareketle;
Select kullanırsanız gizli sayfada hata iletisi alırsınız.

Sub kopyala()
Range("A1:B20").Clear
Sheets("Sayfa2").Select
Range("A1:B20").Copy Range("A1")
End Sub

 

[baydeniro]

Çok teşekkürler sayın Evren Gizlen. Sahiden bunu bilmiyordum. Sizin yardımınız ile anladım ki sorun başkaymış. Sorun kapalı dosyadan kopyalama değil, kapalı dosyanın içinde çalışacak makro için o kapalı dosyayı seçme (select) olayının gerçekleşmemesi imiş.

Sheets("Sayfa2").Select satırında makro takılıyor. Buna bir çare var mı acaba ?

 

[Orion1]

Çok teşekkürler sayıjn Evren Gizlen. Sahiden bunu bilmiyordum. Sizin yardımınız ileanladım ki sorun başkaymış. Sorun kapalı dosyadan kopyalama değil, kapalı dosyanın içinde çalışacak makro için o kapalı dosyayı seçme (select) olayının gerçekleşmemesi imiş.

Sheets("Sayfa2").Select satırında makro takılıyor. Buna bir çare var mı acaba ?

Gizli bir sayfayı veya gizli bir sayfada herhangi bir hücreyi seçemezsiniz.
İşlemleriniz pekala herhangi bir sayfayı seçmedende yapanbilirsiniz.
Hatta yapmalısınız.Hücreleride seçmeden işlemleriniz yapınız.
Eğer bu dediğim gibi kodlarınızı yazarsanız makronuz dahada hızlı çalışıcaktır.
Her seçme durumunda ise makroya bir fren yapmış oluyorsunuz.Ve makronun hızı azalıyor.
İyi çalışmalar.

 

[baydeniro]

Sub A1_KONTROL()

Sheets("Sayfa2").Select
Application.Run "'QWERT.xls'!xell"

End Sub


Sayın Evren Gizlen. Benim makrom yukarıdaki gibi. Bu koddan Select'i nasıl kaldırabilirim. Bu konuda yardımcı olursanız size çok minnettar olurum.

 

[Orion1]

Sub A1_KONTROL()

Sheets("Sayfa2").Select
Application.Run "'QWERT.xls'!xell"

End Sub


Sayın Evren Gizlen. Benim makrom yukarıdaki gibi. Bu koddan Select'i nasıl kaldırabilirim. Bu konuda yardımcı olursanız size çok minnettar olurum.

Bu durumda xell makrosunda range("A1").value = "Deneme" yerine
Sheets("Sayfa2").range("A1").value = "Deneme" Yazmalısınız.
Hücrelerin başına sayfa adını yazmalısınız sheets("Sayfa2"). gibi
Hücreleride seçmeden bu şekilde işleminizi yapabilirsiniz.

 

[baydeniro]

Sayın Evren Gizlen değerli zamanınızı ayırıp bizleri aydınlattığınız için çok teşekkür ederim. Başka bir konudan başlayıp çok ilginç bilgiler öğrendim sayenizde. Sağlıcakla kalın.