Luis Mondelo

Se me ocurre esta idea, sigue mi ejemplo: En la celda A1 ponemos UNI En la celda B1 ponemos 45,5 En la celda C1 ponemos esta fórmula: =SI(Y(A1="kgm";B1=ENTERO(B1));"ERROR";SI(Y(A1="uni";B1<>ENTERO(B1));"ERROR";"OK")) De esta manera en la celda C1 te...

Ejecuta esta macro y me cuentas: Sub secuencia() valor = 1 For Each hoja In Sheets hoja.Select Range("a1").Value = valor valor = valor + 1 Next End Sub

Te mando mi solución. Sigue mi ejemplo: -En la celda I2 tenemos un nombre (en I1 el rótulo "nombre") -En la celda J2 tenemos un número que va desde 1 a 3 (en J1 el rótulo "clasificación") -En la celda K1 ponemos el rótulo "importe hora" -en la celda...

Con esta sentencia lo tienes resuelto: Supongamos que hablamos de la columna 55: nco=cells(65000,55).end(xlup).address supongamos que es la columna H nco = range("H65000").end(xlup).address

Se me ocurre esta solución, sigue mis pasos: En tu archivo crea una pestaña nueva llamada RESUMEN Después ejecuta es macro: Sub buscardatos() fila = 1 valor = InputBox("que dato buscamos???") If valor = "" Then Exit Sub For Each hoja In...

Dime tu mail y te mando un desarrollo a medida

Esta es la solución: posiciónate en el primer valor de esa columna A y ejecuta esta macro: Sub repes() Do While ActiveCell.Value <> "" If Application.WorksheetFunction.CountIf(Columns(1), ActiveCell) > 1 Then ActiveCell.Offset(0, 1).Value =...

Esta es la solución: posiciónate en el primer valor de la columna D y ejecuta esta macro: Sub espacios() Range("d65000").End(xlUp).Offset(1, 0).Value = "final" Do While ActiveCell.Value <> "final" ActiveCell.Value = LTrim(ActiveCell.Value)...

Tu solución es esta, sigue los pasos de mi ejemplo: Tengo la columna A que va desde A2 hasta A1000 con muchos valores que están repetidos.(En A1 tenemos el rótulo "DATOS") Ahora en la celda B2 pongo esta fórmula: =CONTAR.SI($A$2:$A$1000;A2) y luego...

Esta es tu solución. Posiciónate en la primera celda de esa columna y después ejecuta esta macro: Sub guion() Do While ActiveCell.Value <> "" ActiveCell.Value = Format(ActiveCell, "@") ActiveCell.Value = "-" & ActiveCell.Value ActiveCell.Offset(1,...