James Bond

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...

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

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 =...

La instrucción que buscas es esta .Columns(col).Formula = " "= 1+SUMPRODUCT((" & rango & "=" & Celda & ")*((" & rango1 & "+row(" & rango1 & ")/10000)>" & celda1 & "+row(" & celda1 & ")/10000))" .Columns(col).value=.Columns(col).value

Por fórmula no se pueden colorear celdas para eso ocupas una macro o una macro eventos, lo más cercano que se puede hacer con fórmulas es lo siguiente

Usa una plantilla así, la fórmula que se usa en al columna eta en la celda U7, la la fórmula para restar en la columna POR esta en la columna V, cada que pongas una X en el medicamento este lo descontara de la existencia inicial

Solo como comentario las protecciones que te dan pueden con un poco de conocimiento o consultando en la internet ser vulneradas y es bastante simple hacerlo, no digo que no uses estas recomendaciones solo te digo que no son 100% seguras y lo se...

La instrucción que ocupas es an ambos casos la instrucción currentregion busca todas las columnas con datos hasta encontrar una vacía y hacia abajo hasta encontrar la ultima fila con datos sub selecciona_rango() range("a1").currentregion.select end...

Un conjunto de celdas en concreto puede ser de A1 a AAA1000000, tienes que ser más especifico por ejemplo: Quiero que cuando A1 tenga la palabra casa entonces se copie de la hoja1 el rango a1 hasta e4 y se pegue en la hoja2 a partir de la celda C2 y...

Esta macro cambia los últimos 2 puntos, esta diseñada para procesar la información empezando en la celda A1 si tu información esta en otra celda solo cambia la primera línea Sub cambia_simbolos() Set datos = Range("a1").CurrentRegion With datos filas...