Eliminación de filas específicas desde una Hoja diferente

[ripper32]

Adjunto el ejemplo.

Lo que quiero conseguir es poder eliminar TODAS las filas que tengan un CÓDIGO que yo proporcione en una celda, pero este código estará en otra hoja de cálculo, no en la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[fervabi22]

Hola Ripper
te Adjunto el archivo para eliminar según Código
no olvides comentar si es lo que estabas buscando
Atentamente
AC. Fernando

 

[Cacho R]

Hola! ripper32 (y fervabi22).
Otra variante que podría ayudarte es:

Sub Eliminar_Codigo()
With Worksheets("Hoja1").[a1].CurrentRegion
  .Parent.AutoFilterMode = False
  .AutoFilter...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ripper32]

Muy bien! es casi lo que quería! jaja muchas gracias de verdad! pero necesito que esos espacios donde se ha borrado una fila, quede un espacio en blanco, me hago entender?.. por ejemplo:

CODIGO...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ripper32]

Acabo de probar ambas propuestas y hay un mismo error, que cuando me eliminan las filas me eliminan TODAS, hasta los botoncitos que tenía jaja .. Solo necesito que borre la matriz A1:D20 por...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ripper32]

Tengo un amigo que me ayudó y generó este código :

Sub eliminar()
dato = Range("J19").Value
Set busdato = ActiveSheet.Range("A:A").Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If (busdato)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Reemplaza
.Offset(1).EntireRow.Delete

por:
.Offset(1).EntireRow.ClearContents

Saludos, Cacho R.

P.D.
Trata de expresarte con propiedad, mi amigo: eliminar es una cosa y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

O, mejor aún:

Sub Eliminar_Codigo()
With Worksheets("Hoja1")
With .Range("a1:d" & .Cells(Rows.Count, "a").End(xlUp).Row)
  .Parent.AutoFilterMode = False
  .AutoFilter Field:=1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ripper32]

Muchas gracias Cacho R, pues sí, grave error el mío en confundir borrar y limpiar!
Listo me sale tal cual necesito, pero cómo hago para que ese botón de eliminar y la celda donde buscaré el código...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Si la respuesta a esta pregunta es la creación de tu nueva consulta: ya te respondí por allí...

 

[federico ramirez marron]

Solo por no dejarlo fuera de esto, y por que en un momento podre consultarlo aqui.

comento que este codigo que tengo

Sub ulti1()
 ult1 = Hoja10.Range("K65536").End(xlUp).Row
    For i = 1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí