víctor ibarz

Es por el tipo de gráfico que estás utilizando, si es de barras o líneas por ejemplo, no tienes habilitada dicha opción, que sí tienes en los de tipo "Burbujas" o dispersión. En el siguiente enlace tienes un poco de explicación oficial:...

Esto te puede servir: Public ultima As Integer Sub separarl() Dim hresumen As Worksheet Dim hmagna As Worksheet Dim hpremium As Worksheet Dim hdiesel As Worksheet Dim cass As Worksheet Set hresumen = Sheets("Resumen") Set hmagna = Sheets("Magna") Set...

Con fórmula matricial puede ser así: =MAX(SI(D4:D9=C12;SI(C4:C9=C11;G4:G9;"");"")) De este modo te busca el máximo que cumpla las dos condiciones, incluso si tienes varias combinaciones de jose/squat, el buscarv te devuelve la primera coincidencia...

Podrías probar algo así: Private Sub Buscar_Click() Dim rst AS DAO.Recordset x = InputBox("Ingrese Nombre", "BUSQUEDA POR NOMBRE") x=UCase(x) Set rst = Adodc1.RecordSetClone rst.MoveFirst rst.FindFirst "NombredeCampo = """ & x & """" If Not rst.EOF...

Sería algo así: Sub CrearCarpeta() ruta = "C:\OUT\" NumOut = Range("A2") DescripcionOut = Range("A3") Carpeta = "OUT_" & NumOut & "-" & Format(Date, "yyyy_mm_dd") & "-" & DescripcionOut If Len(Dir(ruta & Carpeta, vbDirectory)) = 0 Then ruta = ruta &...

Debería funcionar. Puedes enseñar todo el código, ¿por favor? (Aquí solamente estás pegando, falta seleccionar la celda del comentario, copiar, moverte donde quieres pegar...

Puedes jugar con el evento "SelectionChange", algo así:

Este complemento me ha salvado la vida en repetidas ocasiones y realiza lo que solicitas, es fácil de utilizar y gratuito:

Para esconder todas las hojas excepto la que indicas lo puedes hacer así: Dim h As Worksheet For Each h In Worksheets If h.Name <> "Inicio" Then h.Visible = False End If Next Como ves se juega con la propiedad ".visible" En el código de cada botón...

Casi lo tenías. Sub PINTARfilasAMARILLO() Range("AC6").Select While ActiveCell <> "" If ActiveCell = "VACIO" Then Rows(ActiveCell.Row).Select With Selection.Interior .Color = 65535 End With ActiveCell.Offset(0, 28).Select End If ActiveCell.Offset(1,...