Dante Amor

Prueba la siguiente macro. Antes de ejecutar la macro, debes indicar en dónde empiezan tus datos, en esta línea de la macro: Set celda = Range("A1") 'celda inicial de datos Al final de la macro, se encuentra esta línea, para centrar los datos, si no...

No sé si en la celda quieras guardar Opción 1 310 310 310 Opción 2 310 310 (2) 310 (3) --- Te paso un ejemplo para guardar los datos de la segunda opción. Private Sub CommandButton1_Click() 'botón guardar ' Dim sh As Worksheet Dim conteo As Long Dim...

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.