Sıfır Hariç Min Değer Bulma..

[otekesa]

Soru silinmiştir.

 

[Ömer]

Merhaba,

Sıfı hariçi sıfırdan büyük olarak algıladım, eğer sıfırdan büyük değilde sıfır hariç olacaksa > yerine <> simgesini kullanırsınız.

Bu şekilde deneyin. A sütununa göre uyarlanmıştır.

Sub MinBul()
 
    Dim son As Long, deg As Double
 
    son = Cells(Rows.Count, "A").End(xlUp).Row
    deg = Evaluate("=Min(If(A1:A" & son & ">0,A1:A" & son & "))")
 
    MsgBox deg
 
End Sub

.


.

 

[otekesa]

Soru silinmiştir.

 

[Necdet]

Merhaba,

Eğer yeterince makro bilginiz yoksa, sorunuzu örnek dosya ile desteklemeniz gerekir.

örnek dosyanızda sizin gerçek dosyanızın aynısı ama küçük ölçekte olması gerekir.

Soru sorulmuş, yanıt verilmiş ama ben "gerçek dosyama uygulayamıyorum" diyorsunuz.

Madem bunu yapamıyorsunuz neden örnek dosya olmadan sorunuzu soruyorsunuz. Ve neden gereksiz yazışmaya neden oluyorsunuz.

Aynı soru benim yanıtladığım
http://www.excel.web.tr/f48/satyry-sutuna-sutunu-satyra-cevirme-t118812.html#post649106
linkteki soru.

Gereksiz yazışmalar ve gereksiz emek harcamayı ben uygun bulmuyorum.

Bu tür sorulara artık yanıt vermiyorum, vermeyeceğim.

 

[otekesa]

Zaman

Soru silinmiştir.