Find hata verdiğinde fonksiyona devam etmek

[anatole]

Selamlar,

arkadaşlar aşağıdaki macroyu yazdım. Fakat find fonksiyonu aradığını bulamayınca fonk. duruyor. Benim yapmak istediğim find bulamasa bile fonk.nun devam etmesi, yardımcı olursanız sevinirim.


Sub HK()

For i = 2 To 5000
Sheets("sayfa1").Activate
a = Cells(i, 3)
aa = Cells(i, 11)
Sheets("sayfa2").Activate
Columns("B:B").Select
On Error GoTo devam
b = Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _False, SearchFormat:=False).Row
If Cells(b, 8) = aa Then
Sheets("sayfa1").Activate
Cells(i, 1) = "ACILAR ESIT"
Else
Cells(i, 1) = "ACILAR FARKLI"
End If
devam:
Next i

End Sub

 

[Ömer]

Merhaba,

Do Loop ile döngü kurmanız gerekir. Yapmak istediğinizi küçük bir örnek dosya ekleyerek açıklarsanız yardımcı olmaya çalışırız.

.

 

[anatole]

Selamlar,

örnek dosya yüklemeyi başaramadım ama ne yapmak istediğimi kısaca anlatayım. İki farklı sheet'de ikişer sütun var. ilk sheet in ilk sütunundaki değeri alıp ikinci sheetin ilk sütununda aratıcam. Bulması durumunda birkaç işlem daha yapıyor. Ama bulmadığında bir sonraki satıra geçmeyip hata veriyor. Benim istediğim bulamasa da, bulana kadar "i" değerini artırarak bir sonraki satırdan devam etmesi.

 

[Ömer]

Açıklamanız eksik bu şekilde sadece tahmini kodlar yazarım. Size bahsettiğim döngü ile ilgili bir örnek vereyim siz dosyanıza uyarlamaya çalışın. Eğer olmazsa küçük bir örnek ekleyerek detaylı açıklama yapınız.

Sorunun devamında, ataç eklemek( Dosya eklemek).

Aşağıdaki linkte #2 nolu mesajdaki "CommandButton1_Click" deki kodları inceleyiniz..

http://www.excel.web.tr/f48/vba-combobox-t91283.html

.