Son Veriyi Çekme

[Way-Out]

Merhaba,

Ben bir tablo oluşturdum bu tabloya zaman zaman veriler eklemekteyim.

Tablo diye bir sayfam var bu sayfa içerisinde oluşturduğum tabloda örnek veriyorum a1 den a100 e kadar tablom var ve a1 den ben verileri belirli aralıklarla girmeye başladım. A1 e veri girilince rapor sayfam var rapor sayfamda a sutununa en son girilen veri a10 da ise a10 hücresindeki veriyi bana göstersin yada bu a90 da ise a90 verisini göstersin bunu bana nasıl yaparım bunu ? Rapor sayfasına veriyi ben çekerim sadece oluşturulan tablodaki en son girilen rakam yada yazıyı bana b1 hücresine yazsın aynı sayfa da sonrab1 hücresini bende raporlar sayfasına çekerim bunu nasıl yaparım bu konuda yardımcı olabilirmisiniz

 

[Ömer BARAN]

Merhaba.

Bir'den fazla seçenekle cevaplar verilebilir.
Örneğin formül ile mi çozüm istiyorsunuz, yoksa makro kod ile mi?

Aslında en iyisi cevabımın altındaki İMZA bölümünde yer alan açıklamalar dğrultusunda hazırlayacağınız
bir örnek belge ekleyerek kesin ve net sonuca ulaşmanızı hızlandırabilirsiniz.
.

 

[Way-Out]

Merhaba.

Bir'den fazla seçenekle cevaplar verilebilir.
Örneğin formül ile mi çozüm istiyorsunuz, yoksa makro kod ile mi?

Aslında en iyisi cevabımın altındaki İMZA bölümünde yer alan açıklamalar dğrultusunda hazırlayacağınız
bir örnek belge ekleyerek kesin ve net sonuca ulaşmanızı hızlandırabilirsiniz.
.

Örnek bir dosya hazırladım.

Makroya gerek yok en kısa yoldan bana nasıl cevap verebiliyorsa benim için yeterlidir bu.

 

[tahsinanarat]

Şu kodları bir modüle yapıştırıp deneyiniz

Sub deneme()
Range("B1").Select
    Selection.End(xlDown).Select
Range("E6").Value = ActiveCell.Offset(0, 0)
End Sub

Formül ile yapmak isterseniz

=ARA(2;1/(B2:B65536<>"");B2:B65536)

 

[Mustafa MUTLU]

Tablo sayfa adını sağ tıklayıp, kodu göster deyin.
Açılan sayfaya aşağıdaki kodu yapıştırıp kapatın.

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo Gel
    If Intersect(Target, Range("a1:a100")) Is Nothing Then Exit Sub
 [b1] = Target.Value
Gel:
End Sub

Yeterince cevap verilmiş.
Bizimkide değişik bir örnek olsun.

 

[Ömer BARAN]

Merhaba.

Örneğin aşağıdaki dizi formüllerinden biriyle olabilir.
.

[FONT="Arial Narrow"]=İNDİS($B$2:$B$101;BÜYÜK(EĞER($B$2:$B$101<>"";SATIR($B$2:$B$101));1)-1;0)
[B][COLOR="Red"]veya[/COLOR][/B]
=İNDİS($B$2:$B$101;MAK(EĞER($B$2:$B$101<>"";SATIR($B$2:$B$101)))-1;0)
[COLOR="Blue"]Formüller dizi formülü olduğundan hücreye [COLOR="Red"]CTRL+SHIFT+ENTER[/COLOR] iile yapılmallıdır.
İşlemi doğru yapmışsanız formül --kendiliğinden-- [COLOR="red"][B]{[/B][/COLOR]....[B][COLOR="red"]}[/COLOR][/B] gibi köşeli paranteze alınacaktır.[/COLOR][/FONT]

 

[Way-Out]

http://www.excel.web.tr/f14/sutunda-en-son-satyrdaki-veriyi-almak-t128681.html bu sayfadaki

bu formulle işimi çözdüm teşekkür ederim.

=ARA(2;1/(A2:A1000<>"");A2:A1000)