• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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: 46034_kopie-oblasti.rar (31kB, staženo 19x)

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: 46076_kopie-oblasti.zip (42kB, staženo 17x)

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse