< návrat zpět

MS Excel

Téma: prosba makro na sumar harkov rss

Zaslal/a mancal 21.12.2016 15:27

Ahoj

rad by som odpoved mam v zosite harky podla mesiacov na konci mam harok sumar a makro na sumar harkov Januar a December ale oktober si tam nedokazem vlozit

'----------Október 2016
List = "Október 2016"

Worksheets(List).Activate toto je zlte dik neviete preco? dik

List = "September 2016"

Worksheets(List).Activate
Worksheets(List).Range(Cells(4, 2), Cells(Application.WorksheetFunction.CountA(Worksheets(List).Range("D:D")) + 2, 19)).Select
Selection.Copy

Worksheets("Sumar").Activate
Worksheets("Sumar").Cells(Application.WorksheetFunction.CountA(Worksheets("Sumar").Range("D:D")) + 3, 2).Select
ActiveSheet.Paste

'----------Október 2016
List = "Október 2016"

Worksheets(List).Activate
Worksheets(List).Range(Cells(4, 2), Cells(Application.WorksheetFunction.CountA(Worksheets(List).Range("D:D")) + 2, 19)).Select
Selection.Copy

Worksheets("Sumar").Activate
Worksheets("Sumar").Cells(Application.WorksheetFunction.CountA(Worksheets("Sumar").Range("D:D")) + 3, 2).Select
ActiveSheet.Paste

'----------November 2016
List = "November 2016"

Worksheets(List).Activate
Worksheets(List).Range(Cells(4, 2), Cells(Application.WorksheetFunction.CountA(Worksheets(List).Range("D:D")) + 2, 19)).Select
Selection.Copy

Worksheets("Sumar").Activate
Worksheets("Sumar").Cells(Application.WorksheetFunction.CountA(Worksheets("Sumar").Range("D:D")) + 3, 2).Select
ActiveSheet.Paste

'----------December 2016
List = "December 2016"

Worksheets(List).Activate
Worksheets(List).Range(Cells(4, 2), Cells(Application.WorksheetFunction.CountA(Worksheets(List).Range("D:D")) + 2, 19)).Select
Selection.Copy

Worksheets("Sumar").Activate
Worksheets("Sumar").Cells(Application.WorksheetFunction.CountA(Worksheets("Sumar").Range("D:D")) + 3, 2).Select
ActiveSheet.Paste

Worksheets("Sumar").Range("B3").Select
End Sub

Zaslat odpověď >
icon AL(21.12.2016 15:49)#033978
avatar
toto je zlte dik neviete preco?
Asi sa list október nevolá Október 2016citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje