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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse