caranbis

Un procedimiento no oficial (TRUCO) 1. Selecciona toda la columna donde están los datos TEXTO que deseas pasar a número y seleccionas COPIAR. 2. Abre un libro nuevo. 3. Das CLIC DERECHO en A1 y selecciona PEGADO ESPECIAL. 4. En la sección de...

Para obtener el total de registros que hay de un dato determinado (en este caso el valor '0') en un rango específico de celdas, puedes usar la función: CONTAR. SI (Esta funcíon omite las celdas vacías)

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