Macros F2 enter solicitando un rango
Estimado estoy utilizando una macros que publicaste:
Sub DarEnter() 'Por.Dante Amor For Each c In Range("C3:C11") c.Select SendKeys "{F2}", True SendKeys "{ENTER}", True DoEvents Next End Sub
Pero me gustaría saber qué debo hacer antes para que me solicite el rango primero al momento de ejecutar la macros.
Se agradece que compartas tus conocimientos.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada.
Pon la macro en un botón y la ejecutas desde el botón.
Sub DarEnter()
'Por.Dante Amor
On Error Resume Next
Set rango = Application.InputBox("Selecciona el rango a comparar", _
Default:=Selection.Address, Type:=8)
If rango Is Nothing Then Exit Sub
On Error GoTo 0
'
For Each c In rango
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
DoEvents
Next
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
