Borrado de celdas encontradas
Hola, nuevamente con una inquietud...
Tengo una tabla con una serie de nombres y unos valores asignados a cada uno de ellos:
Pedro 11111
Juan 22222
Jose 33333
Necesito borrar u ocultar de esa lista a algunos de los nombres y sus respectivos valores que se encuentran en una lista de otro archivo u otra hoja... He usado un buscador que me borre esos determinados nombres pero no se como hacerlo bien pues cuando no encuentra un nombre simplemente elimina una celda incorrecta y deja de hacerlo con los nombres siguientes...
Agradecería enormemente tu ayuda con este problema...
Tengo una tabla con una serie de nombres y unos valores asignados a cada uno de ellos:
Pedro 11111
Juan 22222
Jose 33333
Necesito borrar u ocultar de esa lista a algunos de los nombres y sus respectivos valores que se encuentran en una lista de otro archivo u otra hoja... He usado un buscador que me borre esos determinados nombres pero no se como hacerlo bien pues cuando no encuentra un nombre simplemente elimina una celda incorrecta y deja de hacerlo con los nombres siguientes...
Agradecería enormemente tu ayuda con este problema...
1 Respuesta
Respuesta de paramisolo
1
Primero en código de VBA no sirven indecisiones " o están en otro archivo o están en otra hoja" como comprenderás las instrucciones no son las mismas, de todas formas el proceso es poner la condición en una variable y situarte en "el archivo-rango" o en la Hoja-Rango" que quieras comprobar y repasar fila a fila para ver si se cumple la condición, y nuevamente no sirven indecisiones "o se Borran o se ocultan" decides tu.
Estamos en el Libro1 Hoja1 donde están los valores que tomaremos para borrar los de otra hoja, las macros en un modulo:
Sub comprobar()
Sheets("Hoja1").Select 'Nos situamos en la hoja donde tomar las referencias
Range("A1").Select
Do While ActiveCell.Value<>"" 'Repetira hasta encontrar una celda vacia
nombre=ActiveCell.Value 'Pasamos a variables las dos condiciones nombre y valor
valor=ActiveCell.Offset(0,1).Value
Sheets("Hoja2").Select 'Nos movemos a la hoja2 donde estan el rango a comprobar
Range("A1").Select
Do While ActiveCell.Value<>"" 'Repetira hasta encontrar celda vacia
If ActiveCell.Value=nombre And ActiveCell.Offset(0,1).Value=valor Then
ActiveCell.Value=Empty 'Borrara las celdas donde se cumplan las dos condiciones
ActiveCell.Offset(0,1).Value=Empty
End If
ActiveCell.Offset(1,0).Select
Loop
Sheets("Hoja1").Select
ActiveCell.Offset(1,0).Select
Loop
End Sub
Mira a ver si acomodándola a tu nombre de hojas y rangos te sirve.
Si es así finalizas y puntúas la consulta
>Un saludo
>Julio
Estamos en el Libro1 Hoja1 donde están los valores que tomaremos para borrar los de otra hoja, las macros en un modulo:
Sub comprobar()
Sheets("Hoja1").Select 'Nos situamos en la hoja donde tomar las referencias
Range("A1").Select
Do While ActiveCell.Value<>"" 'Repetira hasta encontrar una celda vacia
nombre=ActiveCell.Value 'Pasamos a variables las dos condiciones nombre y valor
valor=ActiveCell.Offset(0,1).Value
Sheets("Hoja2").Select 'Nos movemos a la hoja2 donde estan el rango a comprobar
Range("A1").Select
Do While ActiveCell.Value<>"" 'Repetira hasta encontrar celda vacia
If ActiveCell.Value=nombre And ActiveCell.Offset(0,1).Value=valor Then
ActiveCell.Value=Empty 'Borrara las celdas donde se cumplan las dos condiciones
ActiveCell.Offset(0,1).Value=Empty
End If
ActiveCell.Offset(1,0).Select
Loop
Sheets("Hoja1").Select
ActiveCell.Offset(1,0).Select
Loop
End Sub
Mira a ver si acomodándola a tu nombre de hojas y rangos te sirve.
Si es así finalizas y puntúas la consulta
>Un saludo
>Julio
Muchísimas gracias por tu ayuda... monte algunas fodificaciones y ya veo otras funcionalidades a esta programación...
Nuevamente gracias por el tiempo invertido en esto!
Nuevamente gracias por el tiempo invertido en esto!
