Foro Excel

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!!!

TextBox1.Text = Sheets("hoja1").Range("A2")

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