En este capítulo daremos continuidad a lo avanzado anteriormente y añadiremos los botones con vínculos y un poco de código VBA (No te preocupes, te dejamos el código escrito y probado para que lo copies y pegues).
Hay dos formas de crear botones: Con macros y con vínculos. Hagamos el método con vínculos, ya que es de lejos el más indicado y eficiente.
Añadiendo botones hacia páginas con vínculos
Los pasos siguientes están muy bien explicados, pero nos detendremos un momento para explicar algo que nos piden mucho, que consiste en crear los botones hacia otras hojas de un solo documento.
Un botón en Excel no es más que una forma con un vínculo.
Lo primero que debemos hacer, es insertar una forma, puede ser un rectángulo, estrella, círculo, o lo que mejor te parezca. También puedes hacerlo con íconos, imágenes, etc.
Luego, hacemos clic derecho en el borde de la forma creada y seleccionamos la opción «Vínculo».
Por último, seleccionas la hoja a la que quieras que redirija el botón que estás creando. Clic en Aceptar,
Añadiendo un botón de búsqueda inteligente
Código 1
Private Sub LISTA_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
codigo = Me.LISTA.List(LISTA.ListIndex, 0)
Sheets("Entrada").Select
Range("B6").EntireRow.Insert
Range("D6").Select
ActiveCell.Value = codigo
Unload Me
End Sub
Código 2
Private Sub CommandButton1_Click()
numerodedatos = Hoja1.Range("B" & Rows.Count).End(xlUp).Row
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
y = 0
For fila = 6 To numerodedatos
descripcion = Hoja1.Cells(fila, 3).Value
If UCase(descripcion) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
LISTA.AddItem
LISTA.List(y, 0) = Hoja1.Cells(fila, 2).Value
LISTA.List(y, 1) = Hoja1.Cells(fila, 3).Value
LISTA.List(y, 2) = Hoja1.Cells(fila, 4).Value
LISTA.List(y, 3) = Hoja1.Cells(fila, 5).Value
LISTA.List(y, 4) = Hoja1.Cells(fila, 6).Value
y = y + 1
End If
Next
End Sub
Código 3
Private Sub UserForm_Activate()
LISTA.RowSource = "INVENTARIO"
LISTA.ColumnCount = 5
End Sub
Y tú, ¿ya estás creando tu inventario?
Compártenos tu experiencia en los comentarios, agradecemos mucho cualquier aporte adicional a lo que exponemos en los capítulos.
