Dante Amor

Activa la opción Incluir nuevas filas y columnas en la tabla. La encuentras en Opciones de Excel. Revisión. Opciones de Autocorrección. En la pestaña Autoformato mientras escribe. Si tienes la opción activada, al momento de escribir un nuevo dato en...

Prueba la siguiente macro: Sub Control_de_Revisiones_Conteo_Revisiones() 'Por Dante Amor Dim sh As Worksheet, sh1 As Worksheet Dim i As Long, j As Long, k As Long, n As Long Dim c As Range, rng As Range Dim dic1 As Object, dic2 As Object Dim nId As...

Prueba la siguiente macro. Crea un combobox de Control ActiveX Pon el código en los eventos de tu hoja. Cada que cambies el dato en el combobox1, en automático se filtrará la tabla dinámica. Si borras el contenido del combobox1, se mostrarán todos...

Prueba la siguiente: Sub Control_de_Revisiones() 'Por Dante Amor Dim sh As Worksheet, sh1 As Worksheet Dim i As Long, j As Long Dim c As Range ' Set sh1 = Sheets("Control de Revisiones") sh1.Rows("3:" & Rows.Count).ClearContents ' i = 3 For Each sh...

La única diferencia que veo es en esta línea: Tienes: Set ClassLabel = CalendarioLabel Y debe ser: Set ClassLabel = New CalendarioLabel Notas: Para que el calendario se abra, en la celda anterior debe tener un valor. Para cerrar el calendario,...

Otra fórmula a considerar: ="Del "&TEXTO(DIA(C2-DIASEM(C2,2)+1),"00")&TEXTO(C2-DIASEM(C2,2)+7,""" al"" dd ""de"" mmmm ""de"" aaaa") Ej:

Revisa la siguiente función: https://docs.microsoft.com/en-us/office/troubleshoot/excel/calculate-age-before-1-1-1900

Solamente otra manera de buscar el label y de poner el color: Private Sub CommandButton1_Click() Dim ct As Control, dato As String dato = "B10" For Each ct In Controls If TypeOf ct Is MSForms.Label And ct.Caption = dato Then ct.BackColor = &H80FF80...

Debes poner ejemplos para explicar tu solicitud. . Lee lo siguiente: . Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos,...

Te muestro un par de opciones: Utilizando el día que tienes en la columna B: =SI(O(B2={"viernes","sábado","domingo"});2500000;170000) Revisa los resultados en la imagen: Otra opción, con una fórmula más simplificada, pero utilizando la fecha de la...