Victor Perdomo

Dale click derecho en la pestaña de la hoja->ver código He inserta esto: Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case Is = "$D$9" Range("$B$16").Select Case Is = "$B$16" Range("$C$16").Select Case Is = "$C$16"...

¿Pero estas hojas llevan un consecutivo o un nombre en particular?

Selecciona la celda donde quieras que aparezca el combo box, ve a datos validación, en permitir selecciona lista y en origen pon =medit. Ahora solo pon en la celda A3 que sea igual al valor de la celda de la lista.

¿Tienes fórmulas en esta plantilla? ¿La tienes protegida? ¿Tienes una carpeta donde guardas estos informes? O los guardaras en una carpeta en la misma ubicación de la plantilla.

Si te sirve esta fórmula, ponla en g17 =BUSCARV(G16;M:N;2;0)

Tienes dos errores, el primero imputbox es inputbox, el segundo no puedes poner ñ como atajo es por cuestiones de idioma. Sub Busca_Hoja() On Error Resume Next Sheets(Application.InputBox("", "Ingresa Hoja")).Activate End Sub

Prueba este código, me toco adicionarle una función para que los meses salieran en español y no en ingles, como es por defecto. Sub crear() Set fso = CreateObject("Scripting.FileSystemObject") ruta = "C:\" w = ruta & mes(Month(Date)) If Not...

Para insertar más de una linea debes de usar vbNewLine que es un salto de linea y concatenarlo con el operador & con nuestro texto ejemplo: "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This...

Sub Mes() Sheets(1).Select If Range("b3") <> 0 Then With Range("b3").CurrentRegion .Columns(5) = Evaluate(.Columns(1).Address).Value .Columns(5).NumberFormat = "mmm-yy" End With End If End Sub En la parte donde dice Evaluate(. Columns(1). Address)....

Cuando quiero graficar media, max o min, creo una nueva columna y pongo por ejemplo: =SUBTOTALES(4;$A$1:$A$201) max =SUBTOTALES(5;$A$1:$A$201) min Donde $A$1:$A$201 es nuestra serie fija de datos, luego tomas esta columna y la gráficas, junto a tu...