James Bond

Solo agrega la línea que marcada en azul en la imagen a tu macro, si das cancelar Excel le dará un valor falso a la variable strarchivo y mediante un IF finaliza el programa o puedes poner goto siguiente en vez de END y antes del end sub pones...

Prueba esta fórmula, losresultados están en la imagen =+SI(PROMEDIO(D3:D5)>7.6, REDONDEAR(PROMEDIO(D3:D5), 0), SI(PROMEDIO(D3:D5)<7.6, REDONDEAR. MENOS(PROMEDIO(D3:D5), 0), SI(PROMEDIO(D3:D5)<7, REDOND.MULT(PROMEDIO(D3:D5), 5), 0)))

Este es el resultado de la macro y esta es la macro Sub copiar_datos_transponer() Dim funcion As WorksheetFunction Set funcion = WorksheetFunction Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") h2.Cells.Clear Set datos =...

Prueba con esta macro Sub copiar_datos() Set h1 = Worksheets("resultados") Set h2 = Worksheets("analizar") h1.Range("m1").CurrentRegion.Columns(1).Copy h2.Range("a1").PasteSpecial Set lista = h2.Range("a1").CurrentRegion With lista Range("b1").Value...

En la imagen vez el resultado de la macro, la macro ordena de manera descendente los datos y colorea los 10 mayores Esta es la macro Private Sub CommandButton1_Click() Set DATOS = Range("A1").CurrentRegion With DATOS .Sort...

Si no tienes datos antes de las columna E esta es la macro que ocupas, en la imagen ves es resultado de la macro, cada que insertes una fila y corras la macro esta tomara la ultima columna a la derecha y la restara de la columna E esta es la macro,...

Usa este evento Private Sub Label1_Click() insertar instrucciones de la macro o nombre de la macro End Sub

Ya se lo que quieres, solo me queda una duda están en varias columnas estos números o en una sola es decir están en la columna A o están distribuidos en las columnas A, B, C..., ser resuelve a través de una simulación de montecarlo

Prueba esta macro, antes de usarla grabala como archivo XLSM Private Sub Workbook_BeforeClose(Cancel As Boolean) cerrar = MsgBox("cerrar libro y Excel?", vbYesNo, "aviso") If cerrar = 7 Then Cancel = True Else ActiveWorkbook.Save Application.Quit End...

Prueba esta macro, solo crea en la página un botón comando para enviar lo que captures a la hoja2 Sub copiar() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") Set datos = h1.Range("a1").Resize(1, 20) Set destino =...