Luis Mondelo

Esta es tu solución: Posiciónate en la primera celda de esa columna (en la D2) y después ejecuta esta macro Sub negrita() Do While ActiveCell.Value <> "" ActiveCell.Characters(Start:=1, Length:=2).Font.Bold = True ActiveCell.Offset(1, 0).Select Loop...

Para resolver tu problema puedes recurrir a construir una tabla dinámica sin necesidad de programar una macro. Además la tabla dinámica te permite hacer multitud de informes diferencias así como diferentes cálculos. ¿Necesitas qué te muestre como...

Dime tu mail y te mando un ejemplo construido y funcionando.

Colocando esta macro en el objeto hoja (no en un módulo) en cuestión te mostrará las hojas automáticamente cuando abandones la hoja. Private Sub Worksheet_Deactivate() Rows("4:162").EntireRow.Hidden = false End Sub Recuerda finalizar y puntuar

Necesitas copiar el siguiente evento en el objeto hoja que quieras que se imprima. Recuerda que es un evento por lo que no va en un módulo. Mediante esta macro, cuando modifiques la celda A35 se imprimirá la hoja activa automáticamente. Private Sub...

Creo que esto te ayudará a evaluar cada mes, sigue mis pasos en este ejemplo: En la celda A1 ponemos la fecha de hoy con la fórmula: =hoy() En la celda A2 ponemos esta fórmula: =FECHA(AÑO(J12);MES(J12);1) En la celda B2 ponemos esta fórmula:...

Te propongo un ejemplo y luego los adaptas a tus datos: La anchura de mi tabla va desde A hasta H y la columna de la fecha está en la columna F Esta macro te solicita que introduzcas una fecha mediante un input y después de aplicar el filtro a la...

Esta es la solución: marca con el ratón todos los datos de esa cuarta columna y ejecuta esta macro: Sub quitarceros() For Each celda In Selection If celda.Value = 0 Then celda.ClearContents Next End Sub recuerda finalizar y puntuar

Sería algo así: Private Sub OptionButton1_Click() If OptionButton1.Value = True Then CommandButton4.Visible = True else CommandButton4.Visible = false End If End Sub

Esta es la solución: Primero marca con el ratón la zona que quieres evaluar y después ejecuta esta macro: Sub lmd() For Each celda In Selection If IsNumeric(celda) Then celda.Value = "" End If Next End Sub recuerda finalizar y puntuar