HOLA HECTOR!!!
TE ACUERDAS DE ESTE CODIGO!!!
Sub PonerClave()
Application.ScreenUpdating = False
Dim Clave, clavei, Desplaza, Celda As Range, Sig As Byte
Clave = Array("Ing")
Desplaza = Array(-11)
For Each Celda In Selection
Celda.Offset(, -11).Resize(, 10).ClearContents
For Sig = LBound(Clave) To UBound(Clave)
If LCase(Celda) = LCase(Clave(Sig)) Then Celda.Offset(, Desplaza(Sig))
= "X": Exit For
Next
Next
End Sub
Como le hago para que en la parte de Clave = Array("Ing") se le pueda
trabajar con numeros por ejemplo algo asi:
Clave = Array >00
GRACIAS DE ANTEMANO
Leer las respuestas