for each döngüsü

[burhanyildirim11]

selamlar ,
a1 den d10 kadar bırbırınden farklı karısık tam sayılar var
bunların içerinde kendisinden önce gelen sayıdan buyuk olanları arıyorum.
bunu for next ile yapabılıyoruz ama öğrenmek amacı ile for each dongusu ıle yapılabılınıyor mu ?

Sub brhn()

Dim d As Range


For Each d In Range("a1:d10")

' burada d değişkenini bir önceki veri ile mukayese etmek istiyorum ,

Next d


End Sub

 

[veyselemre]

Sub brhn()
    Dim d As Range, ilk As Boolean, onceki$
    
    ilk = True
    
    For Each d In Range("a1:d10")
        If ilk Then
            onceki = d.Value
            ilk = False
        Else
            If d.Value > onceki Then
                MsgBox d.Value & vbCr & onceki & vbCr & "büyük"
            End If
            onceki = d.Value
        End If
    Next d

End Sub

 

[burhanyildirim11]

Sub brhn()
    Dim d As Range, ilk As Boolean, onceki$
   
    ilk = True
   
    For Each d In Range("a1:d10")
        If ilk Then
            onceki = d.Value
            ilk = False
        Else
            If d.Value > onceki Then
                MsgBox d.Value & vbCr & onceki & vbCr & "büyük"
            End If
            onceki = d.Value
        End If
    Next d

End Sub

çok teşekkür ederim , elinize sağlık