UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Lehoi


Buenos días

Estoy buscando alguna idea en San Google pero no consigo dar con la tecla, ojalá alguien pueda echarme una mano con este problema.

Tengo un libro que tiene 6 hojas iniciales fijas, y varios cientos de hojas con datos estadísticos de equipos de fútbol, donde cada hoja es un equipo diferente.

El problema es que para limitar el tamaño del libro he limitado las filas de cada hoja a 501 (500 sin contar la fila cabecera), eso sería un máximo de 500 partidos por equipo.

Los datos diarios se van introduciendo automáticamente en las respectivas hojas según los equipos vayan jugando. Lo que necesitaría es que si se actualiza algún equipo y éste alcanzara esa fila 501 me avise de alguna forma para tomar medidas, o quizás ejecutar una macro que me elimine la primera fila y me vaya desplazando el resto hacia arriba para así tener siempre esa última fila 501 disponible sin borrar el contenido de más filas de las necesarias.

No sé si me he explicado bien porque soy bastante torpe a veces para explicar y sé que hablo mucho Wink.

Un abrazo a todos y de antemano muchas gracias

Lehoi

Igtelo


Hola mi buen Lehoi.

Una idea, adapta como requieras, lo puedes hacer de un jalón para todo el libro o ajustar según tus macros...Todo depende de lo que tengas y mejor te resulte.

Código:
Sub aviso()
Dim w As Integer

For w = 7 To Sheets.Count  'Para todas las hojas del libro a partir de la 7
If Sheets(w).[A501] <> "" Then  'Si la celda A501 tiene dato
MsgBox "Ya está lleno: " & Sheets(w).Name  'Avisa y da nombre de la hoja
End If
Next
End Sub

Saludos
Ignacio Téllez

Lehoi


Hola Ignacio

Tu solución es perfecta y me sirve estupendamente, a veces me ofusco y veo las cosas muy difíciles y luego viene un genio y en tres líneas lo hace, me da hasta un poco de vergüenza  Embarassed , pero poco a poco iré cogiendole el tranquillo como se dice en España Wink

Por cierto, intentaré sustituir la línea del mensaje por una macro que me copie todo el rango que quiero desplazar hacia arriba (G3:K501) borrando antes el rango (G2:K2) que sería el rango de celdas a desplazar para hacer hueco nuevamente en la fila 501.

Adaptaré una macro que me hace algo parecido, espero no ahogarme en un vaso de agua Rolling Eyes

Un abrazo y muchas gracias por la ayuda Maestro!

Igtelo


Jejeje. Así pasa, es normal cuando tenemos un montón de datos y hojas ya no sabemos ni por donde, es bueno tomarse un descanso y después continuar...

Saludos nuevamente.
Ignacio Téllez

Igtelo


Hola Felix.

Antes de eliminar esa fila piensa si a futuro no requerirás de esa información, aguas!!
Total, si tienes cientos de hojas una más no afecta, en esa nueva hoja pasa los datos que vayas a eliminar y ya después la eliminas de tus demás hojas, si a futuro no necesitas esa información eliminas la hoja y ya.

Te comento esto porque al momento pensamos que no se requiere pero al pasar el tiempo descubrimos que si y vienen las broncas... Es bueno tener toda la información siempre y si estorba se pasa a un archivo diferente.

Saludos
Ignacio Téllez

Lehoi


Joder  pues no había pensado en eso la verdad, aunque estoy haciendo paralelamente una base de datos de los partidos a medida que los voy metiendo, esos datos los perdería, y como dices ahora no los necesito tal vez, pero en el futuro quien sabe.
Es lo que dices, a veces uno empieza con una simple tablita y le va añadiendo cosas y ya se va enredando tanto que la cabeza se vuelve loca jajaja.

Gracias por la sugerencia!!!

Igtelo


Sale y vale, ya me quité la tentación..

Un abrazo
Ignacio Téllez

Lehoi


Jajajjaa sé lo que es tener una cosa en la cabeza dando vueltas, hasta que no se suelta no se está tranquilo  Wink
Un abrazo!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.