maks mın buldurma sorunu

[bobcan]

dosyadakı gıbı soldakı sayı degerıne gore artıp azalabılıcek b stunundakı sayılardan en kucugunu mesela bırıncıyı mın le kıyaslayp kucukse mın degerını kendısıyle deısıp altta o mın degerıne gore devam edıp en ufak olanını bulucak bı makro lasım yardımlarınızı beklıyorum

 

[bobcan]

dosya burda
Ekli dosyayı görüntüle Kitap1.xls

 

[Korhan Ayhan]

Selamlar,

Ben sorunuzu defalarca okudum fakat bir anlam çıkaramadım. Sizin dosyadaki makronuz 5 sonucunu buluyor. Bu sonuç doğru mu? Hangi mantığa göre hareket edilecek? Bunları açıklarmısınız.

 

[bobcan]

yok ordakı en ufak sayıyı bulması gerekıyodu ama bn yaptım basardım gerek kalmadı genede sagolasın

 

[Necdet]

yok ordakı en ufak sayıyı bulması gerekıyodu ama bn yaptım basardım gerek kalmadı genede sagolasın

Şimdi bilginizi kendinize mi saklayacaksınız?

 

[bobcan]

yok tabıkı sadece cevabı yasarken unutmusum eklemeyı

 

[bobcan]

yok tabıkı sadece cevabı yasarken unutmusum eklemeyı
Ekli dosyayı görüntüle Kitap1.xls

 

[Necdet]

Merhaba,

Şöyle de olmaz mı?

Aşağıdaki kod B sütunundaki Minumum ve Maksimumu E1 ve E2 hücrelerine yazar.

Private Sub CommandButton1_Click()
SonSatır = [B65536].End(3).Row
[E1] = Application.WorksheetFunction.Min(Range("B1:B" & SonSatır))
[E2] = Application.WorksheetFunction.Max(Range("B1:B" & SonSatır))
End Sub