Eliminar línea por celda con condición

[Tango Rojo]

Eliminar línea por celda con condición
Todas/os!!

He creado esta macro para un proyecto pero me tira " SE ha producido el error 1004 en tiempos de ejecución: Error en el método Delete de la clase...

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í

 

[Macro Antonio]

Sub Botón1_Haga_clic_en()
Application.ScreenUpdating = False
Sheets("PLANILLA").Select
ActiveSheet.Unprotect Password:="ALFA"
Buscardato = InputBox("Especificar el dato COD")...

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í

 

[Tango Rojo]

Sub Botón1_Haga_clic_en()
Application.ScreenUpdating = False
Sheets("PLANILLA").Select
ActiveSheet.Unprotect Password:="ALFA"
Buscardato =...

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í

 

[Tango Rojo]

Hola Antoni!!
Muchas gracias por la respuesta!!
Mira lo he probado como botón y Sub y no funciona, te dejo el archivo para q lo veas.
Muchas gracias por tu intervención!!

 

[Macro Antonio]

A mi me ha funcionado:

Sub Eliminar_linea_a()
Dim COD As Long, Data As Range
Application.ScreenUpdating = False
Sheets("PLANILLA").Select
ActiveSheet.Unprotect Password:="ALFA"
COD =...

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í

 

[Tango Rojo]

A mi me ha funcionado:

Sub Eliminar_linea_a()
Dim COD As Long, Data As Range
Application.ScreenUpdating = False
Sheets("PLANILLA").Select...

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í