Makro başladığında aktif olan hücreye dönmek

[hukumran1]

Çeşitli işlerde kullanmak üzere böyle bir yöntem arıyorum.

Makro ilk başladığından o anda hangi hücre aktifse tüm makro yürütme süreci bittikten sonra yine o hücrenin seçili olmasını nasıl yapabilirim.

Aktif hücre'nin satır sütun numarası "A1" diyelim bu numarayı hiç kullanılmayacak uzak bir hücreye yazdırıp "ZZ99999" makro'nun en sonunda da "ZZ99999" a yazılı olan "A1" ya da hangi hücreyse ona gitmek. Bu şekilde bir yol olabilir mi olursa nasıl olur. Ya da daha iyi bir yöntem varsa yardımcı olursanız çok makbule geçer.

 

[Orion1]

Buyurun.

Dim hcr As Range
Set hcr = ActiveCell
'kodlarınız.
'--------
'---------
hcr.Select

 

[hukumran1]

Ömrümü ziyan ettim bu sorunun üstesinden gelmek için. Bu kadar basit olmasını beklemiyordum.

Çok teşekkürler!

 

[Orion1]

Ömrümü ziyan ettim bu sorunun üstesinden gelmek için. Bu kadar basit olmasını beklemiyordum.

Çok teşekkürler!

Rica ederim.
İyi çalışmalar.

 

[YUSUF44]

Alternatif:

a= ActiveCell.row
b= ActiveCell.column
'kodlarınız.
'--------
'---------
cells(a,b).Select

Mantık: o anda bulunulan hücrenin adresini bir şekilde hafızaya almak.

 

[hukumran1]

Tekrar teşekkürler.

 

[hukumran1]

Makro başladığında aktif olan hücre ve aktif sayfaya geri dönecek şekilde nasıl yapılabilir? Yukarıdaki kodlar sayfa değiştiğinde işe yaramıyor.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Makro()
    Set Sayfa = ActiveSheet
    Set Hucre = ActiveCell
    
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    
    Sayfa.Select
    Hucre.Select
End Sub

 

[hukumran1]

Aşağıdaki gibi deneyiniz.

Sub Makro()
    Set Sayfa = ActiveSheet
    Set Hucre = ActiveCell
    
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    
    Sayfa.Select
    Hucre.Select
End Sub

Çok teşekkürler. Dim kullanmaktan da daha iyi oldu böyle.

 

[Korhan Ayhan]

"Dim" kullanmak iyidir. Kullanmaktan çekinmeyiniz.