For i = 1 To Cells(1000000, 1).End(xlUp).Row
If Cells(i, 1) = "ahoj" Then
Rows(i).Copy
'tady bude kod pro urceni mista, kam se ma radek nakopirovat
End If
Next
End Subcitovat
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
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.