macro _ error al borrar contenido de celdas

[lucas18]

Hola, por favor que alguien me pueda ayudar con lo siguiente:

Tengo una macro que realiza lo que deseo todo bien hasta ahí , pero al borrar los datos de la columna B, para volverla a ejecutar al...

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í

 

[Vico]

Hola:

El error es porque cuando borras en el rango del target, toma el valor "" (vacio) y no coincide con el valor de la celda a comparar, prueba con este código:

<i>
</i>Private Sub...

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í

 

[lucas18]

Hola Vico, muchas gracias por tu ayuda, te comento que al ejecutar macro me aparece un error el cual dice: error de compilación Next sin for

 

[Vico]

Perdón, escribí mal la sintaxis, prueba con este ahora:

<i>
</i>
Private Sub Worksheet_Change(ByVal Target As Range)

Dim celda As Range

If Target = 0 Then
    Exit Sub
Else
    If...

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í

 

[lucas18]

Gracias vico, acabo de probar la macro y nuevamente me esta apareciendo el siguiente error " tiempo en ejecución: no coinciden los tipos", y al dar depurar se sombrea de amarillo la siguiente...

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í

 

[Vico]

Podrás subir tu libro para verificar el error???

 

[lucas18]

Vico, adjunto archivo con la macro inicial como lo tenia
gracias

 

[Vico]

Hola:

Prueba el adjunto, a ver si así te sirve.

Saludos de nuevo
Vico :D

 

[lucas18]

Gracias Vico esta muy bien, solo una ultima ayuda al respecto,si es que fuera posible, lo que pasa que desde la columna "C" hacia la derecha, ingreso una serie de datos, pero veo que cuando borro...

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í

 

[Vico]

Entonces ahora reemplaza el código por este:

<i>
</i>
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo salir

Dim celda As Range

If Union(Target...

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í

 

[lucas18]

Muchas gracias Vico, lo máximo, quedó perfecto.
quedo muy agradecido por tu gran ayuda.
Saludos