James Bond

Prueba con esta macro Sub transponer() Set origen = Worksheets("hoja1").Range("a1").CurrentRegion Set hd = Worksheets("hoja2") With origen f = .Rows.Count: c = .Columns.Count For i = 1 To f If i = 1 Then Set destino = hd.Range("a1").Resize(c, 1) If i...

Te propongo esta macro copia de una manera más eficiente Sub busca_datos() nombre = ActiveWorkbook.Name Set destino = Workbooks(nombre).Sheets(1).Range("a1").CurrentRegion With destino f = .Rows.Count: c = .Columns.Count Set destino = .Cells(2,...

Sin usar macros 1.- Seleccionas y ordenas por orden y luego por concepto 2.- Seleccionas menu datos, quitar duplicados, luego anular selección y seleccionas concepto, das aceptar y es todo te quedan solo las ordenes con numero mayot

No me queda del todo claro lo que pides así que te envío un ejemplo de lo que creo que es: primero crea una lista así y corres la macro que se encuentra al final de la segunda imagen este sera el resultado de correr la macro y esta es la macro Sub...

Este es un ejemplo de como funciona la macro y esta es la macro Sub ejecuta() maximos totalizar End Sub Sub maximos() Set funcion = WorksheetFunction Set datos = Range("a1").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count .Sort _...

Prueba con esta macro Sub buscar() With Range("a1") filas = .CurrentRegion.Rows.Count For i = 1 To filas If i = 1 Then Set busca = .CurrentRegion.Find("bajado") If i > 1 Then Set busca = .CurrentRegion.FindNext(busca) Range(busca.Address).Offset(0,...

No me queda claro como son tus tablas así que te paso este ejemplo a lo creo es lo que buscas las imágenes son de un antes y un después de ejecutar la macro que se encuentra abajo de estas imágenes. Sub cortar_datos() Set incidencias =...

es esto lo que buscas? Si es así esta es la macro solo cambia el a2 por la celda donde comiencen tus datos. Dim unicos As New Collection Set datos = Range("a2").CurrentRegion With datos f = .Rows.Count: c = .Columns.Count x = 1 For i = 1 To f...

En la línea que te marca error, la macro se detendrá y te la mostrara en amarillo, sobre esa línea escribe on error resume next y abajo de esa misma línea on error goto 0, la primera ignorara el error y continuara con la macro, la segunda pone el...

Arma la tabla y lo fórmula así