James Bond

James Bond

Si de mis mayores gustos, mis disgustos han nacido, gustos al cielo le pido aunque me cuesten disgustos
 325K puntos  Monterrey, México @eusebiosuarez desde - visto
Preguntar

Respuestas

Respuesta en y en 3 temas más a

Ejecutar datos repetidos mediante mensaje o alerta

Este es el resultado de la macroy esta es la macro Sub validar_nombre() nombre = InputBox("introduce nombre") cuenta = WorksheetFunction.CountIf(Range("a:a"), nombre) If cuenta >= 1 Then MsgBox ("ya existe este nombre"), vbInformation, "AVISO" End Sub

Como extraer la antepenúltima palabra de una celda en Excel?

Por fórmula directa es bastante complicado, por fórmula personalizada en VBA es bastante fácil, la fórmula diferencia de si el nombre esta compuesto de 3 o 4 palabras.y esta es la fórmula personalizada que ocupas solo pégala en un modulo VBA y la...
Respuesta en y en 2 temas más a

¿Cuál el la fórmula del siguiente compuesto?

Yoduro dibasico de bismuto= Bi(OH)2I
Respuesta en y en 2 temas más a

Buscar una letra y sumar todas las encontradas

usa esta formula sin importar la posicion de la J dentro del texto la cuenta =+CONTAR.SI(C2:C11,"*j*"), los * son comodines que le indican que busque entre el principio y final de la palabra
Respuesta en y en 1 temas más a

Seleccionar rango de celdas en un macro para sacar un promedio especifico

Prueba con esta macro, solo corre la macro, señala con el mouse el rango que quieres promediar y solo el resultado te lo colocara en la celda F5 Sub escoge_rango() rango = Application.InputBox(prompt:="selecciona el rango a promediar", Type:=8)...
Respuesta en y en 1 temas más a

Esconder filas excel según valor

Necesitas primero desproteger la macro, ocultar las celdas y proteger de nuevo la macro y esto se hace así Sub proteger() With Hoja1 .Unprotect Password:="12345" Union(Range("a29:a30"), Range("a40")).EntireRow.Hidden = Range("m19") = 0 .Protect...
Respuesta en y en 1 temas más a

Macro para separar texto con condición y que lo ponga por debajo de la celda

En la imagen veras el resultado de la macro y esta es la macro Sub separar_numeros() Set DATOS = Range("a1").CurrentRegion With DATOS F = .Rows.Count MATRIZ = DATOS X = 1 For I = 1 To F INFO = MATRIZ(I, 1) SEPARA = Split(INFO, "|") For J = 0 To...
Respuesta en y en 1 temas más a

Agregar numeración no continua en excel con vba

En la imagen puedes ver el resultado, en un combobox te muestra los instrumentos, seleccionas uno y en automático te carga el siguiente consecutivo en el ejemplo cargo el 3749 y al dar click en el botón lo pasa a la hoja y esta es la macro Private...
Respuesta en y en 2 temas más a

Ingresar los valores de celdas que poseen funciones en un arreglo

Ya vi tu información y no entiendo el problema mira la imagen, colocar poco más de 20000 fórmulas en un rango de 3347 filas por 6 columnas toma 14 segundos y la mayor parte de ese tiempo es por que el Excel hace su propio proceso de calculo, una...
Respuesta en a

El segundo y tercer texto más repetido

Ve el resultado de la imagen y haz lo siguiente 1.- Selecciona tu informacion y la copias en la celda c1. 2.- Te vas al menu datos y luego seleccionas la informacion de la columna c, selccionas datos, luego quitar duplicados y das aceptar con la...