Luis_P

Si claro, eso pasa por que le estas pasando al text una nueva cadena sin contemplar la cadena existente en el text Para que eso no te ocurra debes hacer lo sgtes: text1=text1 & " " & nuevo texto

primero tu proyecto no debe iniciar con un form sino con un procedimiento sub main en un modulo declaras el sub main sub main() ... aca pones la llamada al primer evento que debe realizar tu programa end sub Luego solo es cosa de hacer las llamadas...

Para ello utilizaremos el evento KeyPress del text ingreso Asi: Private Sub ingreso_KeyPress(KeyAscii As Integer) '4c7569735f50 If Len(Trim(ingreso)) = 7 Then cod = Mid(Trim(ingreso), 2, 1) suc = Mid(Trim(ingreso), 3, 1) End If End Sub Asi al digitar...

Revisa los parametros RThreshold, SThreshold Estas dos propiedades especifican el número de caracteres que deben estar presentes en los Buffers de Recepción y Transmisión respectivamente, para que se produzca el evento OnComm relativo a recepción y...

Prueba a limpiar el portapapeles antes de pasarle otro string Clipboard. Clear Clipboard. SetText (Text2.Text) A mi así me funciona ok

Revisa acá http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/296-connectionstring-ado.htm#1

'¿4c7569735f50 el error te lo da en esta linea verdad? Open Archivo For Input As #1 entonces lo que debes hacer es no utilizar on error resume next debes tener un sub que trate los errores interceptados mediante un select case ejemplo: Sub prueba()...

Dim hoy As String hoy = Now

...( Aquí ya no se que pudiera ir para ejecutar lo que necesito) Bueno allí pones lo mismos que debes tené en el evento click del file.. ¿se supone que estas abriendo el archivo no?

'4c7569735f50 Si la intencion es que los datos los pegue secuencialemnte a continuacion de los ya exstentes en la hoja, pues entonces lo primero qque debes hacer antes de importar los datos, es contar cuantos datos existen ya en la hoja y asi luego...