James Bond

Más sencillo cuentas las celdas en blanco con la función contara si el resultado es mayor a 0 simplemente no hace nada cuenta = WorksheetFunction.CountBlank(Range("b2:i2")) If cuenta > 0 Then End

Sorry por tardar en responder hasta ahorita vi tu pregunta, este es el complemento que te mencione tanto para numerar como para hacer la suma en un solo paso esta diseñada para rangos variables.esta es la macro Sub numerar_y_totalizar() Set DATOS =...

Estas instrucciones hace lo mismo y más rápido que un ciclo do while, en range(rango) de la instrucción Vlookup puedes indicarle el libro y la hoja anteponiendo workbooks(nombre del libro y la extensión). Sheets(nombre de la hoja). En este ejemplo la...

Prueba con esta macro Sub COPIAR() Dim UNICOS As New Collection Set H1 = Worksheets("HOJA1") Set H2 = Worksheets("HOJA2") Set DATOS = H1.Range("A1").CurrentRegion Set ACTUAL = H2.Range("A1").CurrentRegion AFILAS = ACTUAL.Rows.Count ACTUAL.Sort...

Seria más o menos algo así Sub busca() Set h1 = Worksheets("hoja1") Set h2 = Worksheets("hoja2") Set origen = h1.Range("a1:a89") Set destino = h2.Range("a1:a89") Dato = "datos 1661" Set busco = origen.Find(Dato, LookIn:=xlValues, LookAt:=xlWhole) Set...

Crea un command button y pon la siguiente instrucción end y con eso se cierra el formulario, la otra es crear un botón que te ponga las celdas en blanco o en el botón dode capture los datos o onsulta que las ultimas líneas sean de limpieza.

Prueba con esta macro Ruta es donde tienes la foto Foto es el nombre de la sucursal más un .jpg para indicarle que foto tiene que tomar del ruta, te aconsejo que las fotos de las sucursales se llamen igual que como están en el combo con eso te evitas...

Prueba con esta macro Sub rellenar() Set datos = Range("a2").CurrentRegion With datos Range("a2") = "1" Range("a3").Resize(.Rows.Count - 1, 1).Formula = "=a2+1" .Columns(1).Value = .Columns(1).Value End With End Sub

¿Puedes poner una captura de pantalla de tu información para comprendar exactamente lo que quieres?

Es más rápido que una macro lo haga y más para 150 archivos además llenar de fórmulas las hojas de excel va a terminar haciendo el archivo muy pesado y lento, yo he hacho macros para que coloquen las fórmulas y luego los conviertan a valores planos...