¿Cómo puedo asignar referencias absolutas a muchas?
Tengo varias valores en las celdas que quiero volver absolutas, pero quiero hacerlo a todos en un solo paso porque son 250 celdas y no una a una con la tecla F4.
Por ejemplo:
=A1
=B1
...
=HI1
convertir todas a =$a$1, =$b$1..... =$hi$1.... Gracias !!!
Por ejemplo:
=A1
=B1
...
=HI1
convertir todas a =$a$1, =$b$1..... =$hi$1.... Gracias !!!
1 respuesta
Respuesta de calvuch
1
Prueba esto
Sub ab()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 250
Cells(2, i).Formula = "=" & Cells(1, i).Address
DoEvents
Next
Application.ScreenUpdating = True
MsgBox "Terminado"
End Sub
esta macro pone en fila 2 las formulas =$A$1 =$B$1 =$C$1
Etc
Sub ab()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 250
Cells(2, i).Formula = "=" & Cells(1, i).Address
DoEvents
Next
Application.ScreenUpdating = True
MsgBox "Terminado"
End Sub
esta macro pone en fila 2 las formulas =$A$1 =$B$1 =$C$1
Etc
