|
Hola de nuevo Fransss:
Prueba con este código:
'-------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 1, 2
With Range("a:b") ' este es el rango donde tienes todos los codigos de barras
Set c = .Find(Target, LookIn:=xlValues)
If Not c Is Nothing Then
If c.Address <> Target.Address Then c.Value = ""
End If
End With
End Select
End Sub
'---------------------
Ya sabes te colocas en la hoja en cuestion, pulsas con el raton derecho en la pestaña de la hoja y seleccionas "VER CODIGO", en la nueva pantalla que aparece, pega el código que te adjunto arriba. En la 3ª línea hay que poner los numeros de las columnas en los que tienes los códigos de barras (yo los he puesto en las columnas a y b que son 1 y 2) y en en la 4ª linea yo te he puesto que todos los codigos los tienes y los apuntas en las columnas a y b, pero tú pon el rango en el que tengas los códigos de barras.
De esta manera en teoría, cuando escribas un valor en esas columnas, buscará si estaba ese codigo de barras y lo borrará.
Si necesitas mas aclaraciones, me lo comentas.
Si con estas explicaciones das por terminada la pregunta, por favor cierrala y valora.
Gracias
|
