Buenos días de nuevo hoy. Estoy teniendo problemas con una macro y no logro resolver. En la macro he creado un módulo que muestra un formulario sí la fecha de la columna "Fecha" es igual al día actual y después envía un mail al destinatario. El problema es que al hacer dicha comprobación me duplica los mails. Un saludo para todos. Adjunto macro: MMailAviso.xlsm

Hola a todos. soy nuevo en este foro, pido su ayudar para elaborar un formulario, que obtenga datos de una hoja llamado catalogo y que ademas me realice movimientos dependiendo de la cuenta seleccionada, espero sus opiones, y dejo aqui el archivo para que vean que contiene. de antemano mil gracias.. Libro3.xls Libro3.xls

Estimados, junto con saludarles, quisiera pedirles ayuda con respecto a un código el cual he estado trabajando. Se me produce el siguiente error 1004 al momento de ejecutar sin valores una macro, la cual he intentado agregarle un If Rango = 0 Exit Sub, o tambien he intentado If Rango is Nothing GoTo label, y ninguno me ha solucionado el problema. Les dejo el video que explicará mejor que mis palabras. El error se me produce en el Userform 3, en el código de Initialize, al parecer se genera cuando la macro intenta crear el rango "MiRango". 1004.mp4 Se les ocurre como podría solucionarlos? Agradecido por vuestro tiempo. Felipe,

Hola compañeros, tengo una hoja a la que asigno una macro para que me guarde un rango de celdas en una carpeta determinada y con el nombre de un rango de celda. Todo eso me lo hace bien, pero se desconfigura y pierde todo el formato. Si me podeis indicar como solucionarlo estaria muy agradecido. Adjunto hoja tal y como quiero que me la guarde y tambien la macro que le asigno. Gracias macro guardar hoja.txt Libro4.rar

Buenas tardes Tengo una hoja para el registro de vencimiento de facturas, del cual hice un formulario para mayor facilidad, sin embargo es para 3 compañías de la cual solo se escoge 1 por documento, y deseo que en relación a esa escogencia sea la búsqueda que hace de clientes, en las diferentes pestañas, la idea es que con solo el código, y ponga el nombre del cliente, la verdad con mi limitado conocimiento lo pude hacer con una sola, pero no con las demas, he tratado de varias formas y no he podido, les agradezco su ayuda. adjunto el archivo. Registro Prueba.xlsm

Buenas tardes Comunidad Ayuda Excel Modificando un aporte que hizo el MAESTRO Macro Antonio de Incidencias; llegue a la tarea que debo crear dos comboboxes dependientes. Con la siguiente información si dice: C&B:Juan , Pedro, Ana C&D: Pablo, Ale R&S: Marco, Julio, Rosa Otra: (Que el usuario digite otro nombre) Sin cansarlos más les adjunto el archivo y agradezco que me ayuden con el código si son tan amables por favor. Gracias de antemano Saludos desde Costa Rica Registro de incidencias.xls

Hola Bue dia, tengo un problema con un formulario que estoy haciendo, el error es que a agregar los datos del combobox a la hoja activa mesale este error error de aplicacion 1004 en tiempo de ejecucion y no logro encontrar porque seproduce este error, pero los datos se agregan pero el error sigue saliendo. Y tengo otra consulta tengo un textbox que se llaman subparciales que su numero dependiente del tipo que yo seleccione en el combobox, hay algun codigo o alguna forma de que me recorra los textbox y me coloque en otro text box del costado llamado subp el numero del suparcial ejemplo 296 y en el text box que dice parciales me coloque la suma del importe total de todos lo…

Buenas tengo un archivo que guarda la hoja en pdf y la envia por email, funciona perfectamente en office 2010 Sub envio_mail() 'envio correo pdf Application.ScreenUpdating = True ActiveSheet.Unprotect Password:="" Dim npres, cliente, Email, rutapdf, LIBRO, ArchivoPdf As String Dim ProgCorreo, CorreoSaliente As Object With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Set npres = Range("J5") Set cliente = Range("g10") Set Email = Range("g15") rutapdf = "C:\SkyDrive\Documentos\presupuestos\" ArchivoPdf = Range("F7") Set ProgCorreo = CreateObject("Outlook.Application") Set CorreoSaliente = ProgCorreo…

Arreglar un codigo o procedimiento con macros Hola amigos de este foro logre hacer un archivo para automatizar unas tareas que realizo en mi trabajo. Les comento lo que intente hacer una macro que cuando yo ponga terminado en una tarea y presione un boton me envie la fila completa a la segunda hoja y me la borre de la primera y que solo me queden las tareas por realizar. La cuestion es que el paso de que me copie la fila que ya esta terminada no me lo hace solo las borra. HABRA ALGUN ENTENDIDO DE MACROS PARA QUE ME SOLUCIONE EL CASO O ME DIGA SI HICE ALGO MAL. Gracias, Archive adjunto para que lo vean. Tareas anuales.xls

hola muy buenas, antes que todos muchas gracias a todos ustedes quiero que me ayuden a interpretar la siguiente macro: Public Function clave(ByVal Serie As String) As Double Dim resultado As Double resultado = 0 For I = 1 To Len(Serie) resultado = resultado + Mid(Serie, I, 1) * Mid(Serie, I, 1) Next I resultado = (resultado * resultado) - (resultado * 2) + Len(Serie) clave = resultado End Function atte. oscar

Hola, buenas noches, Tengo el ejemplo adjunto, el cual me gustaria puedan colaborarme con lo siguiente: 1. al estar en la hoja Ordenes, en la columna BC cualquier fila y escriba la palabra Proceso se copie a la pestaña Proceso. 2. cuando me encuentre en la pestaña proceso columna BC cualquier fila y escriba la palabra Pendiente se "corte" y peque en la pestaña Pendiente. 3. y cuando me encuentre en la pestaña Pendiente columna BC cualquier fila y escriba la palabra Cerrado se "corte" y peque en la pestaña Cerrado. Muchas Gracias por su amable apoyo. Saludos, ejemplo copiar a pestanas.zip

Estimados, Les comento lo que quiero hacer, y la verdad que me estoy volviendo loca buscando la solución. Tengo tablas de más de 50 mil filas y más de 10 columnas, de las cuales debo extraer información. Como lo que tengo que hacer es complicado de explicar, se los muestro con un ejemplo simplificado: A____B___C__D Ert__Bra__5__4 Sdf__Arg__7__6 Sdf__Arg__6__2 Sdf__Bra__5__3 Sdf__Bra__6__2 Sdf__Bra__5__4 Tyu__Arg__6__4 Tyu__Arg__2__3 Tyu__Bra__1__1 Uio__Arg__2__3 Uio__Bra__5__3 Vbn__Bra__4__2 De modo que Sdf debe sumar para Arg 13 en la columna C y 8 en la columna D, y de nuevo Sdf suma para Bra 16 en la columna C y 9 en la columna D. Algo similar sucede p…

Buen dia a todos. Un favorazo, necesito ayuda para crear un horario de visitas aleatorias para unas tiendas, adjunto archivo de excel de referencia y la explicacion de lo que necesito. son 21 visitas a la semana, haciendo solo 3 por dia, distribuidas por la cantidad de visitas programadas semanales para cada tienda. gracias de antemano. Saludos. NelCab Visitas en tiendas.xlsx

Buenos dias. queria saber si se puede hacer una macro que haga lo siguiente: (adjunto ejemplo) Cuando comienzo pongo el numero "1" en la celda A1, eso genera dos resultados distintos en las celdas B1 y C1. copio dichos resultado en la primera fila de una tabla y luego pongo el numero "2" en la celda A1, los resltados de las celdas b1 y c2, son volcados en la segunda fila de la tabla mensionada anteriormente, asi sucesivamente. lo que necesito es que vaya cambiando los valores en la celda A1 y copie los resultados en una tabla. Espero que me hayan entendido! Saludos Laura prueba 1.xls

Buenos dias, Tengo un modulo en VBA que me coge una tabla y me la exporta a txt por Tabulaciones. Funciona perfectamente siempre que la tabla empiexe en la celda "A1". El problema es que cuando quier por ejemplo que la tabla empieze a partir de "C10" y lo indico en la fila que cuenta filas y columnas no funciona. El codigo que uso es el siguiente: Sub ASM() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim Ht As Worksheet Dim i, j, nFilas, nColumnas As Integer NombreArchivo = "pedidos" RutaArchivo = "C:\IMPORTA_PEDIDOS\IMPORTA_ASM" &amp…

Hola a todos nuevamente, pues miren tengo el archivo adjunto del cual tiene el UserForm4 y CommandButton3 (Stock Actual por Proveedor) cumpla esta funcion, asi como lo hace la de Stock Actual por Producto, seria posible me apoyen en habilitarla? Pls, tengan en cuenta que este formato lo baje de internet, ya que mis conocimientos en VBA son nada jeje lo unico que hice fue modificar ciertas cosas. Muchas Gracias Macro_Excel_Stocks.zip

Hola. Buenas tardes a todos. Ojalá me puedan ayudar como siempre. Necesito generar tantas hojas como datos existan en el archivo adjunto. Me explico, de una Base de Datos (BD) en donde se relacionan diferentes números de Ordenes de Trabajo (OT), debo de crear una hoja resumen por cada OT. Es decir, en la columna "B", vienen los números de las OT usadas en esa BD. Entonces, mediante un procedimiento crear una hoja que contenga todas las filas en donde se mencione "equis" numero de OT. Si la BD contiene 8 o más Ordenes de trabajo, el procedimiento me debe de generar 8 hojas conteniendo la información de cada OT. Más la hoja Original. No importa si las crea antes o d…

Hola a todos, tengo una macro que creé, lo que quiero es que "jale" un archivo en .pdf de otra carpeta según condicion, es decir que si la celda en excel vb dice 125 enlace al archivo #125 para su visualización http://C:\Users\SSP\Desktop\NOVIEMBRE http://C:\Users\SSP\Desktop\ESCANEOS

Muy buenas noches, si alguien me puede ayudar a crear un macro el cual al ingresar un numero de cedula, me lo busque en una lista y me despligue la informacion que tiene en las columnas siguientes, y si la informacion esta errada me de la opcion de editarlo y si no encuentra la informacion me deje agregarlo, yo lo estaba haciendo con formulas y macros pero demanera independiente, pero nunca pude editar la informacion, las formulas que tenia eran las siguientes [TABLE=width: 80] [TR] [TD=class: xl68, width: 80]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;1;FALSO)[/TD] [/TR] [TR] [TD=class: xl68]BUSCARV($C$3;Hoja2!$AA$1:$AI$2998;2;FALSO)[/TD] [/TR] [TR] [TD=class: xl68]BUSCA…

Estimados un favor estoy tratando de deshabilitar la opción eliminar del menú contextual y de la barra de herramientas de Excel 2010. En el foro encontré un ejemplo pero al parecer sólo funciona con Excel 2007. No soy muy ducho en el tema así que agradecería darme una respuesta de lo más específica. Gracias.

Hola Foristas, buenos días. Espero se encuentren bien de salud. Hace algún tiempo realicé un Proyecto para mi esposa sobre las Pre-Nóminas. Este funciona correctamente gracias en gran medida a ustedes que me ayudaron, dándome solución a algunos temas que expuse, pero ahora me está surgiendo otro, que quizás no me di cuenta en ese momento. Dentro del FrmPreNominas yo creé un código para exportar a otra hoja las nóminas según su denominación, o sea, en el Formulario hay un Frame (Depurar) que tiene los nombres de todas las Pre-Nóminas posibles (dentro del Sistema) y al dar Clic, lo que hace es que según el Tipo de Pre-Nómina lo exporta a la Hoja con el mismo nombr…

Hola, cordial saludo pues nada, resulta que tengo este problema, estoy intentando crear en un formulario 2 combobox y el tema de siempre, uno depende de otro... esto es lo que he intentado hacer, pero de momento no me refresca el segundo combobox... alguna sugerencia me caeria muy bien Private Sub UserForm_Initialize() ComboBox1.List = Array("Red", "Green") End Sub If ComboBox1.Value = ("Red") Then ComboBox2.List = Array("uno", "dos", "tres") ElseIf ComboBox1.Value = ("Green") Then ComboBox2.List = Array("cuatro", "cinco") end if por otra parte si no quiero asignarles el valor como lo hago en este caso a través de un array, si no que el valor los tome de una ce…

Hola a tod@s. Como siempre agradecido por su tiempo y aporte para este nuevo tema. Tengo la siguiente macro Sub CopyPaste() Dim xRng As Range On Error Resume Next Set xRng = Application.InputBox("Selecciones el rango:", "MS Excel", , , , , , 8).Select ' If xRng Is Nothing Then Exit Sub Selection.SpecialCells(xlCellTypeBlanks).Select Range("A1").End(xlDown).Offset(1, 0) = "=R[-1]C" Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Copy ' Range("A1").End(xlDown).Copy ActiveSheet.Paste End Sub El cual funciona bien cuando se ingresa el rango en el InputBox. El detalle esta cuando decido "Cance…

En el documento zip adjuntado he conseguido poner en el commandbutton ENVIAR un código para enviar un mail desde mi cuenta de gmail pero no sé bien como incorporar la transaccion adjuntar archivos y si debería añadir algún cuadro de texto en el formulario para adjuntar la ruta del archivo o si puede aparecer como opcion ¿Pueden ayudarme? enviar email.zip

Hola amigos, les explico tengo un formulario llamado ordendecompras hice varias columnas y filas usando texboxt partida, cantidad, unidad, descripcion, punitario e importes textbox1 textbox2 texbox3.... Y asi sucesivamente en total son 12 lineas con diferentes textbox soy nuevo en esto deseo multiplicar texbox2 * texbox4 y el resultado ponerlo en textbox5, al mismo tiempo se vaya sumando en texbox30 que es la suma del textbox5, texbox10... Etc pero que al salir de cada textbox el formato sea numérico con separación de comas y decimales, lo mismo la suma total, agregare la imagen espero puedan ayudarme y gracias de antemano [ATTACH]36381.vB[/ATTACH]