Problema con Limite de Caracteres en TextBox

Hola a todos, disculpen pero tengo un inconveniente con un formulario en VBA de excel.
Mi problema básicamente consiste en que dentro de mi formulario tengo un TextBox que muestra el comentario de una celda que cuando lo hace no muestra todo el texto del comentario.
Probé asignándole "Multiline" en propiedades al TextBox pero aún no consigo que en el mismo se visualice todo el texto del comentario.
Según entiendo debe haber algo mal con los límites de caracteres pero no puedo solucionarlo.
Nota: MaxLength lo tengo en 0. (entiendo sin limite)
Les dejo un detalle de mi código que si bien es simple soy algo nuevo y no se como arreglar esto.
Private Sub Button_Buscar_Click()
'Codigo correspondiente al Boton de Busueda
Dim id_numerodeproyecto, idBusca As String
Dim fila As Integer
fila = 6
id_numerodeproyecto = NumeroDeProyecto
Do While idBusca <> id_numerodeproyecto
fila = fila + 1
idBusca = Range("C" & fila).Value
If idBusca = Empty Then
MsgBox "¡El proyecto ingresado no se encuentra en la base de datos!" & Chr(10) & "Por favor intente ingresar otro número de proyecto.", vbExclamation, "Atención"
Exit Do
End If
Loop
Banco = Range("B" & fila).Value
Descripcion = Range("U" & fila).Value
Año = Range("E" & fila).Value
Mes = Range("D" & fila).Value
Status = Range("H" & fila).Value
EstadoDeOt = Range("K" & fila).Value
Proveedor = Range("M" & fila).Value
NumeroDeOc = Range("N" & fila).Value
FechaDeOc = Range("O" & fila).Value
SituacionDeAnticipo = Range("P" & fila).Value
EstadoDeMateriales = Range("R" & fila).Value
EnvioDeMateriales = Range("S" & fila).Value
EstadoGeneral = Range("V" & fila).Value
EstadoActual = Range("W" & fila).Value
UltimasEntradas = Range("V" & fila).NoteText
End Sub

Si me pudieran ayudar, se los agradecería.

2 respuestas

Respuesta
1

Dante, buenos días.

Acabo de enviarte un correo con la planilla y dentro de ellas una base de datos ficticia y el formulario!

Respuesta
1

Revisa bien lo que tienes como comentario, tal vez tengas un carácter especial que está truncando el texto, ya hice una prueba para cargar más de 140 mil caracteres en un textbox y todos se muestran.

O envíame ese texto que dices en una hoja de excel para revisarlo, envíame también tu archivo con tu formulario.

Cambia en tu macro esta línea

UltimasEntradas = Range("V" & fila).NoteText

Por esta:

UltimasEntradas = Range("V" & fila).Comment.Text

Saludos. Dante Amor

Al final de mi respuesta dice: “Es una buena respuesta” y puedes seleccionar una de 3 opciones:

  • Excelente
  • Si
  • No

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas