caranbis

Si no estoy mal sería imposible, ya que estaríamos hablando de una función que depende de sí misma, además de que la macro quedaría como un ciclo infinito después de la primera ejecución.

Dim n As Range Dim m As Range palabra_a_buscar = TextBox1 Application.ScreenUpdating = False 'anula la visualización de los movimientos entre hojas, celdas, etc... Sheets("Hoja1").Select 'hoja donde haces la primera busqueda Set n =...

Estas son las opciones que deben estar activas al momento de proteger la hoja. Seleccionar celdas bloqueadas Seleccionar celdas desbloqueadas Aplicar formato a columnas (para modificar el ancho de las columnas) Aplicar formato a filas (para modificar...

"BuscarH" Busca un valor en la fila superior de una tabla o una matriz de valores y, a continuación, devuelve un valor en la misma columna, de una fila especificada en la tabla o matriz. Use BUSCAR cuando los valores de comparación se encuentren en...

"formatear la celda" "Formato de celda" "Personalizada" (Formato:) [h]:Mm

Tiene que crear un formulario adicional, el cual va a llamar la macro que actualiza la bases de datos, y una macro adicional que llame a dicho formulario. Sub macroINICIAL() UserForm1.Show End Sub 'En el código del formulario colocas esto: Private...

Tal vez te sirva este código que hice para un programa; la macro revisa los CÓDIGOS ingresados en la columna A, y me muestra en B1 los códigos y rangos de códigos disponibles: (Ingresa tu lista en A:A y ejecuta la macro "ingresarnuevo". Public...

Si se puede, para la celda A2, sería: If Cells(2, 1).Font.ColorIndex = 1 Then '(1 = negro) End If

Sub enviarhojadiafelix() ' ' enviarnoconformidad Macro ' Macro grabada el 04/08/2007 por Enfymeca Sheets("Empleados").Activate Range("A1:l31").Select Dim wb As Workbook Dim strdate As String Dim stEmail As String strdate = Format(Range("R2"),...

Es cierto, esa instrucción que estas usando no funciona, lo que se me ocurre que puedes hacer, es simular que se ha presionado la tecla FLECHA-ABAJO, con la siguiente instrucción: Range("A1").Select SendKeys "{DOWN}", True Lo malo de esta...