Dante Amor

Puedes hacerlo con la misma función Now: FRM_Multiprojek.Label85.Caption = Format(Now, "dddd hh:mm:ss")

Prueba el siguiente código: Sub Sumar() Dim h As Worksheet Dim i As Long Dim x1 As Double, x2 As Double, x3 As Double ' Set h = Sheets("Hoja1") For i = 1 To h.Range("D" & Rows.Count).End(3) With h.Cells(i, "D") If .Font.ColorIndex = 3 Then x1 = x1 +...

No mencionaste cuáles datos van en la fila de encabezados. Te puse un ejemplo para poner los encabezados. .Value = Array("Enc1", "Enc2", "Enc3", "Enc4", "Enc5", "Enc6", "Enc7", "Enc8", "Enc9") Si los datos se toman de otra fuente, intenta adaptarlo,...

Puedes utilizar la función SUMAPRODUCTO, aunque es matricial, no es necesario entrarla con Shift + Control + Enter: =SUMAPRODUCTO((C11:D20<>"")/CONTAR.SI(C11:D20;C11:D20&"")) O puedes seguir utilizando la función SUMA, pero deberás entrarla con las...

Revisa lo siguiente: Userform Listbox reversing date format from database. | MrExcel Message Board Tal vez: Sheets("Data").Range("B" & Bos_Satir).Value = cdate(TextBox1.Text)

Pon el siguiente código en los eventos de la hoja "OLT" Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "OLT" Then sh.Tab.Color = xlAutomatic End If Next End Sub [Comenta cualquier duda. No olvides la valoración.

Revisa la siguiente respuesta: ¿Por qué este código no carga la imagen en mi archivo pero en el original si? Si te ayuda la solución, no olvides la valoración y un voto a la respuesta.

¿En la hoja "inicio" tienes una especie de menú para seleccionar una hoja? Explica un poco más.

Debes poner la hoja de referencia: Private Sub CommandButton1_Click() Dim xRow As Long xRow = [RandBetween(13,39)] TextBox1 = Sheets("C. FILIACIÓN").Cells(xRow, 2) 'nombre de tu hoja End Sub [Avísame cualquier duda, no olvides la valoración.

Puedes explicar cuál o cuáles sin las condiciones. Si cumplen en dónde poner el 0 y en dónde poner el 1 Explica 2 ejemplos de tu imagen.