Enrique Bernal

Ok, pensando que tus datos empiezan el la primera fila estos serian los códigos. Sub Cuenta_elimina() Range("B1").Select ActiveCell.FormulaR1C1 = "=COUNTIF(C[-1],RC[-1])" k = Range("A" & Cells.Rows.Count).End(xlUp).Row Range("B1").Select...

Asumo que los primeros diogitos de tu código postal son números y es más que el código postal por completo es un número, por lo que podrías usar esta fórmula, en la hoja donde necesitas los datos: =BUSCARV(VALOR(EXTRAE(A2,1,2)),Hoja2!A:B,2,0)

A ver para abrir archivos desde un botón tendrías que hacer lo siguiente: Sub Macro1() a = InputBox("Indicar el nombre del archivo incluyendo la extensiom. Ejm: 1234.xls", "Nombre del Archivo") ChDir "C:\Users\ebernal\Desktop"...

Los códigos para saber el valor de una celda es Sheets(hoja1). Range("P67"). value. Para tu ejemplo sería Sheets(Base).range("B2").value= Sheets(Hoja1).range("N67").value + Sheets(Hoja2).range("N67").value + Sheets(Hoja3).range("N67").value +...

La formula INDICE() hace que el numero de fila y de columna lo escibas lo formules o hagas lo que necesites

Si el archivo tiene las celdas en el orden que me mencionaste la macro sería la siguiente: Sub copiaPega() k = Range("A" & Cells.Rows.Count).End(xlUp).Row Range("F2").Select ActiveCell.FormulaR1C1 = "=+RC[-2]" Range("F3").Select...

Seleccionas toda la columna en la que están tus datos Vas a la pestaña Datos y ahí existe un botón que se llama quitar duplicados, presionas este y listo

Pásame la grabación sin los cambos, pero necesito sabes: ¿La dirección de búsqueda es siempre la misma? Solo el nombre del archivo es el que cambia?????//

A l formula anteior anade *(tu rango<>0)*() y al finalizar presiona ctrl+shift esto te dara una formula matricial y debería funcionar la formula. No olvides finalizar la pregunta. Si tienes problemas pásame la fórmula anterior

Pues si, esta medio liado entender lo que necesitas, mi correo es [email protected] pero escribme con toda la descripción de lo que necesitas