En Büyük değeri Bulma

[AKTAY27]

selam arkadaşlar


C sütununda bulunan yaklaşık 800 kalem var ben bunların içinde en büyük olan değeri userform1'de bulunan TextBox1'e yazdırmak istiyorum.

teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

B u şekil deneyiniz.

Private Sub UserForm_Initialize()
TextBox1 = WorksheetFunction.Max(Range("C2:C1000"), 1)
End Sub

 

[Ali]

Textbox'ın hangi özelliğine yazağınız bilmediğimden genel olarak,

Sayfa1 isimli sayfanın C sütunundaki en büyük değer için;

Application.WorksheetFunction.Max(Sheets("Sayfa1").Range("C:C"))

olarak deneyiniz.

 

[AKTAY27]

ilginizden dolayı teşekkürler
sayın; V.Bacic For Aplications ve sayın; Ali