-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bir alana girilen metinler
- Konbuyu başlatan ozguracar
- Başlangıç tarihi
Ali
Özel Üye
- Katılım
- 21 Temmuz 2005
- Mesajlar
- 8,012
- Excel Vers. ve Dili
- Office 365 Türkçe
A sütununa girilen en son değeri hangi hücre olursa olsun farketmez ise yani A59 hücresine girdiniz sonra A25 hücresine girdiniz ve son hücreninin değeri gelsin diyorsanız
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 65536 Then Range("B1").Value = Target.Value
End Sub
A sütunundaki son değer gelsin derseniz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Range("A65536").End(xlUp).Value
End Sub
Formülle isterseniz B1 hücrenize aşağıdaki formülü yazınız.
=İNDİS(A:A;MAK(ELEMAN({1;2};KAÇINCI("zzzzzzzzzzzzzzzz";A:A);KAÇINCI(9,9999999E+307;A:A))))
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 65536 Then Range("B1").Value = Target.Value
End Sub
A sütunundaki son değer gelsin derseniz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1") = Range("A65536").End(xlUp).Value
End Sub
Formülle isterseniz B1 hücrenize aşağıdaki formülü yazınız.
=İNDİS(A:A;MAK(ELEMAN({1;2};KAÇINCI("zzzzzzzzzzzzzzzz";A:A);KAÇINCI(9,9999999E+307;A:A))))
- Katılım
- 25 Aralık 2004
- Mesajlar
- 1,793
- Excel Vers. ve Dili
- Office 2016 Pro Plus-Türkçe
sadece son işlem yapılan tarihi yazarsanız oluyor.