Sustituir formulas de busqueda por Macros en excel

[Lord_Ared]

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