Como llenar un TextBox Con un valor de una celda.

Solo consultas sobre Bases de Datos y Tablas Dinámicas Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Como llenar un TextBox Con un valor de una celda.

Notapor mike_calor » 17 Feb 2010 20:45

hola, Saludos.

Tengo este codigo y lo que hace es llenarme un ListBox con los datos de la hoja2 (Hoja Activa en ese momento y eso esta ok), pero en el mismo formulario me gustaria que en un textBox mostrara el valor de la celda A2 pero de la hoja1.

Private Sub UserForm_Initialize()
UltimaFila = ActiveSheet.Cells(65536, 1).End(xlUp).Row
For x = 2 To UltimaFila
LIS.AddItem ""
LIS.List(LIS.ListCount - 1, 0) = ActiveSheet.Cells(x, 1)
LIS.List(LIS.ListCount - 1, 1) = ActiveSheet.Cells(x, 2)
LIS.List(LIS.ListCount - 1, 2) = ActiveSheet.Cells(x, 3)
LIS.List(LIS.ListCount - 1, 3) = ActiveSheet.Cells(x, 4)
LIS.List(LIS.ListCount - 1, 4) = ActiveSheet.Cells(x, 5)
LIS.List(LIS.ListCount - 1, 5) = x
Next x
En sub

Espero su ayuda. Gracias!!!
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
mike_calor
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Nov 2004 11:51
Ubicación: Camp

Re: Como llenar un TextBox Con un valor de una celda.

Notapor Miguelpo » 19 Feb 2010 22:57

TextBox1.Text = Sheets("hoja1").Range("A2")
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Miguelpo
Miembro Frecuente
Miembro Frecuente
 
Registrado: 02 May 2006 17:42
Ubicación: Lima

Re: Como llenar un TextBox Con un valor de una celda.

Notapor Adrian » 20 Feb 2010 15:27

A lo ya aportado por Miguelpo, puedo acotar que puedes tener otra alternativa de llenar el combobox:

Código: Seleccionar todo
Private Sub UserForm_Initialize()
Dim UltFila As Integer
UltFila = Sheets(2).Range("A65536").End(xlUp).Row
Sheets(2).Select
Me.ComboBox1.RowSource = "A1:A" & UltFila
TextBox1.Text = Sheets(1).Range("A2")
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Bases de Datos y Tablas Dinámicas

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot], Héctor Miguel y 1 invitado