Buenas Tardes Tengo un archivo con una macro para abrir un documento de word con excel y la macro funciona bien. Pero me pregunto cómo debería escribirse el código vba para que se abriesen varias hojas incluyendo la ruta de cada documento. En mi ordenador podría colocar todos los documentos en la misma carpeta para simplificar la ruta de acceso. Pero cómo hacerlo en este caso y en aquellos casos en los que los archivos están en carpetas directas. También querría saber cómo hacerlo con accesos directos que requieren la introducción de usuario y contraseña. ¿Podría alguien ponerme o añadirme algún ejemplo en el archivo que adjunto. gracias por adelantado. Borja abri…

Etiquetas Twitter (HashTags): Quisiera ver quien me puede ayudar en mi libro, lo que necesito es poner la cantidad de articulos vendidos y que se valla descontando automaticamente de las existencias de mi inventario de verdad agradeceria me ayuden 1.xls

Buenas Noches, Tengo el archivo adjunto, el cual se completa y copia a las celdas debidamente, sin embargo quisiera que en vez que este el textbox18 (proveedor) sea un combobox el cual tenga los nombres de los proveedores de las pestañas (IMPORT1, IMPORT2, IMPORT3), los cuales al momento de selecionar se copie automaticamente a sus respectivas hojas, pero solo los datos de A9 hasta F9 que serian osea, N° de OC Cliente, Fecha OC, Trabajo N°, Cliente, Vta. Neta Local, Vta. Neta Directa del Userform6, claro y que se mantenga que se siga creandouno ensima debajo de otro caba vez que ingrese uno nuevo. Mus¿chisimas Gracias por su apoyo! EJEMPLO OC.zip

Buen dia para todos los moderadores y todos los que deseamos aprender de este humilde foro, mi inquietud es la siguiente, tengo algunos comentarios en el formulario: 1 - Buscar la ruta de los libros y cargar el listbox.(001-2013.xls) 2 - Seleccionar los libros que se copiaran los valores en el libro seleccionado. (001-2013.xls) 3 - Copiar los valores del libro seleccionado. No se si estare bien explicado en base a las normas. slds, Fernando 006-2013.xls ORDIMPORTAR.xls

Buenas noches, por motivos de trabajo estoy intentando utilizar excel para abrir toda una serie de archivos para mi trabajo. Aquí adjunto un zip con una hoja excel en la que se incluye una macro para abrir un documento de word. Creo que es correcta pero no sé si falla alguna linea de codigo. Me podeis ayudar? Tb quería plantear la duda de como abrir accesos directos de aplicaciones con introducción de usuario y contraseña de modo que se pueda programar en vba la introduccion de estos datos de forma automática, si es posible. Espero vuestra ayuda. Gracias abrir_documentos_word.zip

Estimados amigos Luego de algún tiempo solicito su ayuda Tengo un reporte el cual me genera una fila por cada paso que da determinado proceso, lo que quisiera que me ayuden es crear un resumen a partir de este reporte que enliste en 1 FILA por cada procesos y que mientras el mismo cogido HR se repita tome información de este reporte (Fecha en que se recibe cada paso y usuario que recibe cada paso) y la ponga en columnas por cada paso que el proceso avance, hasta N pasos según el reporte (usuario que recibe, fecha que recibe, número de días que se tomó ese paso, que no será otra cosa que la fecha en que sale menos la fecha que llego). Tomando en consideración que la fe…

Hola Amigos Nesecito guardar los datos ingresados en el formato en una hoja nueva. para luego poder poner solo el codigo del cliente y que salga todos los datos ya anteriormente guardados, poder modificar tambien esos datos. luego poder imprimir la hoja 1 demoooooo.rar

Alguien me puede explicar como pasar un word a pdf desde vba?? Estoy probando con el siguiente código Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open("pathtoFile\Plantilla.doc") wrdDoc.ExportAsFixedFormat OutputFileName:="pathtoFile\wordtest.pdf", _ ExportFormat:=wdExportFormatPDF[/CODE] [/font][/color] [color=#141414][font=Georgia]Es lo que he encontrado googleando un poco, el problema esta en que la opcion ExportAsFixedFormat no me aparece por lo tanto en esa línea…

Hola ojala q alguien me pueda ayudar, necesito una macro que me guarde un archivo adjunto de Outlook, pero que sea de un dominio especifico ej. @ssss.com y que sea guarde cuando reciba el mail, osea que no lo tenga q ejecutar yo q se ejecute automaticamente cuando me llegue dicho mail de dicho dominio, ya tengo un Scrip Este es mi codigo, y la verdad es que lo encontre, ya qu no se programas , espero q puedan ayudarme.... Sub GetAttachments() Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Dim SubFolder As MAPIFolder Dim strInter As String 'Abajo pongo el nombre o parte del nombr…

Este tema lo estaban tratando en una consulta anterior: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/expertos-distribuir-texto-varias-celdas-30242/index2.html#post145900 Yo solicite la ayuda de uno de los colaboradores pues su programación funciona bien, pero creo que el problema es que tengo las columnas combinadas de la "D" a la "I", y quizá por esto sea el error, adjunto el archivo en el que trabajo, lleno desde la fila 11 y puedo llegar hasta la 1000, (en realidad solo he llegado a la 780), pero las descripciones de mi stock ha ido en aumento... hay algunos botones el archivo, es de excel 2007, un botón borra la captura, otro selecciona un área que yo …

Hola Expertos tengo un archivo en el cual ya inserta los usuarios y su contraseña, quiero validar esos usuarios y contraseñas que se vallan agregando. ya tengo una parte del codigo solo quisiera ver si es posible que se validaran y cuando la contraseña y el usuario sena correctos abra un userform ahorita puse de prueba el Form_BIENVENIDA Este el codigo del boton ingresar. Private Sub CommandButton1_Click() On Error GoTo Errorusuario For I = 2 To R a = Sheets(BD_USUARIO).Cells(I, 8) b = Sheets(BD_USUARIO).Cells(I, 9) If a = Txt_Usuario And b = Txt_Contrasena Then Sheets(BD_USUARIO).Range("H2") = Txt_Usuario Sheets(BD_USUARIO).Range("I2") = Txt_Contra…

Como puedo hacer para que mi fila insertada se copien las formulas de la celda superior o inferior. Saludos, Selecciona propuesta.xls

Hola Amigos, Quiero ordenar unas cuantas columnas, en el fichero lo dejo explicado, el orden también. Creo que es algo sencillo pero soy demasiado novato y no he sido capaz. Gracias por estar siempre ayudando. un abrazo vic Ejemplo Ordenar Cumple.xls

Buen dia En este libro tengo 3 hojas, las hojas 1 y 2 ocultan las filas segun la informacion de la celda A1, en la columna C debo calificar los valores de cumplimiento, lo que requiero en este caso, es que cuando C este vacio o sea cero, el valor de B se copie en la hoja3 en la columna A. Tengo inconveniente por que con el Macro3 intente hacerlo, pero me reune toda la informacion oculta y ademas lo copia en desorden y con espacios. Gracias por su ayuda Filtro.zip

Buenas a todos. Desde antes gracias por su ayuda. Tengo un codigo para insertar una imagen cuando cambia la celda "E5" la imagen la inserta segun el valor de la celda "G3". Pero quisiera que me insertara la imagen que se llama "Imagen no encontrada" cuando la imagen no exista dentro del directorio. Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = "$E$5" Then Exit Sub On Error Resume Next 'Control de errores Me.Shapes("Foto").Delete ActiveSheet.Shapes.AddShape(msoShapeRectangle, 432.3077165354, 1, _ 118.8461417323, 105).Select Selection.ShapeRange.Name = "Foto" Selection.ShapeRange.Fill.Visible = msoFalse Se…

saludos. estoy ttrabajanndo en un treeview de un ejemplo que vi en internet pero me arroja un error Private Sub TreeView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer) With TreeView1.SelectedItem 'aqui una de las ventajas de tener bien definido el Tag. si este es 'distinto a marca , entonces es una caracteristica: If .Tag <> "marca" Then 'si la tecla presionada es la de borrar: If KeyCode = vbKeyDelete Then 'borro el dato en excel Range(.Tag).ClearContents ' 'y quito el nodo TreeView1.Nodes.Remove (.Index) ElseIf KeyCode = vbKeyReturn Then 'si presio…

Hola.Estoy intentando crear una macro que con una entrada como esta ( 01/01/2013) me diga a que mes hace referencia en una celda (enero, para este ejemplo) y en otra el año(2013). He intentando con sentencias como MONTH(), MONTHNAME(), pero no logre nada debido al formato en que lo ingresé (dd,mm,aaaa).Agradezco su colaboración

amigos tengo la siguiente problematica como hacer que me imprima en hoja distinta por cada n°orden, respetando su encabezado para cada hoja ejemplo tener una hoja con un resumen de ordenes de trabajo asociados a productos y cantidades ej orden - producto -cantidad 10 a 3 10 b 1 10 d 7 20 r 5 aqui la idea es que cada orden puede ser rango variable , puede tener una linea o tb puede tener 1000 lineas entonces que imprima por cada orden y si la siguiente orden cambia copiarla a la siguiente hoja de impresion respetando su encabezado, para que imprima en forma ordenada…

Estimados necesito hacer un formulario de busqueda en excel que busque un dato ingresado en un textbox y al encontrarlo me de un msj con la informacion que esta ingresada en la misma fila pero 21 columnas mas a la derecha Tengo lo siguiente Private Sub CommandButton5_Click() If TextBox5 = "" Then MsgBox "Ingresar RUT" Else docid = TextBox5.Value With Worksheets("hoja1").Cells Set dato = .Find(docid) If Not dato Is Nothing Then MsgBox dato.Offset(0, 21) Else MsgBox "No se encontró registro" End If End With End If End Sub funciona, pero el problema es que si ese RUT se encuentra ingresado en…

Hola Amigos de Ayuda Excel, estoy elaborando un macro q me permita recordar una tarea a realizar en una feha determinada, pero este recordatorio se realiza una vez cada mes, yo lo estuve configurando y no se porq no me funciona, anexo dicho codigo para q por favor me ayuden a corregirlo... de antemano muchas Gracias por su Ayuda. Option Explicit Private Sub Workbook_Open() On Error Resume Next With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False Dim m, d, yy, dia As Long Dim fechafin As Date d = Day(Now()) m = Month(Now()) yy = Year(Now()) fechafin = dia / m / yy If Day(Now()) = 1 Then dia = "1" End If Dim Mes Mes = Mont…

Hola todos me he quedado en esta parte de mi proyecto explico lo que necesito hacer: bueno tengo clientes, productos y boletas en mi formulario listarfacturacion necesito filtrar las boletas por medio de codigos, cliente, producto o fecha pero que cuando me filtre me siga seleccionando la celda real del registro , en otras palabras si le hago clic en mi listbox debera seleccionarme la verdadera celda de mi hoja , adjunto ese fragmento de mi proyecto parte filtrado de boletas , bien funciona solo por Numero de boletas del combobox N° Boletas seleccionen una boleta del combobox y lo filtra perfectamente si dan click en al lista filtrada pues podran darse cuenta que si to…

Como puede hacer para que al mismo tiempo de agregar una fila me copie las formulas de la celda superior. Saludos Selecciona propuesta.xls

Estimados, Necesito poder ir alimentando una base de datos copiando datos desde una pestaña "editador" hacia Base_vigencia, pero a la ultima celda en blanco que seria en la base que adjunto la A19:L19. Si fuera posible también arreglar una macro que realice que limpia los datos del cuadro de los espació, pero no que no borre los datos de espacio de la celda "C4" Otra consulta, como llegan a aprender a programar macros tan geniales de forma autodidacta??? Vigencias_Matriculas.rar

Esta es la macro que agrege para insertar una fila y agrega el valor de un combobox, pero como ago que mi valor acepte valores alfanumericos, Selecciona propuesta.xls

Tengo varias macros en una misma hoja y el excel me bota un error y no me las deja ejecutar por favor me pueden colaborar. El código es el siguiente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$7" Then MostrarVentasFacturadas End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$8" Then MostrarVentasPerCapita End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$9" Then MostrarRotacionTotal End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$c$10" Then MostrarRotacionNeta End Sub Private Sub Worksheet_…