MS Excel

Téma: kopírování řádků s podmínkou

Zaslal/a illjuska 15.5.2012 20:56

ahoj,

potřeboval bych pomoct. Ve sloupci A mám různá čísla, která se mohou opakovat. Potřeboval bych na druhý list zkopírovat všechny řádky, které bude ve sloupci A obsahovat určitou číslici (např. 3).

Díky za pomoc

Uzamčeno - nelze přidávat nové příspěvky.

Jeza.m(15.5.2012 21:49)#008515

třeba ...
Dim param As String
Dim rd2 As Single
param = InputBox("Zadej znak jehož výskyt mám hledat", "Parametr", "3")
If param = none Then Exit Sub
For rd = 2 To List1.UsedRange.Rows.Count
If InStr(1, Cells(rd, 1), param, vbTextCompare) <> 0 Then
rd2 = List2.UsedRange.Rows.Count + 1
List1.Rows(rd & ":" & rd).Copy List2.Rows(rd2 & ":" & rd2)
End If
Next

M@

Příloha: zip

8515_kopirovani.zip (9kB, staženo 28x)

citovat

illjuska(16.5.2012 18:08)#008526

díky za pomoccitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.