MS Excel

Téma: prosba makro na sumar harkov

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ěď >

AL(21.12.2016 15:49)#033978

toto je zlte dik neviete preco?
Asi sa list október nevolá Október 2016citovat

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.