10 SAYFANIN CELLS(2,19) HÜCRE DEĞERİNİN EN BÜYÜĞÜ

[Ongun]

10 SAYFANIN CELLS(2,19) HÜCRE DEÐERÝNÝN EN BÜYÜÐÜ

Herkese selamlar, çalışma kitabımda 10 sayfa var. Her sayfanın Cells (2,19) hücresini kontrol edip en büyük değerin UserForm açılınca TextBox1`e otamatik gelmesini istiyorum.

Yardımcı olursanız sevinirim. Saygılarımla :hey:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:bc085b1f1f]Private Sub UserForm_Initialize()
ReDim deg(Sheets.Count)
For a = 1 To Sheets.Count
deg(a) = Sheets(a).Cells(2, 19)
Next
TextBox1 = WorksheetFunction.Max(deg())
End Sub
[/vb:1:bc085b1f1f]

 

[Ongun]

Sayın leventm, elinize sağlık çok teşekkür ederim. Saygılarımla k::

 

[conanait]

sayın leventm,
ReDim kullanımıyla ile ilgili biligi verebilir misiniz?
forumda redim olarak arattım 60 sonuç veriyor ama hepsi bir makro içersinde kullanılmış (doğal olarak) ve herhangi bir açıklamayı içermiyorlar.
makaleler kısmında da bulamadım.
şimdiden tşk

 

[Levent Menteşoğlu]

Normalde değişkeni boyutsal bir diziye aktarırken Dim komutunu kullanırız. Bu komutta dizideki eleman sayısını mutlaka tanımlamak gerekir. Dim sayi(100) gibi; eğer tanımlanacak eleman miktarı belli değilse veya bir değişken ile belirlenecekse bu durumda Redim komutu kullanılacaktır. Redim sayi(deg) gibi, umarım doğru izah edebilmişimdir. Eksik varsa lütfen ilgili arkadaşlar tamamlasınlar.