Eliminar rango

5 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Eliminar rango

Buenas noches:

Trabajo con una macro que llena los siguientes datos en la ultima celda de la columna A , la cual en el adjunto esta resaltado con amarillo, esta macro lo realizo al final de la fecha y antes de imprimir,  y bueno esto es un karedex de cliente y obviamente se va registrando más datos, como puedo hacer para seleccionar todo ese rango amarillo ( puse ese color para indicar lo que quiero eliminar, porque despues es sin fondo) y eliminarlo? , valga la redundancia esos textos los escribo mediante macro antes de imprimir y entregar al cliente.

Gracias por su tiempo . 

Saludos cordiales

Jesús

 

 

AdjuntoTamaño
File eliminar.xlsx76.89 KB

Etiquetas: 

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 mes 2 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 2995
Aqui el mismisimo tema, sin

Aqui el mismisimo tema, sin quitarle una coma

http://www.ayudaexcel.com/foro/threads/eliminar-rango.39778/

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Si

Si soy la misma persona que pregunto, no veo cual es el problema de estar suscrito en diferentes foros?? o sii??

Jesus Martinez Plantarosa

Cron
Imagen de Cron
Offline
última acción: Hace 1 mes 8 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12725
Por mi parte no hay problemas

Por mi parte no hay problemas por que postees en varios foros. Yo también lo hago.

Yo lo resolvería de esta manera:

    Range("A5").Select

    Selection.End(xlDown).Select

    fila = Selection.Row + 1

    Range("A" & fila & ":A" & fila + 15).Select

    Selection.Delete

Saludos

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Gracias

Gracias por el código gracias de verdad, y honestamente no creo que seamos unos cuantos los que escribimos en diferentes foros, en fin paciencia y buen humor y MASSSS ROOOCCKKKKK AND ROOOLLLLL

Un abrazo

Jesús

PD TEMA SOLUCIONADO

Jesus Martinez Plantarosa