Dante Amor

Te recomiendo utilizar el calendario de outlook. Esta herramienta está creada para llevar la agenda personas o tareas. En excel tendrías que crear prácticamente TODO.

Supongamos que tengo datos de a1 a a10 Si los datos están en la misma hoja2, entonces utiliza la siguiente: Sub CopiarCeldas_2() With Sheets("Hoja2") .Cells(1, .UsedRange.Columns.Count + 1).Resize(10, 1).Value = .Range("A1:A10").Value End With End...

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

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:

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

Y qué pasa si solamente pones en la celda E8 la fórmula: =B1&B2&B3

Prueba así: Sub RangoImpresion() Sheets("FACTURA").Range("B2:AL65").Select End Sub Sub Imprimir_direcFact_1() Call RangoImpresion ActiveSheet.PageSetup.PrintArea = Selection.Address With ActiveSheet.PageSetup .PrintArea = "" .Orientation = xlPortrait...

Funciona para mí Incluso puse el valor "N/A" y también lo hace para los textbox que están dentro del Frame6 Private Sub OptionButton33_Click() Dim CtrT As Control If OptionButton33 = True Then For Each CtrT In Frame6.Controls If TypeOf CtrT Is...

Puedes explicarlo con una imagen de lo que tienes. Y otra imagen con el resultado.