Anónimo
Macro usando ciclo For
Hola. Estoy haciendo una macro que en la Columna A, me busque la primera celda vacía. Y una vez que la encuentre, me cree un rango de "A3" a "A" y en cada una de las celdas me presione la secuencia "F2" + "Enter"
El código que tengo es el siguiente:
Sub FDosEnter()
Dim Rango As Range, i As Integer
Set Rango = Range("a:a").Find("")
i = Rango.Row
Numero = i - 1
For j = 3 To Numero
ActiveWorkbook.Sheets("DB").Cells(j, 1).Select
SendKeys "{F2}", True
SendKeys "{ENTER}",
TrueActiveCell.Activate
Next j
End Sub
La Macro no me corre bien, alguien me podría orientar un poco?
Gracias, saludos
El código que tengo es el siguiente:
Sub FDosEnter()
Dim Rango As Range, i As Integer
Set Rango = Range("a:a").Find("")
i = Rango.Row
Numero = i - 1
For j = 3 To Numero
ActiveWorkbook.Sheets("DB").Cells(j, 1).Select
SendKeys "{F2}", True
SendKeys "{ENTER}",
TrueActiveCell.Activate
Next j
End Sub
La Macro no me corre bien, alguien me podría orientar un poco?
Gracias, saludos
1 respuesta
Respuesta de Luis Mondelo
1
No estoy seguro de haberte entendido bien, pero si quieres una secuencia de pulsar F2 y después ENTER, yo lo pondría así:
SendKeys "{F2}" + "{ENTER}"
SI fuera así, finaliza y puntúa
SendKeys "{F2}" + "{ENTER}"
SI fuera así, finaliza y puntúa
Ok, corriendo la macro, sale todo muy bien. Muchas Gracias por el tip. Pero ahora tengo un problema. en un formulario, quiero que el botón "close" llame a esa macro para ejecutarla y luego cierre el formulario. el código del botón es el siguiente:
Private Sub CBCerrar_Click()
Call FDosEnter
Unload Me
End Sub
Pero me manda un error: Method 'Find' of object 'Range' failed.
Alguna sugerencia? Agradezco mucho la ayuda!
Private Sub CBCerrar_Click()
Call FDosEnter
Unload Me
End Sub
Pero me manda un error: Method 'Find' of object 'Range' failed.
Alguna sugerencia? Agradezco mucho la ayuda!
Lo siento amigo, no tengo ninguna sugerencia al respecto.