Jaime Segura

En el módulo de hoja (no módulo común) introduce el siguiente código: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not (Intersect(Target, Range("F15:H30")) Is Nothing) Then Range("A1") =...

Algo así como: Sub Lista() Dim e As Name, i as Integer i = 1 Cells(i, "A") = "Nombre" Cells(i, "B") = "Fórmula" For Each e In Names i = i + 1 Cells(i, "A") = e.Name Cells(i, "B").NumberFormat = "@" Cells(i, "B") = e.RefersToLocal Next e End Sub

En tu código... despues de mostrar el userform... (estoy suponiedo que tu userform se llama "userform1", pero lo puedes adaptar) incluye: Application. OnTime Now + TimeSerial(0, 0, 5), "esconde" Y en un módulo común (no el propio userform) copia el...

Programa una macro vacía asociadas a cada combinacion de teclas La sintaxis es: Application. Onkey(combinacion, macrovacia) Por ejemplo: La macro vacía sería Sub MacroVacía() End Sub Y para programar Alt+F4 en la macro que ya tengas (debería ser la...

Usa buscar solver... Es un procedimiento un poco pesado, pero en Internet hay varios video tutoriales. Solver, genera un modelo de programación lineal, en el cual MAXIMIZAS o MINIMIZAS un valor, dependiendo de otro, e inclusive incluyendo algunos...

Combinalas con SI. ERROR Arma dos fórmulas, cada una con el BUSCARV adecuado para que busque un "tipo" de código =BUSCARV(dato, A:C, 3,0) sería para buscar en la columna A y dar el resultado de la C =BUSCARV(dato, B:C, 2,0) sería para buscar en la...

En la módulo de hoja (no módulo común) de la hoja que quieres "programar", escribe: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0,0) = "B4" Then ' cambia B4 por la celda real... ' aqui pon la macro End If End Sub

Creo entender de tus afirmaciones que en la columna B y C... ¿aparezcan los artículos y marcas que tienen que ser "leídos" (de manera inteligente) de la columna D? Si es asi... perfecto... Necesitas sin embargo crear un "glosario" o "diccionario" de...

Lo primero que tienes que preguntarte es... ¿Qué tamaño tiene el archivo?... si es grande es normal que demore. Excel "comprime" las hojas antes de guardarlas... y las descomprime antes de abrirlas... Si tu archivo (ya comprimido) es grande, piensa...

Asumiendo que tu tabla tiene datos hasta la fila 1000 (adáptala a tu datos reales) Copia la siguiente fórmula matricial en G2 =SI.ERROR(INDIRECTO("'Hoja1'!G"&MIN(SI( (Hoja1!C$1:C$1000=A2)*(Hoja1!G$1:G$1000<>""),FILA(Hoja1!G$1:G$1000),""))),"") Y como...