En son yazılan değeri alma

[mesudiye_052]

Öncelikle tüm arkadaşlara selamlar

A1:A10 hücrelerine en son yazılan metin veya sayıyı B1 hücresine almak istiyorum bir kaç formül denedim ama satırlar arası boşluk olduğu zaman formül istenilen sonucu vermiyor
mesala
A1 10
A2 20
A3 30
A4
A5 40
yaptığım formüllerde B1 hücresine A4 hücresinin değeri olan 0'i yazıyor
Ben 40 yazmasını istiyorum

örnek formüller
=DOLAYLI(ADRES(EĞERSAY(A1:A10;">0");1;4;1))

=İNDİS(A1:A10;EĞERSAY(A1:A10;">0");1)

yardım ederseniz sevinirim

 

[Ali]

A1:A10 hücrelerine en son yazılan metin veya sayıyı B1 hücresine almak istiyorum

İlgili sayfanızın kod bölüme aşağıdaki kodları ekleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Cells(65536, 1).End(xlUp).Value
End Sub

 

[danersin]

Tek hücrede yazamadım, düşünmek lazım

B1'e aşağıdaki dizi formülünü yazıp (yani formülü girdikten sonra direk enter değil ctrl+shift+enter yapın, formülün başında ve sonunda {....} işaretleri çıkacak)

=MAK(SATIR(1:10)*(A1:A10<>""))

daha sonra b2 de
=KAYDIR(A1;B1-1;0)

 

[Merhum İdris SERDAR]

B1 hücresine;

{=OFFSET(A1;MAX(ROW(1:10)*(A1:A10<>""))-1;0)}

formülünü girin.

Not: Bu formülü ctrl+shift+enter ile girmeniz gerekir.

 

[danersin]

ben birleştirirken yanlış yazdım heralde.:kafa:

OFFSET=KAYDIR
MAX = MAK
ROW = SATIR

 

[Merhum İdris SERDAR]

ben birleştirirken yanlış yazdım heralde

Sayın Danersin,

Bu kadar üzüleceğinizi bilseydim, bu formülü yazmazdım. Tabii ki şaka olarak söylüyorum.

Saygılar...

 

[danersin]

Üzüldüğüm nokta 3-5 ay ilgilenmeyince bu kadar paslanmış olmam. Hız mız kalmamış. 2 defa denedim hemde apaçık önümdeki formülü yazmayı

 

[mesudiye_052]

Cevap veren arkadaşların hepsine teşekkürü borç bilirim

Bir de YURTAŞ Kardeşime hitaben;
yazmış olduğun formülün Türkçe karşılıklarını öğrenebilirmiyim


Teşekkürler

 

[yözcan]

cevap son yazılan değer

ekteki dosyayı bir incele işini görürmü

 

[Merhum İdris SERDAR]

Bir de YURTAŞ Kardeşime hitaben;
yazmış olduğun formülün Türkçe karşılıklarını öğrenebilirmiyim

Sayın Danersin'in sondan bir önceki mesajında var onlar.

OFFSET=KAYDIR
MAX = MAK
ROW = SATIR

 

[mesudiye_052]

Teşekkür

Yanıt verdiğiniz çalışmaları değerlendirerek kendi yapmış olduğum formüle uyarlama yatım
hepinize teşekkür ederim.


{=DOLAYLI((ADRES(MAK(SATIR(1:10)*(A1:A10<>""));1;4;1)))}
ve diğer formül
{=İNDİS(A1:A10;MAK(SATIR(1:10)*(A1:A10<>""));1)}

 

[Ali]

A1:A10 hücrelerine en son yazılan metin veya sayıyı B1 hücresine almak istiyorum

İlgili sayfanızın kod bölüme aşağıdaki kodları ekleyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Cells(65536, 1).End(xlUp).Value
End Sub

Makro ile kullanmak isterseniz diye ilgili sayfada kullanmanız için değiştirmiştim sanırım siz makro istemiyorsunuz.

İyi çalışmalar :hey:

 

[mesudiye_052]

Sayın fructose,
Emek vermiş olduğunuz makroyu excel sayfama tatbik ettim güzel olmuş
Gönlüne emeğine sağlık
Teşekkürler