Hola a todos Estoy buscando la forma de hacer un grafico sobre el cual al mover con el mouse una linea de un punto x' a otro punto x'', el resto del grafico se autoregenere basado en una ecuacion que lo respalde. Para hacer una ilustracion grafica de lo que busco, tomemos como ejemplo google.maps, cuando nos traza la ruta de un sitio a otro, y tiene varias alternativas, si tu con el mouse desplazas la linea hasta un punto de la nueva ruta, el sistema hace el resto. Es posible hacer esto en excel ?

Hola Amigos Tengo un archivo que me genera distintos graficos en una misma hoja con los datos de otra hoja, el problema es que me presenta los datos de dos columna, como fija la B y la segunda columna es variable, pero necesito que me presente los datos de dos columna variables, ejemplo, datos de la columna B y C, el otro rango columna D y E, el siguiente rango F y G, y asi sucecivamente. Al generar me deja la columna B como fija y no es lo que necesito, por otra parte, que pasaria si inserto una o dos columnas entre los datos, se dañaria la macro? Indicators.zip

Buenos días, Hoy necesito una pequeña ayuda para un tema que tengo que resolver en excel. Voy a explicarlo de la manera más sencilla posible. Tengo un libro de excel con varias hojas (fichas.xslm), todas tienen un mismo gráfico series. El tema es que esas series salen de datos que están en otro libro distinto con varias hojas también (base de datos.xlsm). Por ejemplo: el libro "fichas.xlsm" contiene hojas llamadas: peras, manzanas, plátanos. Y en cada hoja hay un gráfico que busca datos en el libro "base datos.xlsm" en el que hay las mismas hojas (peras, manzanas, plátanos) pero con tablas de datos. La pregunta es: ¿puedo hacer que la ruta de origen de los datos esté …

Amigos del Foro Buenas tardes por aquí dando vueltas de nuevo, espero puedan ayudarme. si no es molestia. y me regalen un poco de su valioso tiempo Al dar clic en la celda que tenga la palabra "actualiza Equipo". Me almacene algunos datos en la hoja histórico según el modelo de la hoja. Y y luego me guarde la lectura del kilometraje de ese neumático en la celda correspondiente en este caso serian la celda de la columna "AA". y finalmente me limpie los datos de la celdas. N,O,P,Q,R,S,T,U,V,W,AF,AG,AH,AI,AJ. Y así sucesivamente con todas las filas que tienen la palabra "actualiza equipo". por ejemplo doy clic en la celda AL6, me almacena los datos determinados en la h…

Saludos a todos, es mi primera consulta en el foro. Se trata del siguiente problema: ejecuto el código de un programa sin problema durante todo el tiempo. En un momento dado, al abrir el programa no puedo ejecutarlo. Intento ver el código y aparecen en blanco TODAS las pantallas en las que debería estar visible. He compilado el programa en otro ordenador y sigue con el mismo problema. El problema es grave ya que tengo que recurrir a una copia de seguridad anterior y rehacerlo de nuevo. Agradecería cualquier sugerencia que me ayude a solucionar este problema tan potencialmente peligroso. Muchas gracias. Fernando Cantón

buenos días el siguiente es para consultar como crear o poner la opción de guardar datos en dos libros externos a partir de uno base. el problema me lo plantea mi jefe de la siguiente manera: ella tiene tres libros: 1 contabilidad 2 gastos 3 compras ella quiere que al introducir los datos en el libro contabilidad, se discrimine si es gasto o compra y d la misma manera vallan a su libro respectivo que los actualice de manera automática en pocas palabras lo que ella quiere es solo abrir un libro y no tener que abrir los otros dos y que la información siga actualizándose conforme se actualice el libro de contabilidad. de antemano gracias por la colaboración que sirv…

Hola a todos: Quisiera que puedan ayudarme en una parte del codigo que me falta sobre interactuar excel con Microsoft Outlook. Resulta que tengo una macro actual que adjunta un archivo de excel a Outlook, Lo que deseo es que en vez que se envie el correo es que se guarde en borrador. Espero que me hayan entendido y agradeceria su ayuda. Estoy adjuntando el archivo. Saludos Muestra_outlook.xlsm

Buen dia Deseo me ayude alguien con una macro siguiente: Deseo que me guarde los adjuntos de un correo de outlook guardado en una carpeta (archivos .msg en carpeta en mi pc) y los guarde en otra carpeta sus archivos adjuntos (pdf y XML), sin tener que estar abriendo uno por uno. Agradezco su ayuda, ya que me marca el siguiente error "User-Defined type not defined" y no entiendo porque. Sub SaveMSGAttachments() Dim olItem As MailItem Dim SH As Object Dim msgFolder Dim saveFolder Dim strFilesFldr As String Dim strSaveFldr As String Dim objAtt As Outlook.Attachment Dim strFilename As String On Error GoTo Cleanup Set SH = CreateObject("SHell.Application") Se…

Hola amigos. nuevamente pidiendo ayuda, tengo una base de datos en excel que cuenta con dos pestañas uno que se llama base y otra hoja que se llama filtro. lo que estoy tratando de hacer en VBA es que cuando seleccione en la hoja de filtro uno o varios registros con viñeta (como lo muestra en el archivo excel hoja filto columna I) en automatico se guarde con otra viñeta en la hoja de base, el mismo registro que seleccione en la hoja filtro que en automatico se guarde adjunto el archivo para ver si es posible que me puedan orientar de como puedo hacer esa macro. gracias por su apoyo!!! base de datos2.xls

Buenos dias Tengo una rutina que me guarda los datos de un formulario a dos hojas excel dentro del mismo libro y necesitaría que en esa misma rutina me creara un archivo pdf con el nombre del label "lb_parte" Private Sub Imprimirparte2() Dim final As Long Dim fila As Integer With ThisWorkbook .Sheets("PARTE DE TRABAJO").Range("r2").ClearContents .Sheets("PARTE DE TRABAJO").Range("d2").ClearContents .Sheets("PARTE DE TRABAJO").Range("g2").ClearContents .Sheets("PARTE DE TRABAJO").Range("l2").ClearContents .Sheets("PARTE DE TRABAJO").Range("c3:o4").ClearContents .Sheets("PARTE DE TRABAJO").Range("b8").…

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

Alguna macro que me pueda ayudar, si recibo un archivo adjunto en mi outlook de determinados remitentes y si es posible con determinado nombre, guardarlo en una carpeta en mi PC, e ir sustituyendo el archivo en la carpeta, cada vez que lo reciba. Cabe mencionar que el archivo almacena datos diarios en una planilla mensual, es decir la intencion es actualizarla diariamente, guardar el archivo diario con el nombre del mes para irlo actualizarlo. Al cambio de mes hacer lo mismo con el siguiente. Gracias!

Estimados, buen día. Trabajo con libros muy pesados (con muchos registros, muchas formulas tipo "sumar.si.conjunto", tablas dinámicas, gráficos y con formatos condicionales en tablas, etc.) y el simple guardado preventivo normal demora bastante tiempo, cerca del minuto y junto con el auto guardado son muy molestos. Y eso que el libro está en modo de cálculo manual y la pc lleva unos 16G y y un Ryzen 5. Se podrá con un código VBA sencillo guardar, pero sin que el libro se calcule previo al guardado? Muchas gracias!!

Hola de nuevo, tengo una macro que intenta guardar una carpeta de mi C:\ en una carpeta de un servidor, la ejecuto pero no hace nada, está mal evidentemente pero ¿Qué está mal? Sub Mueve_fotos() Dim carpeta As String Dim fecha As Date fecha = Now(Format("dd-mm-yyyy")) carpeta = "\\179.29.84.35\Pub-Water-Jet\REGISTRO VISUAL\" Call Shell("explorer.exe " & carpeta, vbNormalFocus) Name "C:\Seat\Historico\" As carpeta & fecha End Sub[/CODE]

Estimados compañeros: Estoy generando una macro que me servirá en el trabajo y tengo una duda acerca con el guardado de nuevos libros desde el VBA. Pues lo que sucede es que desde un Listbox1 exporto su contenido en un nuevo libro, he podido realizarlo (pueden verlo en el archivo adjunto) pero para lograrlo he ingresando una constante llamada "Extracto" dentro del código VBA creado, para que cuando exporte se guarde con ese nombre. Como verán por defecto este file se guarda con este nombre y en la carpeta "Mis Documentos". Lo que quiero es que al momento de apretar el boton "Exportar" me pregunte la ubicación del archivo y el nombre con que lo quiero guardar (que en v…

Hola, estoy queriendo exportar una hoja del archivo como pdf pero al querer guardarlo en un disco compartido (server) me da error. Aclaro que al querer hacerlo en mi disco local C si me lo permite y tambien puedo exportar la hoja como xlsx en el disco compartido pero al querer hacerlo como pdf me lo impide. La linea que utilizo es Hoja2.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=RutaEnDiscoCompartido & "\" & NombreArchivo & ".pdf", Cuando remplazo la RutaEnDiscoCompartido por una en el disco local si me permite exportarla Muchas gracias

Hola. Tengo una hoja en la que tengo varias fichas de clientes. Necesito que al darle al botón PDF me imprima la ficha que tiene al lado. Adjunto ejemplo Gracias de antemano ejemplo ficha.xlsx

Me podrias ayudar a poder Guardar un UserForm como PDF asignandolo a un boton, yo imprimo el userform con me.printForm pero antes oculto el boton imprimir, luego lo habilito, pero no se como hacerlo en PDF.

Hola a todos Intento que esta macro me proteja todas las hojas y me active el autofiltro en todas las hojas, pero solo me activa el autofiltro en la hoja activa, en el resto no. ¿Me podeis ayudar? estoy bloqueado... Sub Proteger_libro() On Error GoTo fin Dim sht As Worksheet Application.ScreenUpdating = False ActiveWorkbook.Protect ("contraseña") For Each sht In ActiveWorkbook.Worksheets If sht.Visible = True Then sht.Protect ("contraseña") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True End If …

Buenas. Vereis quiero realizar una macro que, cuando el usuario clickee el botón de guardar como aparezca en el diálogo un nombre de archivo, a modo de sugerencia, distinto al que posee el propio archivo. He intentado lo siguiente: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.Dialogs(xlDialogSaveAs).show ("Nombre sugerido.xlsx") End Sub [/CODE] pero lo que obtengo es que, una vez guardado el archivo, me pide volverlo a guardar y me gustaría evitar eso. También había pensado en, por medio de la macro, guardar el archivo en alguna parte (windows/temp por ejemplo) con el nombre que yo sugiero y luego hacer aparecer …

Tengo el siguiente archivo, con la siguiente estructura, en la hoja1(Registro), se ingresa los datos, y en la Hoja2(BD), se almacena la información al dale en el botón copiar, pero antes de copiar el registro el macro valida y no permite ingresar Ítems repetidos. La idea es poder hacer un macro que permita copiar el registro de un libro a otro, validando si y existe un numero de ítems igual en el libro(BD) Registro.zip

Buenas noches, tengo un pequeño problema con esta Macro, tengo un archivo plantilla (archivo adjunto) y con esta macro GUARDAR COPIA el cual me permite generar otro archivo con un nombre distinto, pero no lo esta generando como debe ser, porque tanto el archivo plantilla como el nuevo archivo se queda con los mismos datos. Y lo que necesito es que los datos que contiene mi archivo plantilla que se encuentra resalto se borren al momento que ejecute la macro GUARDAR COPIA con el nuevo nombre de archivo. Nota: Al momento de generar la macro, pregunta si deseo "usar el archivo por default", porque lo que doy la opción NO, para que luego me permita colocar el nuevo nombre que…

Muy buenas, amigos les agradesco quien me puede ayudar Actualmentetengo una macro que guarda el inicio de un archivo con este código. With ActiveWorkbook .RunAutoMacros xlAutoClose .Save .Close End With Pero tengo un problema cuando el archivo está en uso,Si el archivo Excel está en uso como puedo hacer para que esta guarde una copia si el archivo está en uso. Gracias - - - - - Mensaje combinado - - - - - En el foro encontre esto, pero quien tenga una mejor idea. Dim XLSLibro_B As Excel.Worksheet 'Se define la variable como hoja Excel Set XLSLibro_B = Workbooks("NOMBRE DEL ARCHIVO").Shee…

Buenas tardes a todos! He estado curioseando por el foro y por internet largo y tendido y no he sabido encontrar una solucion a lo que estoy buscando. O por lo menos no la he sabido aplicar bien. De estos dos temas he logrado extraer lo poco que he hecho, pero que está mal resuelto por mi parte, y no se como seguir: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-boton-que-actue-igual-que-guardar-como-22639/[/HTML] [HTML]https://www.ayudaexcel.com/foro/macros-programacion-vba-10/pendiente-guardar-sola-hoja-libro-22283/[/HTML] Lo que estoy intentando conseguir es lo siguiente: - Tengo un libro protegido contra escritura con multitud de ho…

Buenos días amigos Escribo nuevamente a petición de una consulta o ayuda, manejo una base de datos la cual es usada por varios usuarios novatos en la empresa, a esta base le quiero adaptar una macro que guarde una copia del mismo archivo al momento de aperturar y al momento de cerrarlo, debe tener dos condiciones como indique al momento de su apertura este guarde una copia con su "nombre original, el dia y la escritura de apertura", y lo mismo al momento de cerrar. estos en una ruta especifica, esto por si algun cambio guardado debo reversar saber cual archivo usar. Private Sub Workbook_Open() ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-apertu…