Hücredeki satırları ayırmak

[xoro20]

Arkadaşlar
Bir hücrede bulunan ve bir web sayfasıüzerinden alınan 15 satırlık bir bilgi var. ve ben bu hücrenin içindeki "Serkan" kelimesi ile başlayan satırı ayrı bir hücreye kopyalamak istiyorum bu konuda yardımlarınızı bekliyorum

 

[Necdet]

Soruyu çözecek olan arkadaşım, önce bir örnek veri oluşturmalı, çözümün çalışıp çalışmadığını anlaması için.

Bunu da sizin yerine yapmasını ister misiniz, yoksa siz örnek bir dosya ekler misiniz?

 

[xoro20]

düzeltme

ekteki örnek dosya da "A1" hücresindeki verile içinde "Ror" kelimesi ile başlanyan satırı ayrı bir hücreye almam gerekiyor.
önceki soru için özür diliyorum

 

[veyselemre]

Sub deneme()
a = Split([a1], vbCrLf)
For Each y In a
    If Trim(y) Like "Ror*" Then [a2] = Trim(y)
Next
End Sub

 

[Kemal Demir]

Aşagıdaki kod zannedersem işinizi görür.

Dim uzunluk As Integer
uzunluk = Len(Range("a1"))
For x = 1 To uzunluk
If Mid(Cells(1, 1), x, 3) = "Ror" Then
son = [b65536].End(3).Row + 1
Range("b" & son) = Mid(Cells(1, 1), x, 78)
End If
Next

 

[xoro20]

teşekkürler sorun çözüldü