James Bond

Este es un ejemplo Sub test() nombre = Range("b2") Windows(nombre & ".xlsm").Activate End Sub la macro toma el nombre del rango b2 de cualquier hoja y le anexa la extension, para que active esa ventana en especifico, el chiste es que tienes que tener...

y porque no usas el modulo del formulario Private Sub UserForm_Activate()?, este modulo le indica a la macro que cada que el formulario se active se ejecute en automático, así te ahorras código al hacerlo en un modulo externo. Private Sub...

Lo que quieres usar es un datagrid que VBA excel dejo de utilizar del 2007 en adelante, como alternativas puedes usar listbox es más fácil y esta disponible en cualquier equipo que tenga excel de cualquier version, la otra opción es un listview con...

Crea un formulario con dos combobox y 1 listbox y agrega al formulario el siguiente código, luego crea una tabla de productos empezando en la celda A1 y corres la macro, esta llenara el combobox 1 con los datos de la línea de negocio, luego en el...

Prueba con esta macro, la instrucción small lee los valores mínimo orden ascendente, es decir toma el primer valor más pequeño y lo muestra, luego toma el segundo valor más pequeños y lo muestra, después va y busca el tercer numero más pequeño y así...

Puedes ponerlo así on error resume next instruccion on error goto 0 on error resume next instruccion on error goto 0 El on error goto 0 es para resetear el error si omites la instrucción el numero error se queda almacenado y puede dar problemas más...

Esta es la macro corregida solo cambia las comas por ; (en caso de error) Sub AA() ActiveCell.FormulaLocal = "=Si(C1<>" & """""" & ",E1,1)" End Sub

Prueba con esta macro, solo cambia el a1 y el a2 de las primeras 2 líneas de acuerdo a los datos que manejes en este caso A1 son los títulos Sub ordenar() filas = Range("a1").CurrentRegion.Rows.Count - 1 Set datos = Range("a2").Resize(filas, 2) With...

Lo que estas pidiendo es un algoritmo carnívoro como el que se usa para resolver como dar el cambio de 3 moneda, ve la imagen, como no solo dices que los datos los sacas de una tabla dinámica lo único que tienes que hacer es copiar dicha tabla a una...

Prueba con esta macro Sub numerar() With Range("A3") .Value = 1 .AutoFill Destination:=Range("A3:A16"), Type:=xlFillSeries End With End Sub