Verilen değeri aynı satırdaki hücrede arama

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Hucrede_Bul()
    Range("F11").Select
    For i = 11 To 400
        satir = Cells.Find(what:=Cells(9, 12), LookIn:=Cells(i, 5)).Row
        If satir <> "" Then Cells(i, 8) = Cells(i, 1)
    Next i
End Sub

4. satırda Type Mismatch veriyor. Neden olabilir?
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Bence yapılacak işlemi belirtirseniz daha iyi olur.
Örnek belge olmayıp, amaç da net olmayınca cevap biraz afaki olacak.

VBA'da kullanacağınız FIND komutunu, satir= .... Find(.....) şeklinde kullandığınızda;
aranan değer, arama alanında yoksa HATA verecektir.
Bunun yerine, For...Next döngüsünün içinde aşağıdaki gibi bir yapı düşünmelisiniz.

        Set satir = Cells.Find(what:=Cells(9, 12), LookIn:=Cells(i, 5)).Row
        If Not satir Is Nothing Then Cells(i, 8) = Cells(i, 1)

 

[Tevfik_Kursun]

Sayın Ömer Baran Hocam,
Çok teşekkür ederim
Saygılarımla

 

[Tevfik_Kursun]

Merhaba,
Bu hatayı veriyor bu sefer Sayın Hocam.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın Hocam,
Fonksiyonla D sütununa yazılı olanı makro ile E sütununa yazayım istiyorum.
Saygılarımla