MS Excel

Téma: Zjednodušení kódu - kopírování z listu do listu

Zaslal/a Jiří497 24.2.2020 14:51

Prosím o radu.
Kopíruji sloupce C:J z listu "Data" do listu "Vstup" do sloupců A:H

Kopíruje se podle zadaného data (v A2) příslušný počet řádků.
Vše mi funguje, jen mi přijde ten kód zbytečně dlouhý a nenapadá mě jak to zjednodušit.
Myslel jsem na ".Copy", ale tam bych se asi zamotal při vypisování cesty.

With Worksheets("Data")
pocet = .Cells(c.Row, 2).Value
Set Oblast = .Range(.Cells(c.Row, 3), .Cells(c.Row + pocet - 1, 10))
End With

vstupArr = Oblast

With Worksheets("Vstup")
Set Oblast1 = .Range(.Cells(4, 1), .Cells(4 + pocet - 1, 8))
End With

Oblast1 = vstupArr

Příloha: rar

46034_kopie-oblasti.rar (31kB, staženo 20x)

Zaslat odpověď >

elninoslov(27.2.2020 14:32)#046076

Makro ani netreba. Tu sú príklady na vzorec aj makro. Ostatné makrá som neriešil.

Příloha: zip

46076_kopie-oblasti.zip (42kB, staženo 18x)

citovat

Jiří497(27.2.2020 14:59)#046077

Děkuji.

Datum se převádí na Double kvůli použití ve funkci Match a CountIf?citovat

elninoslov(27.2.2020 15:43)#046079

CountIf nie, ale Match áno. Skúste mu dať zožrať Date, dostanete chybu. Nemusí to byť Double, môže to byť CLng(), len ja som zvyknutý viac na Double, keďže môže obsahovať aj čas.citovat

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.