Tomar el valor de una celda en un textbox

Tengo el siguiente código:

Private Sub TextBox5_Change()
TextBox5.Value = ActiveSheet.Range("G1").Value
End Sub

Mi idea es que tome el valor de la celda G1 y la coloque en el textbox, a manera de información de cuantos items tengo, en la celda G1 obtengo el valor por medio de una formula.

El textbox me arroja el valor que necesito, pero primero debo teclear alguna letra en el textbox para que me de el resultado.

La idea es que al abrirse el userform, este textbox5 se active y muestre el valor de la celda automáticamente. Cabe indicar que el valor de la celda es variable.

1 respuesta

Respuesta
5

Tu instrucción no tiene que ir en ese evento sino en alguno del Userform (Ini5tialize o Acivate) o en el de algún botón.

Si lo necesitas cuando se abre el Userform utilizá Initialize

Private Sub UserForm_Initialize()
TextBox5.Value = ActiveSheet.Range("G1").Value

End Sub

Sdos y no dejes la consulta sin finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar procesos de una interfaz

¿Cómo puedo hacer para que al presionar un botón en la hoja de calculo de excel me apreté también el calcular de la interfaz y asignarle una celda al texbox1? Aquí esta mi libro saludos y espero me puedan ayudar...
2 respuestas

Error 13 en tiempo de ejecución no coinciden los tipos excel

Tengo un UF que me saca un error que realmente no he podido descifrar. No me deja cargar la userform y cuando ejecuto el botón1 me genera un error al poner los datos en la base de datos . Código Ption Explicit Private Declare Function FindWindow Lib...
1 respuesta

Manejo de Formularios VBA en Excel

Tengo un cuadro en excel de ciertas cosas, en el que para adicionar información utilizo un formulario con unas TextBox, y luego cada celda toma el valor de determinada TextBox, mi pregunta es la siguiente, como hago para que la TextBox me tome el...
1 respuesta

Desbordamiento en Macro

Solicito de su colaboración para saber por qué al ejecutar esta macro me arroja error en la linea que aparece subrayada y con negrita. Mil gracias por su oportuna y pronta colaboración. Beatriz Private Sub CommandButton1_Click() Rem inserta un...
1 respuesta

¿Cómo asignar a un label en un Userform el valor de una celda en la hoja de Excel?

Nuevamente recurro a tus conocimientos. ¿Cómo puedo hacer para que un label que tengo en un Userform se asigne automáticamente el valor de una celda en una hoja de cálculo del mismo libro en el cual esta el Userform?
1 respuesta

Textbox campo obligatorio

Como estas Como hago para que mi textbox se vuelva obligatorio y no me deje seguir realizando mi trabajo y ademas de esto cuando digite en campo y no me encuentre la información en la base de datos que tengo y salga un mensaje de que no existe y me...
1 respuesta

Impedir textbox vacíos en userform

Mi problema es que tengo un userform que copia los datos de los textbox a celdas de una hoja de excel, y que al apretar un botón, ejecuta una macro usando esos datos, pero si dosn textbox en concreto no está lleno antes de apretar el botón, el...
1 respuesta

¿ComboBox se ejecute sólo cuando cambia el valor?

Soy nuevo en este foro y algo también en vba, por lo que espero no ser muy inocente con la pregunta... Tengo en un UserForm un ComboBox al que le tengo asignada una macro y el valor de una celda. Al ejecutar el UserForm, se ejecuta también la macro...
1 respuesta

Consecutivo automático en vba

Tengo en excel (Visual Basic) un Commandbutton en el que deseo que ak darle clic me lleve automáticamente un numero consecutivo en un label. El código que tengo para el commandbutton es: Private Sub CommandButton3_Click() Dim contador As Integer...
1 respuesta

¿Cómo hacer que mi formulario(Excel) se adapte al tamaño del monitor, sin que me distorsione mi userform?

Tengo un userform de inicio(arranque) y oculta el archivo de Excel. Pero cuando lo quiero abrir en otra computadora ajeno al que ocupe para diseñarlo... El userform no se adapta al tamaño del monitor(resolución) ¿Habrá algún código que me ayude?
2 respuestas