MS Excel

Jeden příklad:
Public Sub hledej()
Dim retezec As String
retezec = InputBox("Hledaný výraz", "Hledej")
Dim radek As Single
radek = 2

For Each cell In Selection

If InStr(1, cell.Value, retezec, vbTextCompare) > 0 Then
List2.Cells(radek, 1) = cell.Value
radek = radek + 1
End If
Next

End Sub
M@citovat

Ahoj, tak já to teda zkusím popsat :-).
retezec = hledaná hodnota

radek = pocatecni radek listu dva kam se budou zapisovat hodnoty je-li podminka splnena

For each cell in selection = smyčka která prejede buňku po buňce v označené oblasti buňek (místo selection lze nastavit konkrétní range).

Instr = funkce pro vyhledání textového řetězce v textu

1 = počáteční znak odkud prohledávat

cell.value = prohledávaný text

retezec = viz výše

vbTextCompare = porovnávání textu

funkce Instr v případě nalezení řetězce v textu vrátí číslo odpovídající prvnímu nalezenému výskytu (pozice prvního znaku řetězce v prohledávaném textu), proto > 0, kdyby bylo =0 zanmená, že ho nenašel.

následující řádek zapíše do listu 2, sloupce 1 na řádek = radek hodnotu prohledávané buňky je-li splněna podmínka výše.

Je-li zapsáno přičte jeden řádek, do kterého bude v příštím cyklu smyčky zapisovat, bude-li splněna podmínka.

End if = konec podmínky

Next = jdi na další buňku výběru

S pozdravem
M@citovat

zdravim

no skusal som to prerobit aby mi neskopiroval ako vysledok len hladany retazec cize jednu bunku ale aby mi skopiroval cely riadok z hladaneho textu

napr. mam riadok 1 kde sa nachadzaju udaje v 14 stlpcoch pricom klucovy prvok pre hladani je stlpec A

no lenze po prepisani cell.value na range alebo vyhodi vba error este ma napadlo ci nepouzit prikaz na zistenie adresy hldanej bunky a nasledne skopirovat range ?

Viete mi poradit ?

Dakujemcitovat

dakujem velmi pekne ono skusal som to cez offset ale bolo to prilis neprehladne a dost zlozite na taku lahku operaciu kazdopadne diky moccitovat