Tema: Codigo en VB q sustituya esta formula d Exel
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 13/07/2006, 00:35
Avatar de 3pies
3pies
Colaborador
  
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 5 meses
Puntos: 144
¿Esto no te vale?:
Código: 
ActiveCell.FormulaR1C1 = "=IF(R[6896]C[8]>6,SUM('Tablas DxC'!R3C2:R52C2*IF('Tablas DxC'!R3C1:R52C1=R[6896]C[13],1,0)),IF(R[6896]C[8]<6,SUM('Tablas DxC'!R3C7:R52C7*IF('Tablas DxC'!R3C1:R52C1=R[6896]C[13],1,0))))"