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

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

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

Lo mismo, si no valoras las ayudas, no recibirás más ayuda.

Ya te ayudé con una parte, pero si no valoras las respuestas ya no vas a recibir ayuda.

Si tienes la versión 365 de excel, puedes utilizar la siguiente función: Versión en español: =UNIRCADENAS(", ";1;SI(C2:C10=I2;D2:D10;"")) Versión en inglés: =TEXTJOIN(", ";1;IF(C2:C10=I2;D2:D10;"")) Resultado: También te paso el código de una UDF...

Tienes problemas desde la iteración 1, en E4 X4 = (0 + 0 + 15) / 8 X4 = 15 / 8 X4 = 1.87 (2 decimales, porque te pidieron 2 decimales) Y solamente estás considerando 1.8 Deberás realizar nuevamente todas. Siguiendo con las revisiones, existen otras...

En la iteración 3 Tienes x1 = [ (0,1) - 2(-0,97) + 6 ] / 10 Eso es igual a x1 = [ 0,1 + 1,94 + 6 ] / 10 x1 = 8,04 / 10 x1 = 0,80 Entonces tienes que corregir las siguientes iteraciones. [No olvides valorar las ayudas.

"Lo que busco es ya no limpiar las celdas en el rango h3:jd39" Para eso, elimina estas líneas de la macro: Range("H3:JD39").Select Selection. ClearContents "QUE SE APLIQUE SOBRE LOS DOS ULTIMOS REGISTROS DE LA COLUMA B EL ULTIMO Y EL ANTERIOR" Para...

No sé a qué te refieres con "pase a ON", puedes explicarlo. Te paso el código para poner el texto, habilitar el label1 y hacerlo visible. Private Sub UserForm_Activate() If Range("B2").Interior.Color = vbYellow Then With Label1 .Caption = "BAJO...