Mostrar datos actualizados de hoja en listbox
Expertos, tengo un formulario con 2 textbox para registrar datos, un listbox y botón, lo que necesito es que cuando introduzca datos por medio de los 2 textbox ver los datos automáticamente en el listbox y un dato de suma en un 3er textbox. Tengo esta macro pero veo un poco de dificultad porque me da un pantallazo de hoja y el 3er textbox no se actualiza. La hoja siempre debe estar oculta
Private Sub UserForm_Initialize()
Hoja18.Visible = xlSheetVisible
Hoja18.Select
Dim rngMirango As Range
Dim rngMirango2 As Range
Dim intColumnas As Integer
strTabla = "MiTabla"
On Error Resume Next
ActiveWorkbook.Names("DIARIO").Delete
Set rngMirango = ActiveSheet.Range("A8").CurrentRegion
Set rngMirango2 = rngMirango.Offset(8, 0).Resize(rngMirango.Rows.Count - 1, rngMirango.Columns.Count)
rngMirango2.Name = strTabla
intColumnas = rngMirango2.Columns.Count
With Lista
.ColumnCount = intColumnas
.ColumnWidths = "110;75;75;80;01;01;"
.ColumnHeads = True
End With
Lista.RowSource = strTabla
On Error GoTo 0
Hoja18.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
ComboBox1.AddItem "DEPOSITO"
ComboBox1.AddItem "EFECTIVO"
TextBox3.Text = Sheets("DIARIO").Range("C2").Value
End Sub
1 Respuesta
¿Y los datos que pusiste en los textobx1 y 2 son para filtrar la información que vas a poner en el listbox?
Envíame tu archivo con le formulario para adaptar el código.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “nery lopez” y el título de esta pregunta.
¡Gracias! Ya le envíe el archivo
Experto Dante ya le envíe el archivo por correo
Te anexo la macro actualizada para que la hoja permanezca oculta
Private Sub UserForm_Initialize()
'Hoja1.Visible = xlSheetVisible
'Hoja1.Select
Dim rngMirango As Range
Dim rngMirango2 As Range
Dim intColumnas As Integer
strTabla = "MiTabla"
On Error Resume Next
ActiveWorkbook.Names("DIARIO").Delete
Set rngMirango = Hoja1.Range("A8").CurrentRegion
Set rngMirango2 = rngMirango.Offset(8, 0).Resize(rngMirango.Rows.Count - 1, rngMirango.Columns.Count)
rngMirango2.Name = strTabla
intColumnas = rngMirango2.Columns.Count
With Lista
.ColumnCount = intColumnas
.ColumnWidths = "110;75;75;80;01;01;"
.ColumnHeads = True
End With
Lista.RowSource = strTabla
On Error GoTo 0
'Hoja1.Visible = xlSheetVeryHidden
'Application.ScreenUpdating = True
ComboBox1.AddItem "DEPOSITO"
ComboBox1.AddItem "EFECTIVO"
TextBox3.Text = Hoja1.Range("C2").Value
TextBox8.Text = Hoja1.Range("B3").Value
TextBox4.Text = Hoja1.Range("B4").Value
TextBox5.Text = Hoja1.Range("B5").Value
TextBox6.Text = Hoja1.Range("B6").Value
TextBox9.Text = Hoja1.Range("B7").Value
TextBox10.Text = Hoja1.Range("C7").Value
Me.DTPicker1 = Now
End Sub
