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 2 temas más a

Como poner una fórmula en VBA

Prueba esto Z = "=if(i14<>" & """""" & "," & y = "if(K14 =" & """ETOT""" & "," & """ENTREGADO""" & "," & "if(K14 =" & """CANC""" & "," & """CANCELADO""" & ",HOY() - I14)" & ")" & "," & """""" & ")" Range("b2").Formula = Z
Respuesta en y en 1 temas más a

Consulta:como puedo sacar los 20 mejores valores consecutivos de una lista de 150 aproximadamente.Los datos son números .

Lo más fácil es subir una pantalla de datos con tu información (puede ser inventada) y el resultado que esperas conseguir vi tu post anterior y aun no me queda claro que es lo que quieres.

Calcular estadísticos al seleccionar un dato desde un combobox

Este es el resultado de la macro y esta es la macro, la carga de datos se hace a través de un rowsource y maneja instrucciones name para guardar parte de la información dentro de la hoja y poder usarla en otras partes del programa a manera de matriz...
Respuesta en y en 2 temas más a

Macro que bloque acceso a un libro de Excel

Proteger un libro de la manera que propones no te sirve basta pulsar dos botones al momento de abrir el archivo para impedir que se ejecute la macro de protección y ya una vez adentro anulas la protección y si quiere proteger el código VBA con...
Respuesta en y en 2 temas más a

Tengo un botton con información .. Quiero agregarle a ese botton un código que me calcule la fecha de vencimiento de 30 días

La instrucción que ocupas para tu botón es esta Range("h8") = DateAdd("d", Range("h6"), 30)
Respuesta en y en 1 temas más a

¿Cómo darle un formato condicional a una fila dentro de una tabla?

Prueba con Sub buscaycolorea() cuenta = WorksheetFunction.CountIf(Range("b6:b200"), "compras") For i = 1 To cuenta If i = 1 Then Set busca = Range("b6:b200").Find("compras") If i > 1 Then Set busca = Range("b6:b200").FindNext(busca)...
Respuesta en y en 1 temas más a

Cambios en múltiples hojas de cálculo.

Prueba con esta macro, va a recorrer todas las hojas y hará los reemplazos que solicitas. Sub reemplazar() For Each hoja In Worksheets With Sheets(hoja.Name) .Range("b9:m39").Replace what:="PV", replacement:="V" .Range("c53").Replace what:=9,...

¿Como puedo saber el nombre de la tabla excel?

En el ejemplo que pones el nombre de la tabla es este TableName:="Tabla dinámica3", Cada que copias la tabla esta en automático cambia el nombre por ejemplo TableName:="Tabla dinámica4", TableName:="Tabla dinámica5", y así sucesivamente, no se que...

¿Cómo re nombro un gráfico dinámico?

Usa esta instrucción, solo cambia hola por el nombre que quieras reemplazar Sub cambia() ActiveSheet.ChartObjects("hola").Name = "Gráfico_Em" End Sub
Respuesta en a

Cuenta celdas iguales hacia la derecha

Este es el resultado de la macro y esta es la macro Sub contar_repetidos_seguidos() Set datos = Range("c2").CurrentRegion With datos With .Columns(0) .Formula = "=count(" & datos.Rows(1).Address(0, 0) & ")" .Value = .Value End With col =...