2

Estoy trabajando en un programa usando VB y EXCEL. Actualmente tengo que copiar cierta información de unas celdas a otras para generar un reporte. Todo por ahora va funcionando bien. Pero tengo la siguiente duda.

Una de las cedas, contiene el historia de notas agregado por el usuario. Se estableció que luego de cada nota se ingrese el símbolo '#' para aclarar que la nota llega hasta ahí. La celda contiene algo así.

2017-08-03 11:06 by Sojo, Andres La propuesta fue cancelada por petición del cliente el día 3/8/2017. #

2017-07-18 09:47 by Sojo, Andres Continuamos ala espera del VoBo por parte del cliente. #

2017-07-14 09:52 by Sojo, Andres Continuamos ala espera del VoBo por parte del cliente.#

2017-07-03 15:14 by Sojo, Andres La propuesta se encuentra en revisión por parte de KOF.#

Estoy utilizando el siguiente codigo, para copiar la informacion de la celda en el reporte que necesito.

Sheets("Extract").Range("AI" & sourceRow & "").Copy Destination:=Sheets("Print").Range("G" & destRow + 7 & "")

Pero esto me copia toda la información de la celda y solamente ocupo que copie hasta donde aparece el primer '#' y deje de copiar el resto.

Pense en hacer algo como un

Do
   copiar información de la celda 
While
   no aparezca el carácter #

Lo que sucede es que con un código como ese me va a copiar todo, dado que la información se encuentra en una sola celda no en varias.

Muchisimas gracias por la ayuda.

1
  • tendrias que extraer el texto a un string, y despues cortarlo..
    – gbianchi
    Commented el 4 sept. 2017 a las 14:59

1 respuesta 1

2

Carlos, te recomiendo que obtengas primero el valor de la celda y recortes la misma desde la izquierda hasta la primer ocurrencia del caracter #. El código sería algo así:

texto = Sheets("Extract").Range("AI" & sourceRow & "")
texto = Left(texto, InStr(1, texto, "#") - 1)
Sheets("Print").Range("G" & destRow + 7 & "") = texto

Hacemos uso de instr para obtener la posición del caracter # y de left para recortar hasta dicha posición menos uno (para quitar el caracter final).

Nota Importante: Tener en cuenta que el anterior código dará un error en caso de no encontrar el caracter #, o bien verificamos que exista mediante if InStr(1, texto, "#") > 0 o bien controlamos el error con un On error

1
  • Muchisimas gracias, funciono a la perfección. Commented el 4 sept. 2017 a las 15:45

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.