Home      Search

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 Programming Language: Macro de excel: visualbasic By: rubensi See more code snippets of rubensi excel  macro
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 Programming Language: Macro de excel: visualbasic By: rubensi See more code snippets of rubensi excel  macro
1