Merhaba Arkadaşlar,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "" Or Selection.Count > 1 Then Exit Sub
If Not Intersect(Target, [N2]) Is Nothing Then
son = WorksheetFunction.Max(Cells(Rows.Count, "D").End(3).Row, 5)
eski =...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.