Dante Amor

Prueba lo siguiente: Private Sub TextBox1_Change() With TextBox1 .ForeColor = &H80000008 'negro End With End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With TextBox1 .ForeColor = &H80000008 'negro ' If .Value = "" Then Exit...

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

No te preocupes, si el pene no tuvo contacto con el interior de la vagina, entonces no existe riesgo de embarazo. Puedes estar tranquila.

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)