Naslu: Code Snippets from rubensi

Home Search

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

Help	Help by email

Select language: Español | English