Al hacer Click el cursor se Coloque al Inicio de un Textbox VBA EXCEL

Tengo un textbox, con texto adentro por defecto. Este texto define para que sirve el textbox.

Lo que deseo es que cuando Haga Click en el textbox, el cursor se coloque al inicio.

Cuando empiezo a escribir, se borre el contenido del textbox que tiene por defecto.

Si borro lo que escribí, que aparezca el texto por defecto

Si selecciono otro textbox y retorno al textbox que estaba editando, quiero que el cursor se coloque en donde me quede escribiendo.

1 respuesta

Respuesta
1

Te envío la primera petición: "Lo que deseo es que cuando Haga Click en el textbox, el cursor se coloque al inicio."

Pon el siguiente código en tu formulario

Private Sub TextBox2_Enter()
'Por.Dante Amor
    TextBox2_MouseDown 0, 1, 0, 0
End Sub
'
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Por.Dante Amor
    If TextBox2 = "" Then
        TextBox2 = "por defecto"
        TextBox2.SelStart = 0
    End If
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
    TextBox2.EnterFieldBehavior = 1
    TextBox2_MouseDown 0, 1, 0, 0
End Sub

Son varias peticiones en una sola pregunta. De hecho para la primer petición se requieren 3 eventos.

Puedes crear una pregunta por cada petición.

Saludos. Dante Amor

Recuerda valorar la respuesta.

¿No tengo el evento enter?

No tengo un userform, porque estoy creando un formulario en excel. ¿Entonces dónde pondría tu código?

¿Puedes especificar qué tienes?

Un textbox de formulario

O un textbox de control activex

Tengo todo los objetos de control activex. Gracias

Cambia las macros anteriores y pon esto en el código de tu hoja

Private Sub TextBox2_GotFocus()
'Por.Dante Amor
    If TextBox2 = "por defecto" Then
        TextBox2.SelStart = 0
    End If
End Sub
'
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Por.Dante Amor
    If TextBox2 = "" Then
        TextBox2 = "por defecto"
        TextBox2.SelStart = 0
    End If
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Se me pasó, tienes que poner la propiedad EnterFiledBehavior = 1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macros para cambiar el color del "boton comando" al pasar el mause en un formulario Excel

Tengo un formulario y quisiera sabar si hay una forma de que los Botonos de Comando cambien de color con tan solo pasar el mause en un formulario y luego regresen a su color normal cuandodeja de estar en ese Boton.
1 respuesta

No permitir ingresar datos repetidos mediante textbox

Tengo un formulario el cual genera una base de datos.. Con 10 textbox Quisiera saber como hacer que si en mi base de datos ponen un dato ya repetido en el textbox1 y en el textbox10 este no me permita continuar... Y que los textbox se puedan...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Sobreescribir en un TextBox

Quisiera hacerte la siguiente pregunta : ¿Cómo lo puedo hacer para "sobreescribir" texto en un "TextBox" ..?, sin que estos se desplazen mientras escribo. No quiero usar el RichTextBox porque pierdo las propiedades del TextBox. . Si existe alguna forma.
2 respuestas

Cambiar el color de un commandButton en el evento click

De nuevo estoy por aca para hacerles una consulta. Tengo en un formulario varios botones y lo que estoy tratando de hacer es que cuando le de click en uno de ellos me cambie el color; osea que mientras este activo sea de un color y cuando no, quede...
2 respuestas

Formato de hora en un textbox

Que tal buen dia espero me puedan ayudar en un formulario con un texbox voy a capturar la hora de un trabajador desconozco si se pudiera hacer es al momento que se capture la hora aparezcan los " : " por default y después que capture los minutos,...
1 respuesta

Hacer que un botón se mueva automáticamente

Como están mi pregunta es sencilla ! Solo le pido a algún experto si es tan amable de pasarme un código ... Que lo que quiero que haga es que el botón se mueva automáticamente, que al botón no le pueda hacerle un click por que se te escapa del...
1 respuesta

Poder pasar de un textbox a otro textbox frame

Tengo un formulario en cual capturo un dato en un textbox y luego de darle enter debe pasar a otro textbox en un frame distinto dentro del mismo formulario. Me podrían decir que estoy haciendo mal que cuando doy el enter se me pierde el cursor y no...
1 respuesta

Mover un form en vb

Quiero poder cambiarle la apariencia a un formulario en VB. Quiero que el form no tenga bordes y Poder porner (por ej) un shape o un frame y cuando arrastre este se mueva la ventana (el form) ____________ |___________X| (shape + una image(x)) | | | |...
1 respuesta

Como validar datos repetidos en una columna por medio de un formulario con una textbox

Tengo la siguiente situación, por medio de una textbox ingreso en una columna muchos datos, de tal manera que creo bastantes registros repetidos, necesito que al ir agregando datos, no me permita registrar dos veces el mismo registro. Me ayudarían...
1 respuesta