18/05/2010, 17:57
|
| | | Fecha de Ingreso: mayo-2010
Mensajes: 2
Antigüedad: 14 años, 6 meses Puntos: 0 | |
| Respuesta: Sustituir formulas de busqueda por Macros en excel
Encontre la respuesta a mi pregunta... muchas gracias
Dim Fil, Col As Integer
Dim Cor
Application.ScreenUpdating = False
For Contador = 4 To 5337
Fil = Range("Cordenadas").Cells(Contador, 1).Value
Col = Range("Cordenadas").Cells(Contador, 2).Value
Cor = """" & Fil & ":" & Col & """"
If Fil = 1 Then
Fil = 1
Else
Fil = ((Fil - 1) * 13) + 1
End If
If Col = 1 Then
Col = 1
Else
Col = ((Col - 1) * 3) + 1
End If
Range("Mapa").Cells(Fil, Col).Value = Cor
Next Contador
End Sub |