Luis_P

Crea un macro cualquiera ( con el grabador de macros) Luego presiona alt+f8, selecciona el macro y selecciona modificar. Reemplaza todo el macro por esto: Sub imprime() Application.Dialogs(xlDialogPrint).Show End Sub Graba y ya esta. Tienes un macro...

A ver si te comprendí Pc1 pc2 Creaste macro en pc1 y en cualquier libro de esa pc1 funciona el macro Y ahora deseas que lo haga en pc2 Bueno, 2 opciones: 1. Copia el libro con el macro en la pc2 2. Exporta el macro como objeto (modulo) - desde el...

Dale no hay problemas. Necesitas pasarle la nueva patologuia a la hoja desde el form y luego de eso volver a cargar el combo de pataloguias para que se registre el nuevo dato agregado. Entonces, suponiendo que la hoja en cuestión es la Hoja2 y las...

Probe tu codigo y funcion perfecto... De todas formas prueba esto: ve a las propiedades del form y en la propiedad "showmodal" dejala en false

¿Cómo deseas que sea esa advertencia?

Pero que me las copie todas las columnas juntas... Excel no permite el comando copy en selecciones múltiples que no sean un rango. Lo debes hacer una a la vez. Así: esta vez separado en 2 sub uno copia y otro pega Option Explicit Private Sub...

Ya, entonces debes crear un modulo para control de excepciones, Ejemplo: al inicio de cada sub que deseas controlar pones on local error goto mierror luego al final del sub pones la etiqueta :mierror if err.number >0 then control_errores(err.number)...

Lo primero es saber si tu proyecto tiene o no un modulo3, abre el editor de visual basic ALT+ F11 y verifica si existe el modulo. Es posible que el procedimiento este invocando una función o subrutina que resida en ese modulo.

Una forma poco elegante, pero funcional, seria Ejemplo c1 pones en letras = a1 en d1 pones en letras = a en e1 pones ; =CONTARA(A:A) en d2 concatenas asi =+C1&":"&D1&E1 ahora tu funcion; =JERARQUIA(A1;INDIRECTO(D2);0) Asi queda dinamico.

Maneja ambos datos ( celdas) como cadenas de caracteres "string", Así comparas 2 cadenas y no valores If Sheets(1).Range("A1").Text = Sheets(2).Range("A1").Text Then 'si son iguales haga esto else 'si NO son iguales haga esto end if Nota: Evita ser...