En Son Girilen Veriyi Bulmak

[turkuaz_81]

Arkadaşlar iyi forumlar,

A sütununda numune geliş tarihi, B sütununda firma listem,C sütununda rapor numaraları yazıyorum. En son yazdığım veriyi bulmak istiyorum.

Benim sıkıntım rapor numaralarım birbirini takip etmiyor. ilk rapor numaramı 5. satıra yazarken ikinci rapor numaramı 1. satıra yazabiliyorum.

bu şekilde en son yazdığım veriyi nasıl bulabilirim.

{=DOLAYLI("C" & MAK(EĞER(C2:C1000<>"";SATIR(C2:C1000))))}

yukarıdaki formül, en son satıra yazdığım değeri buluyor. en son yazdığım veriyi bulmuyor.

dosya ekleyemediğim için özür dilerim

 

[bzace]

Merhaba,
Bir modül ekleyip içine;

Sub Son_veri()
Cells.SpecialCells(xlCellTypeLastCell).Select
End Sub

yazınız.

 

[turkuaz_81]

Merhaba,
Bir modül ekleyip içine;

Sub Son_veri()
Cells.SpecialCells(xlCellTypeLastCell).Select
End Sub

yazınız.

ilginize çok teşekkür ederim. formül ile çözebilir miyiz? sanırım excel kısıtlı versiyon

 

[turkuaz_81]

arkadaşlar bu konuda yardımcı olabilecek kimse var mı?

raporlara verdiğim numaralar çok karışıyor.

 

[Korhan Ayhan]

Makro istemiyorsanız F5-Özel-Son Hücre seçeneğini kullanmanız gerekiyor.

Formülle son giriş yapılan hücreyi tespit edemezsiniz.

 

[turkuaz_81]

Makro istemiyorsanız F5-Özel-Son Hücre seçeneğini kullanmanız gerekiyor.

Formülle son giriş yapılan hücreyi tespit edemezsiniz.

bahsettiğiniz yöntem oluşturduğum tablonun son satırına atıyor beni. 700. satırı gösteriyor. belki de ben anlatamadım sıkıntımı.

A sütunu:Malzeme geliş tarihi
B sütunu:Firma adı
C sütunu:Rapor numarası

bu şekilde oluşturduğum listede en son verdiğim rapor numaram en alt satırda olmayabiliyor. mesela 12. satırda "GTM12" rapor numarası verdim. sonraki rapor numaramı 5. satırda "GTM13" olarak verebiliyorum. listem ilerledikçe bunu takip etmem zorlaşıyor.

belki bir formülle işin içinden çıkılır diye düşündüm. vakit ayıran, yardımcı olan herkese çok teşekkür ederim.

 

[turist]

Örnek bir dosyanızı, GOOGLE DRIVE, YANDEX DISK, DOCYA.TC ,DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

 

[Korhan Ayhan]

Boş bir hücreye aşağıdaki dizi formülünü uygulayın. C sütunundaki en büyük sayıyı size verir. Siz bu değere bakarak son sıra numarasını verebilirsiniz.

=MAK(EĞER(ESAYIYSA(SAĞDAN(C2:C1000;1)*1);--YERİNEKOY(C2:C1000;"GTM";"");0))

 

[ExcelF1]

İlginin sayfanın kod bölümüne;

Bu kodu yazdığınızda sayfadaki son değişiklik yapılan hücre adresini Sayfa2 A1 hücresine yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).[A1] = Target.Address
End Sub

Üstteki koda 1 satır ilave ile, son yazılan değeri de Sayfa2 B1 hücresine yazdırabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).[A1] = Target.Address
Sheets(2).[B1] = Target.Value
End Sub

Bu kod ise, değişiklik yapılan her hücreyi, Sayfa2 A sütununda aşağı doğru yazar.

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).[A65536].End(xlUp).Offset(1, 0) = Target.Address
End Sub

dilerim işinizi görür.

 

[baydeniro]

Emeği geçenlere çok teşekkürler.

 

[ExcelF1]

Rica ederiz de, işinizi gördü mü ki ?

 

[baydeniro]

Tabii ki, tekrar teşekkürler.