d2enri

Lo que pides te vale con esta fórmula =BUSCARV(A2;Hoja2!$A$2:$B$5;2;0) En B2 pones la fórmula y la corres hacia abajo paso a explicarte como funciona suponiedo que en A1 tienes escrito color y en B1 código buscamos en A2 los datos de A2 hasta B5 de...

Pega este código en la hoja y realizara lo que pides Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If [C6] <> "2001" Then ActiveSheet.Unprotect Range("D30").Select Selection.Locked = True...

Debes abrir el libro B para copiar los rangos Pon a grabar la macro desde el libro A pincha en inicio y abre desde hay el libro B así te cogerá la dirección del archivo y después sigues con tu grabación Ya me cuentas

Lo que pides con fórmulas no creo que sea posible tendría que ser con ordenar alfabéticamente pero si los datos los traes con fórmulas tampoco seria posible solo queda la posibilidad de macros y lo ideal seria traer los datos ya con macros y...

Supongo que lo que quieres es que al copiar la fórmula no te cambie el valor de algunas celdas para eso se usa $ Esta fórmula si la pegas te cambia =BUSCARV(A1;B3:G19;1) Y en esta otra solo te cambiaria el valor de A1 el resto quedaria igual...

Tienes varias opciones supongo que tendrás las fórmulas así =A1+B1 puedes usar la condicional Si de esta manera =SI(A1+B1;A1+B1;"") Esto te dice que si suma de a1 b1 es = 0 no salga nada "" También existe SIERROR etc Si no te aclaras dime las...

Dime cual es la celda y los rangos de impresión de cada hoja y te creare un código

La función BUSCARV solo te devuelve el primer valor encontrado para lo que pides solo puede ser con códigos si me dejas tu correo te mando algún ejemplo si lo prefieres pásame tu archivo y me indicas en el donde quieres los datos d2enrique arroba...

Para eso lo más fácil es aplicar filtro avanzado seleccionar copiar a otro lugar y solo registros únicos Si no te vale así dime si lo que quieres es toda la columna A que te borre todos los repetidos y te paso un código

Prueba este código cambiando Hoja por nombre de tus Hojas Sub subElim() Application.DisplayAlerts = False elim = 1 For i = 1 To Sheets.Count If Left(Sheets(elim).Name, 4) = "Hoja" Then Sheets(elim).Delete Else elim = elim + 1 End If Next...