Abraham Valencia

A diferencia de los controles ActiveX, no todos los Controles de Formulario tienen, en las hojas, la propiedad "Mover y cambiar tamaño con celdas" lo que causa el efecto de "apilamiento" cuando ocultas algunas filas. Hay dos soluciones que se me...

Manteniendo tu misma idea: Sub borrarcell () Dim r As Range, c As Range Set r = Range("D7:O71") For Each c In r If c.Value > 10 Then c.EntireRow.Delete End If Next c End Sub Comentas Abraham Valencia

Una forma, muy simple, sería usar el evento "Change" de alguna hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Application.Intersect(Target, [A1:A30]) Is Nothing Then Exit Sub Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name =...

Si lo que quieres es que se abra el cuadro de diálogo de "Guardar Como" debes usar esto: Aapplication. Dialogs(xlDialogSaveAs).Show Si lo que quieres es guardar directamente: ActiveWorkbook. SaveAs ThisWorkbook. Path & "\" &...

Dicha función solo está habilitada para aquellas personas suscritas (alguna versión de pago) a Office 365. No es posible habilitarla sin dicha suscripción. Abraham Valencia

Por lo que entiendo tienes un "ListBox" que tiene varias columnas y quieres que esas columnas se ordenen de menor a mayor basados en las fechas que tienes en la columna 8 del "ListBox" ¿cierto? De ser así lo que te recomiendo es que primero ordenes...

Si tu intención es hacer consultas/importar datos desde archivos *.dbf, puedes hacerlo con: "Datos" - "Obtener Datos Externos" - "De otras fuentes" - "Desde Microsoft Query" y en "origen..." eliges/seleccionas la que necesitas y la o las tablas *.dbf...

Prueba algo así: Range("E25"). Validation.Add xlValidateList, , , Formula1:="Open, Closed" Comentas Abraham Valencia

Si mal no entendí, quieres que en "H1" se sume toda la columna pero en horas, si es eso, solo debes colocar en dicha celda el siguiente formato personalizado: [h]:mm Comentas Abraham Valencia

No das detalle de cómo ingresas la fecha en el TextBox ni como lo envías a Excel ¿a una celda? Pero, en miras a ir ayudándote mientas quizá das más detalles, prueba algo así: Range("A1") = CDate(TextBox1) Comentas Abraham Valencia