Tengo un problema con un archivo *.xlsm que quiero pasar a *.xlam (Complemento) pero el archivo *.xlsm funciona bien pero cuando lo guardo a *.xlam deja de funcionar ¿?. Tengo Win7 64 bit, Office 2010, y todas las librerías *.ocx , mscal, mscomct2, etc registradas, ¿Me puede ayudar alguien a identificar el problema? Adjunto el archivo xslm, se trata de un calendario que se activa en cualquier celda al hacer dobleclick. Gracias de antemano. he resubido el archivo ya que el primero no era el correcto. Calendario_Camarina00.rar

Hola a todos. Estoy haciendo en un archivo Excel habilitado para macros una clasificación por equipos de unas pruebas multideporte. Este archivo Excel contiene dos hojas: “Clasificación INDIVIDUAL” Y “Equipos”. En la hoja “Clasificación INDIVIDUAL” se recogen los resultados de los equipos en diferentes pruebas: FUTBOL, BALONMANO, BALONCESTO, SALTO VERTICAL (2 INTENTOS) y SALTO DE LONGITUD (2 INTENTOS). Cada equipo está compuesto por 5 jugadores. La suma de la puntuación de cada equipo se obtiene mediante la función “=SUMA…” al final de las puntuaciones de los participantes de cada equipo. La hoja “Equipos” tiene dos botones. El primero de ellos, llamado “Su…

Hola a todos, Me ha pasado con Userform y con una macro. Tengo varias columnas ocultas, pero tengo una macro que copia un rango de la hoja1 pega datos en la hoja2 en el rango A:H, teniendo ocultas las columnas G:H. la macro se para justo cuando se va a ejecutar el Paste. He puesto instrucción Unprotec y además mostrar columna antes del Paste y ocultar columna al final de la macro. Hasta aquí llego, no se si es normal el comportamiento o si estoy haciendo algo mal. Gracias y saludos,

Buenas a todos, No se mucho de programación, pero he realizado unas macros en excel 2010 y corren perfectamente, pero cuando lo abro en un excel 2007 esta me sale error. El problema surge al ejecutar la macros, para elegir simple terna o doble terna Agradeceré mucho su ayuda. ESTRUCTURAS.zip

Buenas tardes expertos. En esta ocacion solicito de su apoyo, tengo un codigo para mostrar informacion de cada shape, pero no me funciona, lo que pretendo lograr es que al momento de pasar el mouse sobre un shape, me muestre como screentip la informacion que se encuentra en otra hoja. Anexo ejemplo. De antemano gracias por la ayuda brindada. Saludos cordiales. Screentip.rar

al ejecuar la siguiente macro, quiero que la hoja1 del libro DATOS, se agregue en el libro ORIGEN, pero no lo hace Sub copiar_Datos() ORIGEN = Application.GetOpenFilename(Title:="Selecciona el archivo ORIGEN", filefilter:="Excel files (*.xls*), *.xls*") DATOS = Application.GetOpenFilename(Title:="Selecciona el archivo DATOS", filefilter:="Excel files (*.xls*), *.xls*") Workbooks.Open DATOS Workbooks.Open ORIGEN info = Excel.ActiveWorkbook.Name Workbooks(info).Worksheets(1).Copy After:=Workbooks(DATOS).Sheets(1) Windows(info).Activate ActiveWindow.Close End Sub alguien que me pueda ayudar para corregir lo que no que …

tengo la siguiente macro que es un boton para ordenar los estudiantes que van a revision con sus notas (la cual son formulas todas) y datos como cedula, fecha de nacimiento, lugar de nacimiento, sexo. Se ordena por la columna de la cedula (HD) pero hace como que si ordenara todo pero solo ordena una columna la GK, las otras entre GL y HL desde la fila 475 hasta la 513 no las ordena, la macro es la siguiente: Sub Botón1327_AlHacerClic() ' ' ActiveSheet.Unprotect Range("EL383").Select ActiveCell.FormulaR1C1 = "REVISION" Range("GK475:HL513").Select Selection.Sort Key1:=Range("HD475"), Order1:=xlAscending, Header:=xlN○ _ (Selection.Sort Key1:=Range) error…

Estimados Foreros: Otra vez yo para pedir si es posible de que me orienten del porque no funciona bien mi listbox... me desaparece mis encabezados y no carga la información que le quiero decir... en si quiero que el listbox se cargue con la info de la base de datos pero solo con los que tienen en la columna H un "1" gracias de antemano. saludos. REPORTE.zip

Estimados Desde ya gracias a las personas que se tomen el tiempo de leer y resolver mi consulta. He elaborado una macro bastante extensa a pedido de mi empresa extrayendo información de un base de datos muy muy extensa. No soy un experto como entenderán luego de mi consulta. Esta macro esta compuesta básicamente de gráficas dinámicas. Sucede que solo me falta mejorar un detalle. Hay un campo al que llamare "averías", que lo tengo como lista desplegable (filtro) del campo principal "equipo". Lo que deseo (y necesito) es que el campo "averías" SEA visible en la tabla dinámica, pero que NO sea visible en la gráfica dinámica (osea que no se grafique cada vez que la activo…

El problema que tengo es que me han pasado esta macro, la cual me impide GUARDAR el libro si no hay 3 celdas, concretas, con información, pero no puedo salvar el proyecto con las celdas vacías. Procedo a intentar explicarme mejor: El código que me han pasado es este: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'selecciono la hoja que debe controlar Sheets("Mañana").Select If Range("G3") = "" Or Range("B58") = "" Or Range("F58") = "" Then MsgBox "Por favor, ingresa la fecha y los Nº" Cancel = True End If End Sub [/CODE] Y me han dado la indicación de abrir el programador, editor de visual basic, doble clic en ThisWorkbook pa…

Hola queridos amigos del Foro. Necsito su ayuda en lo siguiente: Tengo un codigo VBA para poder imprimir todos los archivos excel que llegan adjuntos a un mail. Como lo hago pára que no imprima los archivos adjuntos como DOC y PPT Adjunto el codigo Saludos Gustav Codigo.VBA.Imprimir.rar

No ingresar datos duplicados en un LISTBOX con con columnas y ordenarlo Por favor requiero de su amplia experiencia del foro ya que tengo un problema y es el siguiente: Quiero ingresar los datos en un listbox que cuentan con 2 columnas pero no quiero que se dupliquen y a la vez ordenarlo de forma ascendente o descendente. Estare muy agradecido por su ayuda. Renzo NO DUPLICADOS.zip

Hola a Todos espero que se encuentren bien, Tengo un archivo el cual necesito que al momento que uno vaya ingresando datos en la columna H este me arroje un mensaje si ya fue ingresado anteriormente, para evitar registros duplicados. Ojalá alguien me pueda ayudar la verdad desconozco como poder hacerlo. Me imagino que debe ser con el evento change() Gracias ojalá me puedan ayudar. Saludos Consulta.xlsm

Hola: Hoy me toca preguntar a mi. Hasta ahora siempre que abría un archivo o abría una instancia con un libro vacío me aparecía el libro PERSONAL.XLSB en el proyecto VBA, y digo aparecía porque de pronto ha dejado de aparecer y no me queda mas remedio que abrirlo manualmente. ¿ A alguien le ha pasado algo parecido ? Gracias a todos por adelantado.

Hola a todos tengo una userform con un boton para buscar un archivo PDF y otro boton para cargarlo en un WebBrowser al intentar cargarlo se me va al acrobat me lo carga en el acrobat pero no en el WebBrowser. Esto con la version Excel me funciona correctamente en la version 2010 pero en la 2013 y creo que posteriores no funciona ( no lo se fijo) me da un error en el WebBrowser Carga de archivos PDF.xlsm

Hola a todos, Quiero usar la variable ( .List ) en mi macro pero VBA pare ser que no la encuentra como si no existiera. No entiendo nada. Os adjunto las capturas de pantalla. Como podéis ver en la lista desplegable de VBA no aparece esta variable que acabo de escribir. Pero he seguido escribiendo el código a mano, esperando que me saltara algún error o que se pusiera en rojo el código ( como cuando lo has puesto mal ) pero no es el caso parece ser que está bien aparentemente. Pero cuando ejecuto la macro me salta ese error. Creo que porque no reconoce la variable .List Creo que no he cometido errores en e…

Buenas tardes, en el archivo adjunto explico que es lo que debo obtener como resultado, sin embargo, no me arroja error, pero tampoco me da el resultado que necesito Sheets("Alldata").Cells(jLastrow, 3).Select.FormulaR1C1 = "=IF(LEFT(RC[-2],1)<>""3"", ""D"",""N"")" Sheets("Alldata").Cells(jLastrow, 4).Select.FormulaR1C1 = "=MID(RC[-3],3,1)" Agradeceré se sirvan verificar mi macro Gracias, Saludos Jorge desde Perú Copiar columnas jgbh.xls

Buenos días tengo un archivo que relleno una solicitud , me guarda los datos y luego me manda un pdf con la solicitud rellenar. No se por que de repente no me adjunta dicho archivo. Les adjunto el archivo, espero puedan ayudarme. Pruebas_Solicitudes id5500_2019 - copia.xlsm

Hola!! En este archivo con macros he intentado añadir en la celda que esta en color amarillo llamada autonomia que debajo tiene un filtro, 4 busquedas mas, las que son Ruta 1, Ruta 2, Ruta Centro y Ruta Santa Cruz, y eliminar el No, en total serian 6, en las que yo pueda desplegar y seleccionar la que quiera, lo he hecho de todas maneras y me da error, no se me actualiza. Adjunto el archivo. Búsqueda de usuarios .xlsm

bueans tengo este codigo Private Sub BtnGrabarDatos_Click() On Error Resume Next intvalor = 1 For i = 1 To ReCantidad Step 1 Range("B6").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop Range("B5:V5").Copy Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormatsAndFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ActiveCell = CDbl(ReCodigo) ActiveCell.Offset(0, 1) = ReCategoria If IsNumeric(ReNuFactura) Then ActiveCell.Offset(0, 2) = CDbl(ReNuFactura) Else ActiveCell.Offset(0, 2) = ReNuFactura End If If ReReferencia.Enabled = False Then ActiveCell.Offset(0, 5) = "" …

Buen día, Llevo todo el día intentando solucionar el error de 1004: no se puede copiar la hoja " sin ningún éxito, hice la prueba copiando otras hojas del libro y me lo permite pero no entiendo porque no me deja copiar y pegar la hoja "Portada". Espero me puedan ayudar, por favor. MacroCampañas.xlsm

Estimada(o) Antes que todo, espero se encuentren bien en este tiempo de pandemia y a cuidarse mucho Mi situacion es la siguiente. Tengo una tabla desde $A$4:$Z$5000 en vba....escribo Sheets("Sheet1").Range("D4").Sort key1:=Range("Z4"), order1:=xlAscending hace el orden por la columna Z pero la fila 4 la deja con datos y pierdo el nombre de las columnas debe comenzar obligadamente en la fila 1 ??? Gracias de antemano Juan Manuel

Hola, he creado una funcion en un módulo que en un momento dado tengo que recoger unos datos de una hoja. Esto lo hago de la siguiente manera: Sheets(2).Select Pero no quiero que me muestre la hoja2 en medio del proceso. Es decir, si la funcion salta en la hoja1 no quiero que muestre la hoja2 aunque la funcion tire de ella. No se si me he explicado bien. Si no es así lo vuelvo a intentar. Gracias. Saludos,

Hola espero me puedan ayudar. Tengo un proyecto que extrae información desde base de datos de SQL a excel, se requiere hacer una copia de unas celdas en la misma hoja, el problema lo tengo ya que no me muestra la información que se extrajo para seleccionar las celdas a copiar ya que cuando la macro pide el rango de celdas, no se ve la información y no se puede seleccionar hasta donde quedó la información. Espero me puedan ayudar Gracias.

Estimad@s Cuando ejecuto una libro hecho en macros, no me permite ejecutar la macros ;me sale este mensaje "Debido a su configuración de seguridad, se han deshabilitado todas las macros. Para ejecutar macros es necesario que vuelva abrir este libro" . Habilite los permisos en el centro de confianza , desconecte los firewall y el antivirus , hasta desconecte el internet .. Pero a pesar de ello sigue saliendo ese mensaje. De ante mano Gracias por su aportes