Login
...or Sign up
Home
Search
Search Code Snippets
Search People
Code Snippets of
rubensi
Sub Macro1() 'Ejemplo: Dispongo de 99 hojas en excel con una serie de cálculos que me han generado valores en las celdas D132 y E132 en cada hoja. Me gustaría agrupar todos esos valores por pares (D132 y E132) en la hoja 100 para disponer de un listado de esos resultados sin necesidad de copiar la D132 y E132 de esas 99 hojas y pegarlo en la hoja nº 100, para eso genero esta macro, me voy a la última hoja (la 100 por ejemplo) y ahí ejecuto esta macro. ' Cells(num, letra) ' Celda(132,4) --> D132 = Celda(n,1) --> A1, A2... ' Celda(132,5) --> E132 = Celda(n,1) --> B1, B2... ' Workbooks.Application.Sheets(Workbooks.Application.Sheets.Count).Cells(i, 1).Value = Workbooks.Application.Sheets(i).Cells(132, 4) Dim Numerohojas As Integer For i = 1 To Workbooks.Application.Sheets.Count - 1 Workbooks.Application.Sheets(Workbooks.Application.Sheets.Count).Cells(i, 1).Value = Workbooks.Application.Sheets(i).Cells(132, 4) Workbooks.Application.Sheets(Workbooks.Application.Sheets.Count).Cells(i, 2).Value = Workbooks.Application.Sheets(i).Cells(132, 5) Next i End Sub
Agrupar celdas de diferentes hojas en una única hoja de excel (II)
Uploaded on
2/12/2010 3:46:12 AM
0 comments
Programming Language:
Macro de excel: visualbasic
excel
macro
Sub Macro1() ' Copia el contenido de la celda (1,1) es decir la A1 de todas las hojas en una misma fila (A1, A2, A3..) de la última hoja (o la hoja actual en la que estemos), generando así un listado de valores Dim Numerohojas As Integer For i = 1 To Workbooks.Application.Sheets.Count - 1 Workbooks.Application.Sheets(Workbooks.Application.Sheets.Count).Cells(i, 1).Value = Workbooks.Application.Sheets(i).Cells(1, 1) Next i End Sub
Agrupar celdas de diferentes hojas en una única hoja de excel (I)
Uploaded on
2/12/2010 3:43:53 AM
0 comments
Programming Language:
Macro de excel: visualbasic
excel
macro
1
Help
Help by email
What is Naslu?
|
About Naslu
|
Contact
|
Terms of Use
|
Downloads
|
Webprogramacion.com
|
Blog
|
Top
Links
Select language:
Español
|
English
© 2009 naslu.com