Şartlı döngüyü kuramadım

[Usyk]

Merhaba

Kodda Sayfa1'deki A sütununda Adres kelimesi geçiyorsa B sütununda yazan adres içinden caddeyi alıyorum ve Liste sayfasına yazdırıyorum.

Ancak CAD. kelimesi geçmeyen adreslerde yani caddesi olmayan adresler için de Liste sayfasına herhengi bir şey yazdırıp döngüyü devem ettirebilir miyiz?

Dosya içindeki veriler sıkıntılı olduğu için eklemedim. Gerek olursa örnek hazırlamaya çalışırım.


For i = 1 To s1.Range("a65536").End(3).Row
*** metin = s1.Cells(i, "b").Value
******* If s1.Cells(i, "a") Like "*Adres*" And InStr(1, metin, "CAD.") > 0 Then
*********** With s2.Range("g65536")
*************** .End(3)(2, 1).Value = Mid(metin, InStr(1, metin, "MAH.") + 5, InStr(1, metin, "CAD.") - InStr(1, metin, "MAH.") - 1)
*********** End With
******* End If
*** Next i

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

For i = 1 To s1.Range("a" & Rows.Count).End(3).Row
    metin = s1.Cells(i, "b").Value
    With s2.Range("g" & Rows.Count)
        If s1.Cells(i, "a") Like " Adres " And InStr(1, metin, "CAD.") > 0 Then
            .End(3)(2, 1).Value = Mid(metin, InStr(1, metin, "MAH.") + 5, InStr(1, metin, "CAD.") - InStr(1, metin, "MAH.") - 1)
        Else
            .End(3)(2, 1).Value = "Buraya istediğinizi yazabilirsiniz."
        End If
    End With
Next i

 

[Usyk]

Sayın dalgalikur

Yardımınız ve ilginiz için çok teşekkür ederim. Düzeltmenizin üzerinde biraz çalışınca oldu. Else den sonra da koşul kısmını yazınca istediğim gibi oldu.

Tekrar teşekkür ederim.