Sayfa2 W sütunundaki en son dolu hücre

[kelkitli]

Değerli Dostlar Selamlar,
Forumdan örnekler buldum ancak işimi görecek şekilde uyarlıyamadım.
Sayfa2 W sütunu sayısal değer içeriyor. W sütunundaki en son dolu hücredeki değeri 1 sayı artırarak Sayfa1 F23 hücresinde görüntülemek istiyorum.

 

[Ali]

=ARA(9,999999999E+307;Sayfa2!W:W)+1

işinizi görürmü.

 

[kelkitli]

Sayın Ali Bey,
Cevabınız için teşekkür ederim. Şöyle bir durum var. Bu hücreye elle veri girişi de gerekli olabiliyor. Kod ile yapamazmıyız.

 

[Ali]

Sayfa2 içine aşağıdaki kodları ekleyiniz.



Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sayfa1").Range("F23").Value = Sheets("Sayfa2").Range("W65536").End(xlUp).Value + 1
End Sub

.

 

[kelkitli]

Sayın Ali Bey,
Çok teşekkür ederim. Elinize sağlık harika oldu.