Hola a todos. Me gustaría saber si es posible que tras abrir el libro de excel, sólo se muestre la cinta de menu y el cuerpo de las hojas queden ocultas.

Saludos colegas. En la universidad usamos bastante la modelacion de tranporte (costo mínimo, esquina noroeste) mediante el uso de solver. Perdemos bastante tiempo por cada modelacion y formulacion por ejercicio, la propuesta es crear una macro que ahorre y optimice procesos pero en el tema de macros estoy bastante crudo, acudo a uds. este es un ejercicio que hemos realizado. Debemos tener en cuenta que para cada modelo de transporte, se debe definir -la cantidad de puntos de origen y la cantidad de destinos -costos de cada producto Analizando al momento de realizar la macro me parece que el mejor metodo de desarrollo sea el costo mínimo, pero no tengo idea de …

hola amigos buen dia construyo una base en acces que se alimenta a traves de un formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao, Call conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable End With For a = 1 To 130 If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then combo1.Add CStr(rs.Fields("FACTURAPOST").Value) End If rs…

Me pueden ayudar con esta macro por favor lo que hace es enviar correos automáticamente, me costó mucho realizarla ya que para esto no sabía casi nada de programación con Excel, mi problema es que me pidieron que si hay un pago o cobro con un mismo intermediario el correo me arroje esa X cantidad de pago y si hay varios cobros con el mismo intermediario que haga lo mismo, no sé cómo hacer esto ya que soy novato en vba (solamente los que tengan tipo compensación, los físicos "No") Ejemplo si en la columna intermediario existen celdas con este nombre BancoDeChile y en la columna pago hay valores, que esos valores los ponga en el correo. Adjunto el archivo, para …

Buenas Tengo una excel a la que le inserto datos a través de un formulario, y los datos pueden modificarse a través de otro formulario. El problema es que uno de los campos es un listBox multiselección que al insertarlos datos los coloca en una celda separados por ",". Pero al recuperar los datos no consigo que el listbox queden esos datos seleccionados al cargarse. ¿Podeis ayudarme? Sub modificardat() On Error GoTo ErrorHandler 'recuperamos el indice de control de la solicitud indice = SelecionarDatoForm.ListBox1.Value Unload SelecionarDatoForm 'borramos los datos de la hoja 3 Worksheets("Hoja2").Range("A1:P" & Ult).Delete …

Adjunto un archivo zip con un formulario basico para enviar mail desde excel para cuentas de gmail. En el botón "enviar" no sé como insertar ni donde la línea de código para permitir enviar archivos adjuntos. ¿Alguien puede ayudarme? Gracias por adelantado. Borja enviar email.zip

Estoy intentando realizar un menu de enlace a dos aplicaciones ya creadas pero me surge el problema de que se queda una aplicación abierta oculta y no consigo encontrar la manera de solucionarlo. Andrés Prueba.rar

Buenas tardes, Estoy creando en un libro de excel la contabilidad domestica y necesito una macro que copie los datos de una hoja llamada Registro a las hojas que corresponda cuando llege la fecha indicada se anoten en la hoja que correspondiente y la fecha que cambie al mes siguientey asi sucesivamente con todos los registros de la hoja . Espero que me haya explicado bien. No puedo subir archivo porque es muy grande[ATTACH]45516[/ATTACH] Muchas gracias ,

Buenos Días: Alguien me podría ayudar para guardar un archivo completo con una macro, tenía para guardar una hoja pero quiero guardar todo el archivo. Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando c…

Muy buenos dias! Necesitaria la ayuda de los que mas saben, ya que tengo un problema con una Macro y no le puedo encontrar la vuelta! La cuestion es esta: Necesito una Macro que le envie informacion a cada cliente que se encuentre en cada hoja (el nombre de cada hoja es "Cliente 1", "Cliente 2" etc etc). El mail al que se lo debe enviar es el que se encuentra en la celda C3 El Subject es el que se encuentra en la celda C4 El cuerpo del mail es el que se encuentra en la celda C5 Como archivo adjunto que se envie la hoja completa (por ejemplo "Cliente 1") Ahora un dato importante, si el cliente no tiene compras ergo la celda C6=0, necesitaria que no se le envie nada.…

Hola amigos Os cuento, con el fin de agilizar un poco mi trabajo, he creado un libro para asignar codigos de datos en diversas hojas, abajo os dejo el ejemplo. Dentro del libro hay una combobox con el título de posición que carga una serie de datos en la Columna A de la hoja 1, y una serie de botones para copiar estos codigos en las hojas 2 y 3 respectivamente. sin embargo me he quedado estancado en los siguientes puntos: -Al pulsar el botón escribir, eliminar dato de la combobox "posición" Me gustaría poder eliminar los datos según se añadan para evitar equivocaciones con datos repetidos -Cargar en las combobox de hojas todos los datos a partir de la palabra "Rec…

Hola buenos días, necesito vuestra ayuda, es urgente. Os explico, cada dia incorporo unos datos en una hoja excel mediante la formula solver, me resuelve una ecuacion en fuincion de varias restricciones. El resultado es correcto, lo que yo quiero hacer es automatizar el solver con alguna macro para que yo, cuando introduzca los datos me los resuelva automaticamente sin tener que darle al solver ni poner los datos ahi. Los datos que van al solver son los siguientes: Establecer Objetivo: N8 Cambiando las celdas de variables: E8 Sujeto a las restricciones: H8<=$G$3 (G3 no quiero que me cambie en ninguna fila) J8>=$G$2 (G2 no quiero que me cambie en ninguna fila) …

Buenas Estimados, Tengo un archivo Excel para generar cotizaciones en diferentes hojas, con ayuda de unos expertos pude lograr que me imprima varias hojas del Excel desde un formulario que se encuentra en la primera hoja, mi problema es que quisiera que las diferentes hojas de la cotización se impriman una debajo de otra de acuerdo a como da el tamaño de la hoja (A4) y no por separado como actualmente lo hace, además quisiera que imprima un encabezado que quiero agregarle en otra hoja, no puedo ponerlo ahora porque lleva una imagen y sería muy pesado, de todos modos si logró hacer lo primero estaría muy feliz. Adjunto el archivo para mejor visualización. Muchas Gracias …

Hola, muy buen día, disculpen tengo un problema, esque ya tengo una macro que le envia correos automáticos a clientes, pero el problema es que a la hora de pasar los datos que se encuentran en la hoja llamada "Envios", a la hoja llamada "Datos" (que es donde se encuentra la macro para enviar los mails), lo hago todo con fórmula y me quita mucho tiempo, no encuentro la forma de hacer que pase los datos que se encuentran en "Envios" a la hoja llamada "Datos", dado a que "Envios" va creciedo dia a dia, por que son los pedidos que se hacen diarios, lo que quiero hacer es que se pasen con alguna macro a la hoja de "Datos", lo intente poniendo la condicional en la hoja de "Env…

Buenas tardes, Les comento que mi conocimiento de excel es poco y no he podido dar con lo siguiente: Necesito copiar los datos de las columnas de la hoja Casos a la Hoja Errores siempre y cuando el estado que se encuentra en las columnas K L M N sea igual a Fallido. Teniendo en cuenta: Que debe colocar X en el cliclo correspondiente en la hoja Casos. En el Archivo Adjunto existe un ejemplo de lo que necesito. De antemano muchisisismas Gracias. Reportes.zip

Hola amigos,molestando su atención en el archivo adjunto. existe un codigo vba que permite crear una tabal dinamica y graficar sin emabrgo, yo quiero mejorar ese código y por eso les escribo, quisiera hacer que ademas de hacer ello se pueda ordenar los datos (de mayor a menor) y seleccionar solamente los 10 ique como otros y a partir de ello grafique(tal como esta en la hoja Modelo. Gracias expertos por su atención desbosque1.zip

Estimados, Hace un tiempo acudí por su ayuda para incrustar unas imagenes en excel y recibí su ayuda. https://www.ayudaexcel.com/foro/macros-programacion-vba-10/codigo-para-insertar-dos-imagenes-24023/ Acudo nuevamente a su ayuda ya que en el mismo archivo que me envió Marco Antonio, necesito ejecutar una macro al cambiar la imagen he estado intentando pero no me deja actualizar la imagen y llama a la macro demasiado pronto. También he probado con este código que encontré en la red ligándolo al botón VerCedula pero no funciona: Sub Abrir dim contador as integer dim ejecuta contador = "1" do while contador <= "5" if contador = 1 th…

Buenas Tardes: Soy nuevo en esto, leí mucho y me gusta el Foro, estoy trabajando en excel desde hace mucho tiempo y veo que cada vez es más útil y eficiente. Estoy generando un archivo que por cierto lo adapté en base a lo que leí y vi en el Foro. El mismo tiene una planilla para la carga y alta de una base en otro hoja, e aquí adapté un formulario para la busqueda e hice otro para modificar datos en la planilla que se genera la base de datos. El problema que tengo es que aveces no me encuentra el formulario para modificar y/o cuando aparece a veces no muestra los datos a modificar. No se si fui demasiado claro, para ello adjunto el archivo para mejor ilustración . INS…

Que tal Foro como les va?, mi consulta es la siguiente, tengo una tabla donde cargo datos hay varias filas que llevan un mismo numero madre como un id lo que yo quiero es hacer que cuando busque por este numero madre o ID me traiga solo las filas que contengan ese numero y las ponga en textbox de un userform, para que pueda modificar esos datos o eliminar. Espero que puedan ayudarme. Saludos. busqueda por ID.rar

Amigos del foro, recurro a uds. para solicitar su valiosa ayuda con el siguiente problema que tengo con un programa con macros, éste lo realicé en office 2013. Ya que antes de enviar ésta consulta, busqué dentro del foro posibles soluciones, pero no he podido dar con alguna solución. Resulta que éste corre sin dificultades en diferentes laptops, pero no así en otras, siendo que es el mismo programa; el mensaje que sale en esos equipos en dónde no corre es el siguiente: RUN TIME ERROR 1004 METHOD VISIBLE OF OBJECT WORKSHEET FAILED; éste error sale antes de que aparezca un userform para ingresar un código de ingreso para que abra por completo el programa. En 2 de esas lap…

Hola a todos, quisiera que me ayuden con un tema: Necesito un Macro que busque un simbolo, por ejemplo: "(" y luego de encontrarlo y localizar la celda, me pregunte si deseo eliminar la fila o no? Me podrian ayudar. Gracias. Aqui les dejo lo que tengo hasta el momento: ' Esta macro le pide un valor para buscarlo en cada hoja del libro. ' Si encuentra el valor buscado, la rutina pregunta si desea ' continuar la búsqueda. ' Si no encuentra el valor en la hoja, continúa buscando en la ' siguiente hoja. ' Puede cancelar la búsqueda respondiendo que no a la pregunta ' "¿Desea buscar otro valor?: ?" y respondiendo Sí a cancelar la ' búsqueda. testValue = InputBox("…

Buenos días a todos. Saludos desde la Ciudad de México, D.F. Este tema lo he visto anteriormente. Pero no he resuelto mis dudas. He creado una hoja de calculo, en la cual mediante algunas formulas y un procedimiento, logro obtener los vencimientos que necesito saber para el control de mis tareas. Necesito poder seleccionar: La cantidad de días a utilizar. Desde 1 día hasta 15 o 20 tal vez. Y que se incluya o no el día sábado como día hábil. Les comento que actualmente tengo Excel 2007. Anexo un archivo para ver si me pueden ayudar con esta petición. Muchas gracias a todos por sus valiosos aportes a este tema. Saludos. Mi Vencimiento FRSC_25-07-13.zip

Sigo liado con algunas dudas sobre listbox, ya en una duda anterior sonre añadir item a listbox me ayudaron y puede silucionarla en el siguiente link https://www.ayudaexcel.com/foro/macros-programacion-vba-10/agregar-items-nuevos-listbox-userform-31424/ En estos momentos tengo dos problemas: 1. No consiguo ordenar el listbox automaticamente por orden alfabetico al añadir un item nuevo. 2. Intento eliminar un item de dicho listbox pero no consegui que se elimine definitivamente de la hoja de donde pilla los datos, solo consigo eliminarlo del listbox. CommandButton1_Click() If ListBox1.ListIndex > -1 Then 'si se ha seleccionado algo Cells(ListBox1.ListIndex + …

BUENAS NOCHES SOY NOVATO Y ESTOY APRENDIENDO MACROS LO CUAL TENGO UN TRABAJO EL CUAL CONSTA DE MUCHOS CUADROS Y DESEO AUTOMATIZARLO CON MACROS EN DONDE PUEDA GENERAR UN ASIENTO CONTABLE DEPENDIENDO DE UN CRITERIO ESTUVE USANDO LA GRABADORA DE MACROS PARA HACER UNA MACRO QUE ME COPIE Y PEGUE LOS CRITERIOS QUE SE LE PIDE PERO HASTA DONDE LO HICE ESTA BIEN PERO DONDE ESTOY ENTRAMPADO ES QUE NO PUEDO HACER QUE MI MACRO COPIE Y PEGUE HASTA ENCONTRAR LA ULTIMA CELDA CON INFORMACIÓN, DESEARÍA QUE ME PUEDAN AYUDAR POR FAVOR LES AGREDESERIA MUCHO SUS AYUDAS ADJUNTO UN CUADRO CON MI EJEMPLO COMPRAS PRUEBA111111.xls

Muy buenas. Espero que puedan ayudarme con lo siguiente. Mi macro crea carpetas segun el rango que seleccione, las carpetas tienen el nombre de cada celda. Dentro de cada carpeta se crean 5 carpetas mas con nombres que yo defini (1,2,3,4,5). (Esto ya lo termine) --------------------------------------------------------------------------------------------------------------------------------- Requiero lo siguiente 1.- Mediante eventos de click movere el cursor a una posición, dará doble click y se seleccionara un texto. (Esto ya lo he hecho) Private Sub DoubleClick() 'Double click as a quick series of two clicks SetCursorPos 200, 100 'x and y position mouse_e…