OTRA DUDA
Publicado por Calima (16 intervenciones) el 23/08/2007 16:58:03
Tengo un código hecho para rescatar datos de muchas hojas en una "resumen", me funciona y tiene varios condicionantes, pero ahora intento crear un libro resumen y que la macro me "funcione igual", pero me da error, he probado a grabar la macro para ver el posible código, pero ni por esas.
EJEMPLO:
LIBRO 1 (libro matriz).
Hoja resumen: Código
For i = 1 To Sheets.Count ' Recorre las hojas
For x = 6 To 6 ' Recorre la columna A desde la celda 6 hasta la 6
For Y = 3 To 15 ' Recorre la fila X desde B hasta
If Sheets(i).Cells(x, 1) = "SABIA" And Sheets(i).Cells(1, Y) = "MES" Then
suma = suma + Sheets(i).Cells(3, Y).Value
End If
Next Y
Next x
Next i
lo que prentedo en es que el libro RESUMEN:
AQUI IRIA LA PARTE DE SEÑALAR EL LIBRO 1
For i = 1 To Sheets.Count ' Recorre las hojas
For x = 6 To 6 ' Recorre la columna A desde la celda 6 hasta la 6
For Y = 3 To 15 ' Recorre la fila X desde B hasta
If Sheets(i).Cells(x, 1) = "SABIA" And Sheets(i).Cells(1, Y) = "TOTAL" Then
suma = suma + Sheets(i).Cells(3, Y).Value
End If
Next Y
Next x
Next i
EJEMPLO:
LIBRO 1 (libro matriz).
Hoja resumen: Código
For i = 1 To Sheets.Count ' Recorre las hojas
For x = 6 To 6 ' Recorre la columna A desde la celda 6 hasta la 6
For Y = 3 To 15 ' Recorre la fila X desde B hasta
If Sheets(i).Cells(x, 1) = "SABIA" And Sheets(i).Cells(1, Y) = "MES" Then
suma = suma + Sheets(i).Cells(3, Y).Value
End If
Next Y
Next x
Next i
lo que prentedo en es que el libro RESUMEN:
AQUI IRIA LA PARTE DE SEÑALAR EL LIBRO 1
For i = 1 To Sheets.Count ' Recorre las hojas
For x = 6 To 6 ' Recorre la columna A desde la celda 6 hasta la 6
For Y = 3 To 15 ' Recorre la fila X desde B hasta
If Sheets(i).Cells(x, 1) = "SABIA" And Sheets(i).Cells(1, Y) = "TOTAL" Then
suma = suma + Sheets(i).Cells(3, Y).Value
End If
Next Y
Next x
Next i
Valora esta pregunta


0