< návrat zpět
MS Excel
Téma: hledani textu v oblast
Zaslal/a felli 20.9.2010 14:58
Zdravim,
potreboval bych pekne prosim poradit s timto:
Dejmte tomu ze ve sloupci mam hledany text, ktery je pouze v nekterych radkach. V tomto připadě je hledany text "ahoj". Potřebuji zkopirovat vsechny radky, ktere obsahuji tento hledany text.
Diky za pomoc
Niffki(21.9.2010 11:40)#002506 Jo ahá :-) dík ;-)
citovat
felli(22.9.2010 13:23)#002513 Jeste bych potreboval mensi upravu v podobe, ze hledany text je v bunce az za nekolika dalsimi hodnotami. Pokud tedy budeme hledat text "ahoj", tak napr.: dobrydenahoj.
diky za namety
citovat
Poki(22.9.2010 15:52)#002515 Co takto?
Sub najit_obsahuje()
For i = 1 To List1.Cells(1000000, 1).End(xlUp).Row
On Error Resume Next
List1.Select: Rows(Cells(i, 1).Find("ahoj").Row).Select
If Err.Number = 91 Then GoTo chyba
Selection.Copy
List2.Select: Cells(Application.WorksheetFunction.CountA(List2.Range("a:a")) + 1, 1).Select: Selection.PasteSpecial Paste:=xlValue
chyba:
Next
End Subcitovat