Visualizar información en un multipage
Quiero que un multipage se vea información en sus textbox
Estoy usando el siguiente código pero solo me muestra datos en la primera página en las otras no muestra nada
Private Sub TextBox3_Change()
Dim articulo As String
Dim idBusca As String
Dim fila As Integer
Application.ScreenUpdating = False
Sheets("BD").Select
Range("A2").Select
fila = 1
articulo = TextBox3
Do While idBusca <> articulo
fila = fila + 1
idBusca = Range("c" & fila).Value
Loop
' visualización del primer rango de pagina 1/1
TextBox_articulo = Range("C" & fila).Value
TextBox_cliente = Range("A" & fila).Value
TextBox_tintas = Range("E" & fila).Value
TextBox_prensa = Range("F" & fila).Value
TextBox_Prensista = Range("G" & fila).Value
TextBox_fecha = Range("B" & fila).Value
TextBox_realizo = Range("H" & fila).Value
TextBox_revizo = Range("i" & fila).Value
TextBox_observaciones = Range("j" & fila).Value
'SEGUNDA PAGINA
TextBox_material1 = Range("K2" & fila).Value
TextBox_laminador1 = Range("L2" & fila).Value
TextBox_material2 = Range("M2" & fila).Value
TextBox_laminador2 = Range("N2" & fila).Value
Respuesta de Dante Amor
1
H ol a:
En estas líneas estás poniendo un número 2 demás:
TextBox_material1 = Range("K2" & fila).Value
TextBox_laminador1 = Range("L2" & fila).Value
TextBox_material2 = Range("M2" & fila).Value
TextBox_laminador2 = Range("N2" & fila).ValueDebe ser así:
TextBox_material1 = Range("K" & fila).Value
TextBox_laminador1 = Range("L" & fila).Value
TextBox_material2 = Range("M" & fila).Value
TextBox_laminador2 = Range("N" & fila).Value
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
