Excel - textbox con datos de una celda

textbox con datos de una celda

Publicado por rbate (18 intervenciones) el 03/02/2007 23:39:16

Hola a todos

Me gustaria saber cual es la linea de codigo que permite mostrar en un textbox de un userform el valor de un determinada celda que tengamos en nuestro libro.

Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:textbox con datos de una celda

Publicado por pablo (19 intervenciones) el 04/02/2007 11:12:54

para hacer este ejercicio procurate una userform con combobox, textbox a necesidad y si quieres mostrar todos los valores en una listbox tambien te mando el codigo

Private Sub ComboBox1_Click()

‘esta funcion evita que salte la pantalla
Application.ScreenUpdating = False

‘hago limpiar la zona que usere para extraccion datos
Worksheets(2).Range("G1:H10").ClearContents

Dim CL As Object 'declaro la variable CL

'selecciono la hoja 1
Worksheets(1).Select

'para cada celda en el range A1:A20 foglio1
For Each CL In Worksheets(1).Range("A1:A20")

‘si la celda es igual al valor seleccionado en la combobox
If CL = ComboBox1.Text Then

'entonces selecciona las dos celdas que estan a la derecha de la que estabamos buscando
Range(CL.Offset(0, 1), CL.Offset(0, 2)).Select

'copio los dos valores
Selection.Copy

'busco el primer renglon libre a partir del renglon 1
'y en la columna 7 (G)
Dim iRow As Integer
iRow = 1
While Cells(iRow, 1).Columns(7).Value <> ""
iRow = iRow + 1
Wend

'encontrado el renglon con la celda vacia, pega los datos copiados
'con Selection.Copy
Selection.Copy Cells(iRow, 1).Columns(7)

End If
Next
TextBox1 = ActiveCell.Value
TextBox2 = ActiveCell.Offset(0, 0).Value
TextBox3 = ActiveCell.Offset(0, 1).Value

‘y si queres hacer funcionar una listbox es asi
ListBox1.RowSource = "Foglio2!G1:H10"

End Sub

espero que te ayude
saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

RE:textbox con datos de una celda

Publicado por pablo (19 intervenciones) el 04/02/2007 11:14:56

olvide mandarte el codigo que va en el userform ahi va para activar la combobox

Private Sub UserForm_Activate()

ComboBox1.RowSource = ("A1:A10")

End Sub

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por rbate (18 intervenciones) el 04/02/2007 14:37:24

Muchas gracias

Pero no estoy seguro de haberme explicado bien.

Necesito algo tipo:

TextBox1.Text = XXXXXXXXX.Value

Siendo esas XXXXXXXXXXX por ejemplo la Celda A3 de la hoja HOJA1

Es decir, que un cuadro de texto que tengo incluido en un userform no sirva para introducir ningun dato, sino que sirva para indicar una cantidad que ya tengo introducida manualmente en la celda A3 de la HOJA1 (sin que el usuario la pueda cambiar) y que cuando el userform guarde los datos en la hoja correspondiente (con el botón GUARDAR, que ya lo tengo funcionando) ese dato del TextBox1 también se guarde.

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por pablo (19 intervenciones) el 04/02/2007 14:58:07

mira si yo no entendi mal queres una userform que cuando se busca un dato particular estando en combobox, etc. te encuentre en tu base de datos y lo cargue en tu userform.

ejemplo

reloj(columna1),color=rojo(columna2),.......

si a mi userform le pido que me busque reloj en una textbox me tiene que cargar todos los datos como color, etc.

si no es esto lo que buscas entonces disculpa pero entendi mal

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por rbate (18 intervenciones) el 04/02/2007 15:19:53

Disculpa, pero lo entendiste mal porque yo no me explique bien.

No necesito buscar ningun valor en función de otro valor introducido, solamente necesito saber como mostrar el valor de una celda de mi libro en un textbox de la userform.

Ya he conseguido lo mismo pero sin hacer referencia a ninguna celda, sino a la función fecha para poner el dia de ayer (TextBox2.Text = Date - 1)

Asique supongo que lo que busco es algo tipo:

TextBox1.Text = XXXXXXXXXXXX.Value

El problema es que no se como definir ese XXXXXXXXXXXX.

¿Podria ser algo como WorkSheet("HOJA1").Cells(1,1).Value para la celda A1 de la HOJA1?

Ayuda Please

Valora esta respuesta

Comentar

Pos: 9

Val: 313

RE:textbox con datos de una celda

Publicado por Abraham Valencia (2415 intervenciones) el 04/02/2007 16:30:17

yo lo entendi mas facil, quieres q al cargar un userform, en un textbox te aparesca el valor de una celda x de cierta hoja x. entonces, en el codigo del userform:

Private Sub UserForm_Initialize()
TextBox1 = Hoja1.[a1]
End Sub

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por rbate (18 intervenciones) el 04/02/2007 22:02:27

Gracias Abraham, por ahi deben ir los tiros, pero sigue sin funcionarme. Se abre el userform con el textbox en blanco a pesar de poner lo que tu me has dicho.

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por guiyo22 (1 intervención) el 08/11/2011 02:10:22

Abraham respondiendo a lo que aclaras en este foro, yo tambien estoy cpon el mismo problema, a ver si podes ayudar.
yo cree un userform, dentro del el hice un multipage. en la hoja 4 del multipoage tengo varios textbox

la idea mia es que en una hoja de calculos tengo resultados de operaciones extraidos de otras hojas
yo qiusiera que en cada respectivo textbox me aparezca ese resultado o sea

que al hacer clic sobre la hoja 4 del multipage denominada BALANCE me paarezcan en cada textbox creado los resultados ya calculados en una hoja de calculo

esperro haberme explicado gracias

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Christian Araujo (1 intervención) el 18/05/2012 00:26:45

Hola que tal respondiendo con la inquietud que ahora exponen quisiera dar mi aporte espero les sirva de gran utlidad, en realidad no es muy dificil visualizar los datos de una determinada celda en un textbox y algo del codigo que pone brbate casi acierta en realidad el codigo que funciona es el siguiente:

TextBox1 = Worksheets("Hoja1").Range("a1").Value

que puede ser escrito dentro de un click de un boton

Private Sub CommandButton2_Click()
TextBox1 = Worksheets("Hoja1").Range("a1").Value
End Sub

o de solo ingresar al userform en donde se necuentra el textbox

Private Sub UserForm_Initialize()
TextBox1 = Worksheets("Hoja1").Range("a1").Value
End Sub

Saludos.....

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Pedro (1 intervención) el 28/06/2012 23:28:32

Buenas tardes,
Considero muy bueno este foro sobre todo para los que apenas estamos aprendiendo sobre VB, tengo un par de dudas que espero me puedan aclarar:

Del codigo arriba descrito el cual copio:

la primera duda es para que requiero la opcion en rojo y mas adelante no la llamo en el codigo?
hago limpiar la zona que usere para extraccion datos
Worksheets(2).Range("G1:H10").ClearContents

Dim CL As Object 'declaro la variable CL

'selecciono la hoja 1
Worksheets(1).Select

'para cada celda en el range A1:A20 foglio1
For Each CL In Worksheets(1).Range("A1:A20")

‘si la celda es igual al valor seleccionado en la combobox
If CL = ComboBox1.Text Then

'entonces selecciona las dos celdas que estan a la derecha de la que estabamos buscando
Range(CL.Offset(0, 1), CL.Offset(0, 2)).Select
'copio los dos valores
Selection.Copy

En que hoja se busca este renglon y por que buscar la columna 7
'busco el primer renglon libre a partir del renglon 1
'y en la columna 7 (G)
Dim iRow As Integer
iRow = 1
While Cells(iRow, 1).Columns(7).Value <> ""
iRow = iRow + 1
Wend

'encontrado el renglon con la celda vacia, pega los datos copiados
'con Selection.Copy
Selection.Copy Cells(iRow, 1).Columns(7)

Espero puedan aclararme esto.
Adicional copie tal cual su codigo logicamente cambiando los nombres de las hojas y las celdas y me arroja el siguiente error:
El numero de argumentos es incorrecto o la asignacion de propiedad no es valida.

Espero sus comentarios muchas gracias....

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por David Camacho (2 intervenciones) el 04/11/2012 03:51:38

Saludos Foro, quiero agradecer por el aporte, mas espcificamente a cristian araujo jaramillo (hasta de pronto primos por el jaramillo jejejeje),, estaba buscando una solucion a un caso similar y me sirvio ese aporte,,, Gracias

David

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Orlando (1 intervención) el 13/12/2018 21:12:31

saludos. Utilice esta forma y me fue de gran utilidad. Muchas gracias

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Leonardo (1 intervención) el 14/08/2022 00:08:33

Gracias, funciona correctamente, era lo que buscaba

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por David (1 intervención) el 27/11/2015 16:06:05

me sirvió mucho este código, ahora lo que quiero es que cuando me aparezca en mi textbox, me aparezca como moneda, el problema que tengo es que si me sale como moneda pero no es el mismo valor que tengo en la celda
el docigo que tengo es el siguiente
TextBox7 = Format(TextBox7, "#,###,###.00") este esta en textbox7_afterupdate
pero me sirve solo si yo ingreso la cantidad, con el nuevo código que es
TextBox1 = Hoja1.[a1] este lo pongo en userform_initialize
me sale mal, por ejempolo en la celda A1 tengo 1,441.89 y en el textbox me apareze 144,189.00
que puedo hacer o que código estoy poniendo mal

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por SILVERIO REYES (1 intervención) el 31/10/2013 17:59:18

BUEN DIA
QUIERO LIGAR DOS TEXTBOX
EL PRIMERO CLAVE [ 100 ]
EL SEGUNDO CIUDAD [ VERACRUZ ]

QUIERO UNA MACRO PARA QUE AL INGRESAR LA CLAVE
ME DE EN AUTOMATICO EL NOMBRE EN EL TEXTBOX CIUDAD
ESTOS DATOS LOS TENGO EN UNA HOJA DE EXCEL
A1 100 B1 VERACRUZ
A2 200 B2 GUADALAJARA
A3 300 B3 MEXICO
Y ASI SUCESIVAMENTE

ESPERO ME PUEDAN AYUDAR, LES ESTARE MUY AGRADECIDO
ESPERO SU RESPUESTA,,,
GRACIAS.......
SALU2.......

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por allen ramos (1 intervención) el 11/04/2015 05:17:56

textbox1.text = Range("A1").value

De esa manera en un caja de texto mostrara la informacion de tu celda a1

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Diego Jorquera (1 intervención) el 02/12/2015 17:18:17

Estimado yo si necesito ese codigo
te explico, quiero ingresar un codigo de una sucursal y que al costado en otro texbox me muestre el nombre de esta sucursar, como la funsion buscar valor. espero me alla explicado y me puedas ayudar..

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Paolo Muñoz (1 intervención) el 24/11/2014 06:30:16

Hola

Aquí algo mas sencillo para tu problema

Private Sub CommandButton3_Click()

UserForm1.Hide

End Sub

Private Sub CommandButton2_click()

DNI = TextBox4.Text

If Len(DNI) = 8 And IsNumeric(DNI) Then

ult = Cells(Rows.Count, 2).End(xlUp).Row

Cells(ult + 1, 2) = UCase(TextBox1.Text)

Cells(ult + 1, 3) = UCase(TextBox2.Text)

Cells(ult + 1, 4) = UCase(TextBox3.Text)

Cells(ult + 1, 5) = TextBox4.Text

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

Else

MsgBox "Ingrese un DNI válido"

End If

End Sub

Valora esta respuesta

Comentar

RE:textbox con datos de una celda

Publicado por Fabrizio (1 intervención) el 03/02/2017 17:03:03

Hola tengo el siguiente ComboBox, con una lista de fechas pero al ejecutar el combobox y seleccionar una fecha me cambia los numero y lo deja sin formato

Private Sub ComboBox12_Change()

Dim N As Long

N = ComboBox12.ListIndex + 2

Label51 = Hoja7.Cells(N, 2)

End Sub

ejemplo Lista 01-02-2017 y lo deja como 47525

Valora esta respuesta

Comentar

RE:textbox con datos de una celda para imprimir

Publicado por Antonio Felipe Suarez (1 intervención) el 28/03/2017 22:19:02

Buenas tardes, tengo el siguiente Macro que busca en una hoja de datos de Excel una clave de registro de una persona y al tenerlo muestra los demás datos como nombre, dirección, edad, etc.. en los respectivos Textbox.

Private Sub ComboBox2_Change()

Dim var2 As String

If ComboBox2 = "" Then

Else

CommandButton1.Locked = False

Sheets("beneficiarios").Activate

If ComboBox2 = Empty Then

MsgBox "Para modificar primero seleccione beneficiarios", vbInformation, "Almacen"

ComboBox2.ListIndex = 0

ComboBox2.SetFocus

End If

var2 = ComboBox2.Column(0)

Cells.Find(What:=ComboBox2.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _

        , SearchFormat:=False).Activate

If var2 = ActiveCell.Value Then

TextBox1.Value = ActiveCell.Value

TextBox2 = ActiveCell.Offset(0, 1)

TextBox3 = ActiveCell.Offset(0, 2)

TextBox4 = ActiveCell.Offset(0, 3)

TextBox5 = ActiveCell.Offset(0, 4)

TextBox6 = ActiveCell.Offset(0, 5)

TextBox7 = ActiveCell.Offset(0, 6)

TextBox8 = ActiveCell.Offset(0, 7)

TextBox2.Locked = False

TextBox3.Locked = False

TextBox4.Locked = False

TextBox5.Locked = False

TextBox6.Locked = False

TextBox7.Locked = False

TextBox8.Locked = False

End If

End If

End Sub

Lo que yo necesito, es que los datos que se muestran en los TextBox poder imprimirlos en un formato que tengo en otra hoja. Para que cada que yo realice una búsqueda pueda imprimir los resultados en ese formato específico. De antemano agradezco su amable atención y espero que alguien me pueda asesorar.

Valora esta respuesta

Comentar

suma de horas

no puedo hayar el porcentaje de horas help please