En Son Sayı

[ormann]

Arkadaşlar a1 ile a65536 nolu hücreler arasındaki en son sayıyı d25 hücresine formülle nasıl yazdırabiliriz?

 

[kan-nas]

Sub sonsayı()
Range("a65536").End(3).Rows.Select
Range("d25").Value = ActiveCell
End Sub

Makroyla böyle .Formülle varsa bilmiyorum Varsa da öğreniriz.

 

[kan-nas]

Sub sonsayı()
Range("a65536").End(3).Rows.Select (son dolu hücreyi seçer.)
Range("d25").Value = ActiveCell(sseçilen hücre aktif hücredir.Aktif hücre değerini d25 e yaz.)
End Sub

 

[ormann]

makroyla kendisi otamatik olarak yazabilir mi ?.Bir butona bağlı olmadan

 

[İhsan Tank]

makroyla kendisi otamatik olarak yazabilir mi ?.Bir butona bağlı olmadan

merhaba
bu işinizi görür sanırım

Option Explicit
Sub son()
Dim ts
ts = Range("A65536").End(xlUp).Row
Range("D25") = Range("A" & ts)
End Sub

 

[kan-nas]

Private Sub Worksheet_Change(ByVal Target As Range)

Bu olabilir.

 

[ormann]

Sayın Halit Bey butona bağlı olmadan formülle veya otamatik olarak nasıl yapabiliriz?

 

[ormann]

Sayın Halit bey butona bağlı olmadan otamatik veya formülle nasıl yapabiliriz?

 

[kan-nas]

İhsan Tank hocam, hücre veya sayfa değiştiğinde otomatik olrak makro nasıl çalışır. O kodlar nelerdir.

Option Explicit nedir.

 

[İhsan Tank]

Sayın Halit Bey butona bağlı olmadan formülle veya otamatik olarak nasıl yapabiliriz?

sanırım isimleri karıştırdınız
sayfanın kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
Dim ts
ts = Range("A65536").End(xlUp).Row
Range("D25") = Range("A" & ts)
End Sub

 

[İhsan Tank]

İhsan Tank hocam, hücre veya sayfa değiştiğinde otomatik olrak makro nasıl çalışır. O kodlar nelerdir.

Option Explicit nedir.

merhaba
hücrede değişiklik olduğunda

Private Sub Worksheet_Change(ByVal Target As Range)

bu kod
giriş'te çalışsın isterseniz

Private Sub Worksheet_Activate()

çıkış'ta çalışsın isterseniz

Private Sub Worksheet_Deactivate()

yok sayfa değiştirdiğinizde ise her sayfada çalışması için
thisworkbook'ta

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

bunu
kullanabilirsiniz.
diğer sorunuz ise şu değişkenler'i tanımlamazsanız hata vermesini sağlar.