chavero

Elsa Matilde respondió: Necesitas controlar el cambio en las distintas hojas, con el evento Change: Private Sub Worksheet_Change(ByVal Target As Range) End Sub Allí tendrás que indicar en qué rango se introducirán valores que deben ser acumulados. Por ej: Private Sub...

angelcrisnor respondió: Lo único que veo es que en el Modulo_OC no tienes declarada la variable Cierre como pública. Probablemente eso hace que cuando se cierre ese archivo, en Workbook_BeforeClose la variable Cierre no valga "SI" y se comporte de distinta forma al resto....

angelcrisnor respondió: Necesitas una macro que te habilite o deshabilite los botones según el nombre de usuario. Esta que te paso más abajo es muy básica pero te sirve para que a partir de ella le cambies los usuarios y los nombres de botones y hojas según convenga. Para...

Elsa Matilde respondió: Podrías agregar este control: For Each celda In Range("A17:A" & ultfila) Workbooks("Modulo_Inventario.xls").Activate esta = 0 for i = 1 to Sheets.count if sheets(i).name = celda.value then esta = 1 next if esta = 0 then msgbox "No se encuentra la...

Elsa Matilde respondió: Como la instrucción anterior es un FIND, imagino que el error puede darse cuando no encuentra lo que estás buscando. Debieras incluir una línea a continuación del Set: If not celda is nothing then 'es decir que si no está vacía la búsqueda, sí puede...

Isaac Reyes respondió: Eesta vez te daré directrices para que resuelvas tu problema, cualquier cosa, me consultas. 1. Todas las hojas las encuentras en una colección llamada Sheets 2. La propiedad count de la colección te dice cuantas hojas tienes (Sheets. Count) 3. Puedes...

Elsa Matilde respondió: Como ya estás incrementando la celda del contador al momento del Enter, luego tenés que borrar 1 al momento del error. Además así como lo veo se te ejecuta 2 veces la rutina de CANTIDAD, porque al limpiarla también se ejecuta, por eso le agregué la...