Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/05/2011, 03:37
paz_sara
 
Fecha de Ingreso: marzo-2011
Mensajes: 16
Antigüedad: 13 años, 1 mes
Puntos: 0
no encuentro el error en mi macro

Hola, buenos días. He realizado una macro para calcular una matriz inversa en excel. Es el siguiente:

Sub inversa(total As Integer) 'total es la variable que da el nº de columnas y filas

Dim col As String

Sheets("(i-All)-1").Select
Range("A1").Select
ActiveCell.Offset(0, total - 1).Select 'me coloco en la ultima columna para ver como se llama
If total > 26 Then
col = Left(ActiveCell.Address(False, False), 2)
Else
col = Left(ActiveCell.Address(False, False), 1)
End If
Range("A1:" & col & total).Formula = "{=MINVERSA('A LL'!A" & total * 2 + 3 & ":" & col & total * 3 + 2 & ")}"

End Sub

Cuando lo ejecuto en la página A Ll me crea la matriz pero en cada una de las celdas pone la fórmuñla en vez del valor.
¿Puede alguien echarme una mano?
Gracias