>1 Exit sub hakkında

[stirra_ej]

Sayın arkadaşlar altta yazdığım formül alt hücrelerde istediğim şartlar yerine gelmeden çıkış yapıyor.. Förmülün tam olarak açılımı nedir söyleyebilirmisiniz. >1 derken ne demek istiyor.. yardımcı olabilirmisiniz..

If WorksheetFunction.CountIf(Range("D16" & i), Range("D" & i).Value) > 1 Then Exit Sub

 

[Muzaffer Ali]

Aleykümselam.

Etopla formülü var eğer etopla formül sonucu 1 den büyükse anlamında.

Formülün tam açılımı şöyle: D sütununda bulunan herhangi bir değerden birden fazla varsa çıkış yap.

 

[EmrExcel16]

Merhaba , şunu yapıyor "EğerSay"..
Range("D" & i).Value bu değeri (değişken)
Range("D16:D" & i) bu aralıkta sayıyor (aralıkta değişken) .
Eğer döngü içinde Range("D" & i).Value bu değerin ikincisini bulursa , buda "> 1" bununla sağlanıyor yani 1 den büyükse Exit Sub ile kodları sonlandırıyor..

 

[stirra_ej]

Teşekkür ederim..