Sütundaki En Büyük Değeri Bir Artırıp Hücreye Yazmak

[hukumran1]

Merhaba arkadaşlar, başlıkta da belirttiğim gibi E sütunundaki en büyük değeri +1 yapıp E7 hücresine yazdırmak istiyorum. İnternetteki sonuçlarla çözüme kavuşamadım.

Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub KOD()
yuksek = WorksheetFunction.Max(Range("E:E"))
Range("E7").Value = yuksek + 1
End Sub

 

[hukumran1]

Çok teşekkür ederim. Tam istediğim gibi oldu.