JSDJSD

Siento mucho decirte que aquí, colaboramos ayudándonos unos a otros pero no damos soporte para desproteger libros u hojas, si sabes quién es el autor pídele la clave de acceso y continuamos, un saludo.

Hola fredy122, la hoja esta protegida, subir el archivo desprotegido.

Hola Juan Pelfort , prueba el adjungo Golf prueba1.xlsm

Mañana te lo subo

Por esto mismo es por lo que se dice que se suban los archivos con una explicación más o menos clara de los que pretendemos. Me alegro mucho de que el código del Maestro Antoni te sirva para tu proyecto. También decirte que la forma de agradecer a los que te ayudan en este foro es mediante el corazoncillo que tienes en la parte inferior derecha pulsando el emoticono que más se adapte a tu ayuda.

Por cierto se me pasaba decirte que según tu código Sheets("Hoja1").Cells(12, 6) = TextBox.Value lo estabas mandando a la F12, debes tener en cuenta que la primera cifra de Cells corresponde a la fila y la segunda a columna Cells(Fila, Columna), con respecto a que el cursor se sitúe en el textbox debes utilizar su propiedad TabIndex para darle el orden en el formulario, en este caso sería TabIndex =0

Hola Juan Pelfort, prueba el adjunto haber si es lo que necesitas. Salir de formularioPrueba1.xlsb

Hola fredy122, te subo un ejemplo haber si es lo que necesitas, también un enlace para que veas en video el funcionamiento del mismo. Tienes que tener en cuenta que en la macro contenida en el archivo progama4 cifras 1.xlsm debes cambiar la ruta que hay por la tuya para que te funcione. Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm") La que te muestro es la ruta que tiene el archivo en mi ordenador, es decir yo lo tengo en el escritorio, lo que debes modificar es lo de color Amarillo, si pones los dos archivos en tu escritorio lo único que tienes que modificar seria Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm") por el nombre de tu ordenador. Cuando pulses el botón de Traspasar no es necesario que tengas abierto el otro archivo. Enlace de video https://www.dropbox.com/s/ueg0xxopxpntv4z/consulta de fredy122.mp4?dl=0 Analisis2018.xlsm programa 4 cifras 1.xlsm

Hola Juan Pelfort, te subo un pequeño ejemplo para que te sirva de orientación. Salir de formulario.xlsb

Bueno sin tus archivos lo único que puedo hacer es preparar yo un ejemplo y que tu lo adaptes a tus necesidades.

Hola Juan Pelfort, sube tu archivo de ejemplo y seguro le damos solución

Hola josegomez, dar las gracias a los que te ayudan o intentan ayudar en este foro se dan posicionandote con el ratón sobre el corazoncillo que tienes en la parte inferior derecha donde se despliegan 4 emoticonos de los cuales debes elegir uno y de izquierda a derecha sería(Gracias, Jajaja, Estoy confundido, Me gusta).

Hola Antoni, josegomez, subo el archivo de lo que yo entendí. Prueba para KRUGERS.xlsb

Hola Antoni, siempre me sorprendes con algo nuevo, he probado la macro siguiendo tus indicaciones y verdaderamente me quede sorprendido, pero tengo que decirte que también lo he probado mediante un botón y el efecto que da por lo menos para mí, es mucho más visual, es decir que estéticamente queda mejor. Me he tomado la libertad de realizar un pequeño vídeo para que todo el mundo vea las dos opciones, gracias Antoni, por estar siempre ahí y compartir con nosotros tus conocimientos. Aquí dejo el enlace para ver el video. https://www.dropbox.com/s/xpn3rmi1rzsynbn/ejemplo de antoni.mp4?dl=0

Hola fredy122, sube tus archivos y lo intento