find

[Hulyaa1]

find fonksiyonunu döngü halinde kullanmak istiyorum. ekte ayrıntıyla anlattım. ama kısaca

for i=1 to 9999999
find form i

gibi birşeye ihtiyacım var yardımcı olabilirseniz sevinirim.

 

[N.Ziya Hiçdurmaz]

merhaba form1 ve iki bulunduktan sonra ne işlem yapılacak?
Bir örnek.
Sub test()
For sut = 1 To 100
If Range("c" & sut) = "form1" Then
Range("c" & sut).Interior.ColorIndex = 6
End If
If Range("c" & sut) = "form2" Then
Range("c" & sut).Interior.ColorIndex = 24
End If
Next
End Sub

 

[Hulyaa1]

sadece form1 ve form2 yok. ben kısa olsun diye o kadar yazmıştım. bu şekilde olursa bütün formlar için tek tek işlem yazmak gerekli.
bir döngü halinde sırasıyla formları bulsun ve işlemi yapsın istiyorum. işlem uzun o yüzden buraya yazmadım.

 

[N.Ziya Hiçdurmaz]

yanıt

İçerisinde form değeri olan tüm hücreleri bulur.

Sub test()
For sut = 1 To 100
If Range("c" & sut) Like "*" & ("form") & "*" Then
Range("c" & sut).Interior.ColorIndex = 6
End If
Next
End Sub

 

[Hulyaa1]

evet oldu çok teşekkür ederim. rica etsem koddaki bu like ve yıldızların anlamı nedir söyleyebilirmisin. mantığını anlayıp öğreneyim ki bi daha aynı şeyler için sizi meşgul etmiyim