En büyük sayının bir fazlası

[CILEKESH]

Merhaba,

ts.Range("y2") = 1
ts.Range("y2:y" & Erkan + 1).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False

Bu kod ile "Y" sütununu numaralandırabiliyorum, Ancak bunu Her kayıtta Y2 den itibaren +1 yapmadan, Y sütununu kontrol edip mevcut en büyük sayının bir fazlasını yazdırabilecek koda ihtiyacım var.

* Y sutunu boş ise 1 değeri ile başlayacak

Teşekkür Ederim.

 

[Orion1]

Buyurun.

MsgBox WorksheetFunction.Max(Range("Y2:Y" & Rows.Count)) + 1

 

[CILEKESH]

Teşekkür ederim Sayın Orion1

 

[Orion1]

Teşekkür ederim Sayın Orion1

Rica ederim.
İyi geceler.