[MACRO] Remplazar celda con primer caracte 1
Buenas todoexpertos, necesito crear una macro que coja la columna de teléfonos y crear una condición donde todas las celdas de esta columna que comience el primer carácter por "1" me remplace la celda entera por NULL.
Es decir:
11234454 ->> NULL
2134445 ->> 2134445
1233445 ->> NULL
3233444 ->> 3233444
La selección de la columna ya la tengo
Private Sub TELEFONO()
Cells.Find(What:="Telefono", 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 en macro ya que tengo mas sub que meter aparte.
Saludos y muchas gracias por las molestias
Es decir:
11234454 ->> NULL
2134445 ->> 2134445
1233445 ->> NULL
3233444 ->> 3233444
La selección de la columna ya la tengo
Private Sub TELEFONO()
Cells.Find(What:="Telefono", 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 en macro ya que tengo mas sub que meter aparte.
Saludos y muchas gracias por las molestias
1 respuesta
Respuesta de Elsa Matilde
1
Si revisas tus consultas verás que ya recibiste una rutina que hace casi lo mismo
Así que nos vamos a basar en ese ejemplo para realizar ahora esta otra tarea:
Private Sub TELEFONO()
Cells.Find(What:="Telefono", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(1, 0).Select
'establezco el fin de rango (*)
finfila = Selection.End(xlDown).Row
While ActiveCell.Row <= finfila
If Left(ActiveCell, 1) <> "1" Then ActiveCell = "NULL"
ActiveCell.Offset(1, 0).Select
Wend
End Sub
PD) La próxima vez que dejes las instrucciones que ya tenés solo incluí las líneas en negrita, que del Range no sirve para estos casos.
Así que nos vamos a basar en ese ejemplo para realizar ahora esta otra tarea:
Private Sub TELEFONO()
Cells.Find(What:="Telefono", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(1, 0).Select
'establezco el fin de rango (*)
finfila = Selection.End(xlDown).Row
While ActiveCell.Row <= finfila
If Left(ActiveCell, 1) <> "1" Then ActiveCell = "NULL"
ActiveCell.Offset(1, 0).Select
Wend
End Sub
PD) La próxima vez que dejes las instrucciones que ya tenés solo incluí las líneas en negrita, que del Range no sirve para estos casos.
