Dante Amor

Bueno la mitad de 25 no es 13, la mitad de 25 es 12.5 Si quieres saber el % de lo que se han llevado entones la fórmula es: =L3*100/H3 El resultado es 52 Si lo quieres en porcentaje: =L3/H3 ... Y aplica en N3 el formato de porcentaje. Ahora si...

Ho la Rafal: Desafortunadamente estos tags que estás poniendo no funcionan en este foro para resaltar el texto: [b]Frm_Inicio.Show[/b] Para eso, selecciona el texto y presiona el botón "Negrita", lo encuentras en la barra de iconos: Frm_Inicio.Show...

Ayudaría si pones lo siguiente: 1. El código para pasar los datos de la hoja al formulario. 2. Cuál color corresponde a cada optionbutton Intenta adaptar lo siguiente: Private Sub CommandButton2_Click() 'traer datos de la hoja al formulario Dim fila...

Pon el siguiente código en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then If Target.CountLarge > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If...

Supongo que ya tienes el evento change para el combobox1, cuando cambia tu combobox1, en automático cambia tu textbox3. "El proceso seria que el combobox1 vaya cambiando de 1 a 2, a 3, a 4 etc. Hasta llegar a la cantidad que indica "A1"" Utiliza lo...

[La pastilla de emergencia evitará que el óvulo sea fecundado, es decir, su función principal es evitar el embarazo. [Pero para saber si evitó el embarazo, es con una prueba de embarazo. Después de 25 días de la relación puedes hacerte la prueba de...

De esa manera no es posible un embarazo. [Para que exista riesgo de embarazo debe haber penetración del pene en la vagina, sin protección y que la mujer se encuentre en su periodo fértil. El retraso es por algún desajuste hormonal, tal vez por...

Prueba con lo siguiente: .List(.ListCount - 1, 4) = Format(Hoja2.Cells(i, 10), "$#,##0.00")

Te paso la macro actualizada: Sub Enviar_Correos() 'Act.Por Dante Amor Dim i As Long, c As Long Dim Email As Object Dim archivo As String For i = 7 To Range("A" & Rows.Count).End(3).Row Set Email = CreateObject("Outlook.Application").CreateItem(0) '...

En la otra pestaña pon la = y la celda que necesitas. Por ejemplo, en la hoja1 en la celda C3 tienes la fórmula =Contar.SI() En la hoja2 en la celda E4 pon lo siguiente: =Hoja1!C3 Ajusta el nombre de la hoja y de la celda.