Aktif Olmayan Sayfadaki Aktif Hücreyi Değişkene Atama

[hukumran1]

Farklı sayfadaki aktif ya da seçili hücreyi değişkene atama nasıl yapılır.
Sayfaya gidip değişkene aktif hücre atamak için set değişken = activecell kodunu kullanıyorum ama sayfa aktif değilse set değişkenim = worksheet("sayfa").activecell activatecell vs. vs.. ne denediysem olmadı.
Acaba bir yolu var mıdır?

 

[Orion1]

Önce aktif olmayan sayfayı açıp öyle deneyin.

 

[hukumran1]

Sayfayı açıp oluyor haliyle ama sayfaya gitmeden yapmanın bir yolu varsa onu kullanmakta iyi olurdu.

 

[Ömer BARAN]

Merhaba.

Aktif hücre adresini almak istediğiniz sayfa adının Sayfa2 olduğunu,
bu sayfadaki aktif hücre adresini Sayfa1'de bir hücrede görüntülemek istediğinizi düşünürsek;

alt taraftan Sayfa2'nin adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin.

Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
(Sayfa adlarını kendi belgenize göre değiştirin)

Belgeyi makro içeren belge olarak kaydederek kapatın.

Artık belgeyi makroları etkinleştirerek açtığınızda,
(belgeyi sadece ilk açışta, Sayfa2'ye bir kez uğrayın aktif hücreyi değiştirin, yani örneğin K1 seçili ise K2'ye geçin),
Sayfa2'deki aktif hücrenin adresini Sayfa1 A1 hücresinde görebilirsiniz.
.

[FONT="Arial Narrow"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets("[B]Sayfa1[/B]").[[B][COLOR="Blue"]A1[/COLOR][/B]] = ActiveCell.Address(0, 0)
End Sub[/FONT]

 

[hukumran1]

Anlaşılmama ihtimaline mahal bırakmayan açıklamalı anlatımınız için ayrıca teşekkürler.
Bu şekilde işimi görmeyecek olsa da başka bir makroda kullanacağım bunu.
En iyisi fazla zorlamdan sayfaya gidip aktif hücreyi seçmek.

Tekrar teşekkürler.

 

[Ömer BARAN]

Tekrar merhaba.

Belirttiğim kod'dan hareketle Sayfa1'de A1 hücresine yazılan bu adres bilgisini,
başka bir makroda değişken olarak kullanmanız (değişken=Sheets("Sayfa1").[A1] gibi)
mümkün olduğundan; oradan yürüyebilmeniz lazım.

Gerçek belgenizle aynı yapıda bir örnek belge (kullandığınız makroları da içerecek şekilde elbette)
üzerinden gidilirse istediğiniz çözüme ulaşmanızın hızlanacağını düşünüyorum.

Kolay gelsin.
.

 

[hukumran1]

Köyde pek kötü internet bağlantısı şartlarında cep telefonumdan sordum bu soruyu. Dosya ekleyememiş olmam bu yüzden.
İlerde daha elzem şekilde bu sorun karşıma çıkarsa, tekrardan daha teferruatlı olarak yardımlarınızı talep edeceğim.
Her şey için teşekkürler.