MS Excel

Téma: vyhledání dat a kopírování

Zaslal/a ajli 16.5.2012 18:58

Ahoj všem,

mám problém s vyhledáním a překopírováním dat. V Listu1 i v Listu2 mám ve sloupci A číslice. Potřeboval bych makro, které mi do Listu2 překopíruje hodnoty z Listu 1 ze sloupce B tak, aby byly vždy u příslušné číslice v jednom řádku. Např. jak je v příloze pro číslici 0 se do Listu2 překopírují postupně hodnoty 132, 222 a 333.

Děkuji za pomoc

Příloha: rar

8530_vzor.rar (6kB, staženo 10x)

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

Jeza.m(16.5.2012 20:58)#008532

Public Sub dopln()
For rd = 1 To List2.UsedRange.Rows.Count
lcol = 2
For rd2 = 1 To List1.UsedRange.Rows.Count
If List1.Cells(rd2, 1) = List2.Cells(rd, 1) Then
List2.Cells(rd, lcol) = List1.Cells(rd2, 2)
lcol = lcol + 1
End If
Next
Next
End Sub

M@citovat

ajli(16.5.2012 21:46)#008533

diky moc, to je presne onocitovat

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.