James Bond

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

Habría que ver tu código para darte la solución exacta, lo que puedes hacer es agregar esta instrucción sheets("menu").select al final de la macro

Prueba con esta macro, copia columnas discontinuas de n filas, si agregas o quitas filas la macro en automático se ajusta a lo que quede. Sub copiar_datos() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("informe") filas =...

Usando la tabla de la duda anterior este es el resultado de la macro y esta es la macro Sub contar_maletas_diarias() Dim funcion As WorksheetFunction Set h2 = Worksheets("hoja2") Set datos = Range("alldata").CurrentRegion Set destino =...