makro - vyhledání části textu v buňce Vyřešeno

[davidt]

Zdravim,

Může mi někdo poradit, jak vyhledat jen část textu v buňce?

Jde mi o to, že načítám postupně řádky ze jednoho sloupce a potřebuju to ukončit před buňkou, která má v textu "Vytvořil(a) " + jméno, které se může lišit. Proto potřebuju, aby stačilo, že tam je část textu "Vytvořil".

Původně jsem měl makro takhle (teď nefunkční):

For i = 1 To 3000
If Sheets(2).Cells(i, 1) = "Vytvořil" Then
i = 3000
Else
Sheets(1).Cells(i + 4, 1).Value = Sheets(2).Cells(i, 1).Value
End If
Next i

[Reklama]

[mike007]

Nemám moc času, takže jsem si neověřil funkčnost, ale snad to je dobré. Otestuj ...

For i = 1 To 3000
If InStr(Sheets(2).Cells(i, 1), "Vytvořil") Then
i = 3000
Else
Sheets(1).Cells(i + 4, 1).Value = Sheets(2).Cells(i, 1).Value
End If
Next i

---

[davidt]

Mnohokrát díky.

[mike007]

Za málo. Vlákno označuji za vyřešené.