jantonio06

paramisolo respondió: Parece lógico el error y el resultado, aunque te funcionara correctamente siempre escribiría en la celda AK7 por lo tanto solo verías el ultimo valor pegado y habría sobreescrito todos los anteriores. Me tienes que aclarar donde quieres pegar los...

paramisolo respondió: Pues eso es fácil mira pones en el principio de la macro estas instrucciones para que se sitúe en la siguiente celda libre: Suponemos que es la primera vez que vas a importar los datos, tendrás la hoja vacía en entonces nos situamos en la celda A8...

paramisolo respondió: Vamos a ver pienso que es sencillo tu tienes abierto el Libro Prueba Nadin.xls y en este libro pones un botón en la hoja y le pones el código para que te muestre el dialogo de abrir otro libro, lo buscas lo marcas y lo abres, ahora el nombre del...

paramisolo respondió: He entendido que quieres filtrar todas las empresas (Account Type) y que se sumen todos los valores de los meses desde Ene hasta Jun, te lo he puesto suponiendo que el nombre de la Hoja sea Hoja1 y te llevo los datos filtrados a Hoja2, lo que tu...

paramisolo respondió: Pues bien quedarí algo así: Sub ordenar() Dim celdaINI,celdaFIN,valor As String Range("A1").Select Do While ActiveCell.Value<>"" Do While ActiveCell.Value<>"N" ActiveCell.Offset(1,0).Select Loop If ActiveCell.Value="N" Then...