Jump to content

Antoni

Members
  • Content Count

    10,029
  • Joined

  • Last visited

  • Days Won

    527

Antoni last won the day on October 5

Antoni had the most liked content!

About Antoni

  • Rank
    Antoni
  • Birthday 04/16/1951

Profile information

  • Gender
    Hombre
  • Localización:
    Galicia (UTC+1) Excel 2016

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. He supuesto que las hojas a tratar no empiecen con la palabra Balance en el nombre y tienen la palabra TOTAL en la columna I. También he supuesto que las columnas con fórmulas, J y L, no deben borrarse. Sub BorrarHojas() Dim Hoja As Worksheet, Total As Range Application.ScreenUpdating = False For Each Hoja In Sheets If Not UCase(Hoja.Name) Like "BALANCE*" Then Set Total = Hoja.Columns("I").Find("TOTAL") If Not Total Is Nothing Then If Total.Row > 4 Then Hoja.Range("B4").Resize(Total.Row - 4, 8).ClearContents Hoja.Range("K4").Resize(Total.Row - 4, 1).ClearContents Hoja.Range("M4").Resize(Total.Row - 4, 2).ClearContents End If End If End If Next End Sub
  2. Si no puedes con tu enemigo, alíate con él. ("El arte de la Guerra", Sun Tzu). ☺️ Pon de color blanco el fondo del formulario. Otra cosa, Unload nombre formulario descarga el formulario desde una macro.
  3. Prueba a ver si con esto te apañas. He añadido la columna A con un ID único para poder identificar los registros del listbox. CONSULTA COMBOBOX.xlsm
  4. if Not Trim(TextBox6) = "" Then .Cells(NewRow, 5).AddComment .Cells(NewRow, 5).Comment.Text Text:=TextBox6 End If
  5. ¿Porqué no subes un archivo con las imágenes y el formulario?
  6. ¿Te ha quedado claro? ¿O es que te has olvidado del tema?, Si es así, no estaría mal decirlo. 🙁
  7. 79:40 horas son 79 horas y 40 minutos, al convertir a horas, 40 minutos son 40*100/60, o sea 0,667 horas, que sumadas a las 79 da un total de 79,667 horas, que multiplicadas por 10 da un total de 796,67. ¿Lo entiendes? ❓❓ Nota: No puedes sumar 41:46, 17:01 y 20:53 en una calculadora sin convertir primero los minutos a horas, si lo haces y repites la suma con los resultados de la conversión verás que da un resultado total de 79,6666 horas, redondeando, 79,667 horas
  8. Por error, te he contestado aquí: Continuación Agenda con búsqueda
  9. Has de tener en cuenta, que con independencia del formato que uses, las fechas y horas se tratan como el número de días transcurridos con respecto a un origen. (01/01/1900). Así, hoy, 05/10/2019 es el día 43.743 y mañana será el día 43.744 y la fracción de día entre ambos corresponde a la hora. Ejemplo: 43.743, 25 corresponde a 05/10/2019 a las 06:00:00. Resumiendo, el resultado de cualquier operación entre fechas/horas se expresa en días, por eso hemos de multiplicar por 24 para obtener el total horas. Si quieres que ese total horas se exprese como horas y minutos has de utilizar el formato [h]:mm en la celda, de lo contrario el resultado lo verás como un número. Atención a las fórmulas de la fila 9 del adjunto. Entradas - Salidas.xlsm
  10. No, algún moderador amable se ha apiadado de mi.😂🙂
  11. Cambia el formato de las celdas de la columna E: [h]:mm:ss
  12. Perdona, es que prefiero dirigirme a ti que en general. No es buena idea, tu mismo te cortas posibles respuestas. En cualquier caso, sin el archivo y un ejemplo de lo que te sucede y quieres va a ser muy difícil que alguien pueda ayudarte.
  13. Y además, por lo que se deduce del nombre de las variables, no tiene en cuenta el tipo de dato de la definición de la columna en la tabla de la BD.
  14. Como ya ni siquiera se respeta tener 24 horas abierto un tema, me veo obligado a reabrirlo para poder aportar mi solución. Tema: Agenda con búsqueda de registro Adjunto archivo: No es necesario introducir la letra en la celda C6 Para buscar, introducir un valor en cualquier celda del rango C6:J6 y pulsar Buscar. Al Ingresar un nuevo registro, la agenda se reordena por Nombre. Pulsar Restaurar para visualizar la totalidad de la agenda Teléfonos.xlsm
×
×
  • Create New...

Important Information

Privacy Policy