Listbox kolonundaki en büyük değeri textbox'a yazdırma

[cocoa35]

Merhaba üstatlar, bir sorum olacak UserForm üstündeki bir listbox kolonundaki en büyük değeri açılışta textbox'a yazdırmak istiyorum hangi formül ile yapabilirim?

 

[dEdE]

Merhaba,
ListBox'un kaynağı olan veri seti içinde en büyük değeri bulup doğrudan TextBox'a yazdırsanız.
Örneğin, Liste isimli sayfanın A2:H8 aralığını RowSource yöntemi ile ListBox'a alıyorum. Bana ListBox'un 4. kolonundaki en büyük değer lazım. Safanın D sütunundaki en büyük değeri bulup TextBox'a yazdırıyorum.
Örnek kodu inceler misiniz?

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 8
    ListBox1.RowSource = "Liste!A2:H8"
    TextBox1.Text = WorksheetFunction.Max(Sheets("Liste").Range("D2:D8"))
End Sub

 

[cocoa35]

Sn dEdE İlgi ve alakanız için çok teşekkürler , ancak benim sayfa Müşteri Listesindeki Ad ve Soyad'a göre oluşturulan bir sayfa olduğu için sayfa ismi ComboBox'da yazan sayfa ismi oluyor bunun için aşağıdaki şekilde formülü düzenledim ancak olmadı

ListBox1.ColumnCount = 7
ListBox1.RowSource = "'" & ComboBox1.Text & "'" & "!E4: E15 "
TextBox1.Text = WorksheetFunction.Max(Sheets("'" & ComboBox1.Text & "'" & "!").Range("E4:E15"))

 

[dEdE]

Bunu dener misiniz? TextBox1.Text = WorksheetFunction.Max(Sheets(ComboBox1.Text).Range("E4:E15"))