Aktif Hücre içeriğinin bir başka hücrede gösterilmesi

[Erdoğan ÖZEN]

Mouse ile tıkladığım hücrenin değerinin bir başka hücreye otomatik olarak gitmesini istiyorum.

Örn. Mouse ile hangi hücreye gidersem gideyim o hücre değerinin A1 de görünmesini istiyorum.

Böyle birşey yapabilir miyim ? Nasıl ?

Yardımcı olabileceklere şimdiden teşekkürler...

Erdoğan

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[A1].Value = ActiveCell
End Sub

Not : Bu kodu ilgili sayfanın kod penceresine kopyalayıp yapıştırınız. Modüle değil.

 

[Seyit Tiken]

İlgili hücreyi çift tıklayınız. Soruyu yanlış bölümde sormusun. Bu bölüm, yapılan örnek çalışmalar içindir.

 

[Korhan Ayhan]

Selamlar,

Sn. Seyit beyin uyarısına lütfen dikkat edin.

Aşağıdaki kodu sayfanın kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
[A1] = ActiveCell.Value 'Bu satırı kullanırsanız o anda bulunduğunuz aktif hücre değeri A1 hücresine atanır...
[A1] = Target.Value 'Bu satırı kullanırsanız enson işlem yaptınız hücre değeri A1 hücresine atanır...
End Sub

 

[Erdoğan ÖZEN]

Foruma ilk girişim...
Mesajı attıktan sonra yanlış yere attığımı farkettim...

Kod için teşekkürler...
Sorunumu çözdü...

 

[burckaya]

Merhaba, belirli bir aralık içerisinde seçtiğim hücreleri getirmek için ne yapmayalım
Örn; Sadece "B2,B200" aralığındaki hücreleri seçince A1 de çıkmasını istiyorum.

Şimdiden teşekkürler.

 

[YUSUF44]

Deneyiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B200]) Is Nothing Then Exit Sub
[A1].Value = ActiveCell
End Sub

 

[burckaya]

Teşekkür ederim, oldu.

 

[HÜSEYİN ALAN]

Günlerdir aradığım kod idi teşekkür ederim. Ancak bu işlemi farklı sayfadaki aktif hücre değerini almak istiyorum. yardımcı olursanız sevinirim.
Excelde bir cari takip programı hazırladım borç alacak bölümünde bulunan cari listesindeki ismi seçtiğimde extre sayfasındaki sorgulama ekranında bu ismin otomatik çıkmasını istiyorum.

 

[Korhan Ayhan]

Kodu "cari liste" diye ifade ettiğiniz sayfanızın kod bölümüne uygulayınız..

Hücre aralığını ve "extre" sayfasında sonucun yazılacağı hücre adresini kendinize göre ayarlarsınız.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
    Sheets("extre").Range("A1").Value = ActiveCell
End Sub