fonksiyon kullanarak aktif hücrenin satır sayısını A1 hücresine yazdırma

[aksoyolgun]

merhaba arkadaşlar aşağıdaki fonksiyonu A1 hücresine yazdığımda, mause ile tıkladığım hücrenin satır numarasını yazmasını istiyorum
oluyor fakat güncelleme yapmıyor
güncelleme yapması için sayfayı hesaplama tuşuna basmak zorunda kalıyorum
bu sorunu nasıl halledebilirim
tşkler

Function deneme()
Application.Volatile True
sayı = ActiveCell.Row
deneme = Sayi
End Function

 

[Orion1]

Buyurun.

Function aktifs(ByVal hcr As Range) As Long
Application.Volatile True
aktifs = hcr.Row
End Function

A1 yerine aktif hücreyi yazabilirsiniz.
Kullanımı;

=aktifs(A1)

 

[Haluk]

Değişkenler aynı değil ....

Her ikisini de sayi yapın.

Bir de unutmayın ki; hücrelere yazılan fonksiyonlar herhangi bir hücrenin değerinde değişiklik olduğu zaman çalışırlar. Sadece hücre seçimi yeterli olmaz ....

.

 

[Orion1]

Çalışma sayfasının kod bölümüne.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("A1").Value = Target.Row
End Sub

 

[Ömer BARAN]

Merhaba.

Alternatif olsun.
KTF kullanmadan sonuç almak isterseniz aşağıdaki gibi de olabilir.

Alt taraftan ilgili sayfanın adına fareyle SAĞ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında SAĞdaki BOŞ alana aşağıdaki kod blokunu yapıştırın.
Artık aktif (seçili) hücre/alanın adresini Z1 hücresinde görebilirsiniz.
Adres yerine satır numarası için .Row, sütun numarası için .Column da kullanabilirsiniz elbette.

Adres bilgisini;
-- sabit başka bir hücrede görmek istiyorsanız kod'daki Z1 yerine başka bir hücreyi kullanabilir,
-- farklı hücrelerde görmek istiyorsanız ilgili hücreye =Z1 formülünü yazarak sonuç alabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [Z1] = Target.Address(0, 0)
End Sub

 

[Orion1]

Sayın aksoyolgun sorunuzu fonsiyon diye yazmışsınız,onu Fonksiyon yazarak değiştirebilirmisiniz.
Çünkü bu soruyu arayanlar fonsiyon diye arayamazlar.

 

[aksoyolgun]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then Exit Sub Range("A1").Value = Target.Row End Sub

hocam süpersiniz
10 numara 5 yıldız oldu
çok tşkler

 

[Orion1]

hocam süpersiniz
10 numara 5 yıldız oldu
çok tşkler

Rica ederim.
#6 numaralı mesajada bakarmısınız.

 

[aksoyolgun]

Rica ederim.
#6 numaralı mesajada bakarmısınız.

düzelttim