Dante Amor

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

[Ho la y bienvenido a TodoExpertos! Prueba lo siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Calculate On Error Resume Next With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn) CommandButton1.Top = .Top + 350...

Para pegar valores: Sub prueba1() Range("A1"). Copy Range("B1"). PasteSpecial xlPasteValues End Sub o puedes pasar el valor en lugar de copiar y pegar: Sub prueba2() Range("B1").Value = Range("A1") End Sub Realiza pruebas para que veas el funcionamiento.

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)

Algo pasó en el foro. No están funcionando las puntuaciones, ni los avisos. Es la segunda o tercera vez que sucede en lo que va del año. Supongo que están teniendo problemas con su sistema. Tal vez ya se está terminado la era de todoexpertos :(

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.