Deseo que la Columna A que termina en . En la columna B sea 0 y si termina la celda en digit sea 1
Así es el problema
Columna a columna b
1. 0
1.1. 0
1.1.1. 0
1.1.1.1. 0
1.1.1.1.1 1
1.1.1.1.2 1
1.1.1.1.3 1
1.1.1.1.4 1
1.1.1.1.5 1
1.1.2. 0
1.1.2.1. 0
Se puede apreciar que la columna A tiene celdas en las cuales terminan con . Y esas deben dar en la columna B 0 y si terminan sin punto nos darían 1
3 Respuestas
Espero que te encuentres bien.
Por favor prueba con esta Macro, solo en caso de que el Rango sea fijo modificado según a tu criterio.
Espero te sirva.
Saludos!
Sub Terminacion()
Dim celda As Object
Dim rng As Range
'Especificar Rango Fijo
Set rng = Range("A1:A5")
'Realiza un clico para cada Celda del Rango
For Each celda In rng
Valor = celda.Value
'Si el valor de la celda termina con " . ", entonces pone un 0 a la derecha
If Valor Like "*." Then celda.Offset(0, 1).Value = "0"
Next celda
'Si el valor de la celda termina con " . ", entonces pone un 1 a la derecha
For Each celda In rng
Valor = celda.Value
If Valor Like "*#" Then celda.Offset(0, 1).Value = "1"
Next celda
End Sub
no mi estimado Manuel, no funciona
¿Qué versión de Office tienes?
¿Si cambiaste el Rango? ¿O en que columnas esta la info que quieres?
