excel macro ile satır üzerinde nasıl arama yaparım?

[aybekcan]

Merhabalar
excelde satır üzerinde arama yapıp kıstasa uyan değeri bir hücreye kopyalamak istiyorum.yani d1 ile v1 arasında ki hücreleri aratıp,hücreler içinde değeri 9999 dan küçük olan ilk hücreyi a22 hücresine kopyalamak istiyorum ama nasıl yapacağımı biliyorum.acemice bir macro yazdım ama çalışmadı, neden çalışmadığını açıklayabilirseniz ve doğrusunu nasıl yapacağımı anlatabilirseniz müteşekkir olurum.yazmaya çalıştığım macro da aşağıda;

Dim i As Integer
For i = 1 To 22

If Cells(1, i).Value < 9999 Then
Cells(1, i).Select
Selection.Copy Range("a25")



End If

Next i



End Sub

 

[PLİNT]

Merhaba
Kodlarınız doğru hücreyi (küçük sayı hücrede metin olarak görünmüyorsa) bulmuştur,
ama; ilk küçük değeri bulduğunda döngüyü sonlandırmalısınız.

Dim i As Integer
For i = [COLOR="Red"]4[/COLOR] To 22
If Cells(1, i).Value < 9999 Then
Cells(1, i).Select
Selection.Copy Range("a25")
[COLOR="Red"]Exit For[/COLOR]
End If
Next i

 

[aybekcan]

Çok teşekkür ederim.Ellerinize sağlık.gerçekten çalışıyor.