|
Hola, mira el ejemplo lo he puesto en la celda A1 y como texto sin comillas lo siguiente:
"Esta casa es bonita pero nunca la compraria"
Ahora en un modulo he puesto esta macro:
Sub cortar()
Dim texto, car, corte As String
Dim total, corte1, num, contador As Long
texto = Range("A1").Text
total = Len(texto)
corte1 = Left(texto, 23)
car = Mid(texto, 23, 1)
If car <> " " Then
num = 23
Do While car <> " "
num = num - 1
car = Mid(texto, num, 1)
contador = num
Loop
End If
corte = Left(texto, contador)
Range("A2").Value = corte
End Sub
Si la ejecutas paso a paso veras que el corte en principio (aleatoriamente) lo hacía dejando el texto así:
Esta casa es bonita per
Después de retroceder hasta que el valor de la variable era " " (espacio en blanco) el valor que pone en la celda A2 es:
Esta casa es bonita
>Un saludo
>Julio
PD: Si necesitas alguna aclaracion me lo dices, si te ha servido puntua y finaliza la consulta.Gracias.
|
