[Macro] Remplazar celdas que empiecen por 6000

Buenas todoexpertos necesito crear una macro en donde tengo una columna con una serie de dígitos pero por error hay que remplazar por "NULL" todos los que empiecen con carácter 6000, es decir habría que remplazar por ejemplo 60002 -> "NULL" o 6000021332-> "NULL" (Debido a que sus primeros 4 caracteres cumplen la regla)
Tengo la selección de la columna
Private Sub Digitos()
Cells.Find(What:="digitos", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
End Sub
*** Es necesario hacerlo por medio de una macro ya que tengo mas SUB
Saludos y gracias por las molestias

1 respuesta

Respuesta
1
Pues parece que:
O no haz avanzado mucho en "conocimientos" o te da flojera porque en muchas de tus consultas pones esto:
Tengo la selección de la columna
Private Sub Digitos()
Cells.Find(What:="digitos", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(1, 0).Select
Yo mismo te envíe una macro que hace que en toda la columna, "normaliza" cada celda con formato AAAAMMDD, osea AÑOMESDIA, a AAAA/MM/DD, comprendiendo esa macro que t envíe, deberías poder resolver esta otra duda que planteas, pero si solo hiciste Copy/Paste de la misma, pues es lógico que no puedas resolver esto. Analízala y trata de resolver este otro problema tu mismo, revisa en modo Debug (F8) paso a paso lo que hace la macro que t envíe, o la de Elsa Matilde o la de ... en fin, varios Expertos t enviaron macros similares.
Esta es la dirección de mi Respuesta Anterior a ti:

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas