Macro para operar dos t dinamicas diferentes
Buenas noches expertos, les cuento que necesito favor me ayuden con lo siguiente:
Tengo dos tablas dinamicas, las cuales al extender sus filas , estas llegan a proximadamente a 600, necesito restar de una celda de la tabla dinamica 1 dos celdas de las tabla dinamica 2, grabé la macro para la primera fila, pero necesito añadir a este codigo un comando adicional para que lo haga para las 599 filas restantes, imagino q puede ser un comando FOR pero no tengo idea como hacerlo, además si esta operación resulta negativa quiero indicarle a la macro que cambie el clor de la celda a rojo, me podrían ayudar por favor, a continuacion pego el código mencionado:
Sub disponiblepresupuesto()
'
' disponiblepresupuesto Macro
'
'
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("K9").Select
ActiveCell.FormulaR1C1 = _
"=+GETPIVOTDATA(""VR TOTAL PPTO. INTERNO EJECUCION"",R7C2,""TIPO DE COSTO"",""DIRECTO"")-GETPIVOTDATA(""VR CONTRATADO"",R7C2,""TIPO DE COSTO"",""DIRECTO"")-GETPIVOTDATA(""VR PAGADO"",R7C7,""TIPO DE COSTO"",""DIRECTO"")"
Range("K10").Select
End Sub
Tengo dos tablas dinamicas, las cuales al extender sus filas , estas llegan a proximadamente a 600, necesito restar de una celda de la tabla dinamica 1 dos celdas de las tabla dinamica 2, grabé la macro para la primera fila, pero necesito añadir a este codigo un comando adicional para que lo haga para las 599 filas restantes, imagino q puede ser un comando FOR pero no tengo idea como hacerlo, además si esta operación resulta negativa quiero indicarle a la macro que cambie el clor de la celda a rojo, me podrían ayudar por favor, a continuacion pego el código mencionado:
Sub disponiblepresupuesto()
'
' disponiblepresupuesto Macro
'
'
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 1
Range("K9").Select
ActiveCell.FormulaR1C1 = _
"=+GETPIVOTDATA(""VR TOTAL PPTO. INTERNO EJECUCION"",R7C2,""TIPO DE COSTO"",""DIRECTO"")-GETPIVOTDATA(""VR CONTRATADO"",R7C2,""TIPO DE COSTO"",""DIRECTO"")-GETPIVOTDATA(""VR PAGADO"",R7C7,""TIPO DE COSTO"",""DIRECTO"")"
Range("K10").Select
End Sub
