¿Cómo Cortar cadenas de caracteres con macros?
Tengo una consulta, como puedo eliminar los caracteres sobrantes en una celda como en este ejemplo
450,00base21tresmesesdespues
Necesito quedarme solo con los 450,00
Pero este numero puede ser mayor ejemplo
20485792,00base21tresmesesdespues
Aquí necesito solo los 20485792,00
Esto lo estoy haciendo con macros
3 Respuestas
Pruebe con:
IZQUIERDA(A1;ENCONTRAR(",";A1)+2)
Para cortar cadenas de caracteres en una macro de Excel y quedarte solo con la parte que necesitas, puedes utilizar la función "Left" o "Mid" junto con la función "InStr" para buscar una cadena específica y luego extraer una subcadena a partir de esa posición.
Aquí te muestro un ejemplo de cómo puedes hacerlo en VBA:
Sub CortarCadena()
Dim cadena As String
Dim posicion As Integer
Dim resultado As String
cadena = Range("A1").Value ' Asume que la cadena de texto está en la celda A1
posicion = InStr(1, cadena, "base21") ' Busca la posición de la cadena "base21"
If posicion > 0 Then ' Si se encontró la cadena
resultado = Left(cadena, posicion - 1) ' Extrae la subcadena desde el principio hasta la posición anterior a "base21"
Else
resultado = cadena ' Si no se encontró la cadena, el resultado será la cadena completa
End If
Range("B1").Value = resultado ' Escribe el resultado en la celda B1
End SubLa cadena original se encuentra en la celda A1 y el resultado se escribirá en la celda B1. La macro busca la posición de la cadena "base21" dentro de la cadena original utilizando la función "InStr". Si se encuentra la cadena, se utiliza la función "Left" para extraer la subcadena desde el principio hasta la posición anterior a "base21". Si no se encuentra la cadena, el resultado será la cadena completa.
Muchas gracias por la respuesta, ahora la parte de base21 no es algo fijo varía lo único que si siempre está presente es la ","
Sub CortarCadena()
Dim cadena As String
Dim posicion As Integer
Dim resultado As String
cadena = Range("A1").Value ' Asume que la cadena de texto está en la celda A1
posicion = InStr(1, cadena, ",") ' Busca la posición de la coma
If posicion > 0 Then ' Si se encuentra la coma
resultado = Left(cadena, posicion - 1) ' Extrae la subcadena desde el principio hasta la posición anterior a la coma
Else
resultado = cadena ' Si no se encuentra la coma, el resultado será la cadena completa
End If
Range("B1").Value = resultado ' Escribe el resultado en la celda B1
End SubEn este caso, la macro buscará la posición de la coma utilizando la función "InStr". Si se encuentra la coma, se utilizará la función "Left" para extraer la subcadena desde el principio hasta la posición anterior a la coma. Si no se encuentra la coma, el resultado será la cadena completa.
Ho la Jose.
Visita:
Prueba:
Sub extraenumero()
Dim num As String
With Range("C3")
num = Left(.Value, InStr(1, .Value, ",") + 2)
End With
MsgBox num
End Sub
https://m.youtube.com/watch?v=fkMDV64YyE0
Te puede interesar:
https://m.youtube.com/watch?v=PupmVvM16-8&t=9s
Sal u dos
Dante Amor