Funcion o tabla para quitar clientes que compran un determinado producto

[rutiña]

Buenos dias:

Tengo una base de clientes con los productos que han contratado y necesito eliminar todos los productos que haya contrado un cliente con relaccion a un producto concreto

Muchas gracias

EN VUELO LIMPIO.rar

[Toldeman]

Hola.

Prueba esta macro:

Sub eliminar()
'Declaramos las variables
Dim x As Integer
Dim i As Integer
'Obtenemos el numero de fila de la ultima celda de la columna E
x = Range("E" & Rows.Count).End(xlUp).Row
'Montamos un bucle que recorra la columna B de abajo hacia arriba
For i = x To 2 Step -1
'condicionamos la celda de la fila que queremos eliminar
If Range("E" & i) = "Línea RTB (portado)" Then
'eliminamos fila
Range("A" & i).EntireRow.Delete
End If
Next
End Sub

Un saludo.

[rutiña]

Me da error ... pero no se si lo estoy haciendo mal

Error de compilacion:

no se ha definido sub o function

[Toldeman]

Hola.

Al pegar el codigo en la linea eliminar filas la comilla simple no la recoge por eso da el error, ponsela manualmente

'eliminar filas o elimina ese comentario.

Un saludo.

[rutiña]

Unicamente elimina la fila del producto seleccionado, pero no el resto de productos asociados a ese cliente

[Toldeman]

Hola.

Elimina 6 registros con la condicion = "Línea RTB (portado)"

Si necesita otra u otras condiciones indica cuales.

Saludos.