Buen día compañeros. Estoy empezando a trabajar con macros y tengo un problema que quizá sea fácil de solucionar para ustedes. Necesito una macro que haga basicamente dos cosas: 1) abra un archivo de excel que tiene el mismo formato pero que cambia todos los días de nombre 2) copiar de ese archivo cierta cantidad de información y pasarla a un formulario Por ejemplos: - el archivo hoy se llama APAPCH120712.XLS, lo quiero abrir, tomar algunos datos y copiarlos a mi formulario. - el archivo mañana se llamara APAPCH120713.XLS y requerire lo mismo. - y asi sucesivamente. Gracias anticipadamente por su apoyo y comprensión. SALUDOS A TODOS

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é …

Buen dia !! Soy usuario basico-medio de excel, e visto temas de manejo de VBA pero se me es dificil hacer codigo con esta herramienta. Solicito colaboración con lo siguiente: Tengo un archivo de excel 2010 que funciona como una pequeña base de datos, la idea es que este archivo me sirva para manejar una agenda para reservar espacios para unas sesiones, o sea crear un formulario donde pueda hacer una busqueda de una fecha y un rango de hora para saber si se puede asignar el espacio y no se cruce con la agenda de otros usuarios, en lo posible que el sistema informe con quien se esta cruzando. Adjunto el archivo donde tiene la hoja principal PROGRAMACION AGENDA, creo q…

Hola a todos, intento hacer una macro para pedir precio a proveedores. Aplico un filtro deseleccionando los valores que necesito (en el ejemplo Capítulo y Hormigón) y eliminando las filas filtradas, luego con el filtro muestro los datos que restan que son los que necesito que aparezcan y por último "guardo como" el archivo primitivo añadiendo lo indicado en M2 (en el ejemplo _HORMIGÓN) en el mismo directorio donde está el archivo base. Pero no sé como automatizar la macro para que lo haga para todos los posibles filtros a aplicar (siempre Capítulo + uds de columna pedir precio) y además siempre me lo guarda como "Excel base para macro_HORMIGÓN.xlsm". A ver si podéis echar…

Saludos Deseo usar excel multiusuario pero me antes me pide transformar tablas a rangos, el problema es que no puedo convertir algunas tablas, ya que son control source o row source para algunas macros. ¿Es posible trabajar un libro multiusuario sin convertir dichas tablas? de antemano, gracias.

Hola Equipo Excel, Quiero sber como puedo darle un tiempo limite a un libro excel que al caducar el tiempo se cierre o te pida una contraseña; y asi cada vez que la abra.. Gracias de antemano

Que tal, estoy haciendo el calculo de la ruta critica de red CPM, lo tengo muy desordenado , pues no tengo experiencia y poco conocimiento en las funciones de Excel. Si alguien puede opinar acerca de este tema les agradezco. Les puedo dar mas datos , no los quiero agregar para no ocupar espacio en la pagina. trabajoa.xls

Hola! Primero que nada, quiero comentarles que no tengo mucha experiencia en macros, pero he estado leyendo y buscando mucho para resolver este pequeño dilema y no encuentro como adecuar los ejemplos a mi archivo. Básicamente, tengo dos archivos, uno de base de datos y otro de ordenes de compra, tengo un userform en el archivo de ordenes de compra, donde quiero que al poner un nombre de orden de compra, lo busque en la base de datos, y solo me salga un msgbox que diga si existe o no existe. Encontré un código buscando por internet, pero se me cicla y siempre me dice que no se encuentra la orden de compra, aunque si exista. Ojalá me puedan ayudar, porque estoy un poco …

Hola estoy tratando de imprimir el archivo de Word anexado con una Macro a ambas caras y 2 páginas por hoja, el siguiente codigo lo he sacado con la grabadora de macros. Si me funciona pero solamente cuando la estoy grabando, posteriormente utilizando solo el codigo ya no funciona. Alguien que me ayude? Gracias. Sub Macro1() ' ' Macro1 Macro ' ' Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _ wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _ PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ …

Siguiendo otros temas cerrados de este foro he intentado he intentado hacer consulta web con usuario y contraseña pero no lo consigo. En codigo fuente de la página aparece éstas lineas que imagino corresponde a los campos de usuario y password: <p>Your Username/Email:<input type="text" name="email" /></p> <p>Your Password:<input type="password" name="password" /></p> Mi macro queda así: nick = "t11235813@hotmail.com" pass = "descarado" bch = "My Barchart - Registration | My Barchart Login=" & "052112" With ActiveSheet.QueryTables.Add(Connection:="URL;" & bch, Destination:=R…

Saludos a toda la comunidad mi problema es el siguiente: Tengo dos celdas con los valores siguientes tiempo1 = 00:01:30 y tiempo2 = 00:09:00 donde tiempo1 va en aumento y tiempo2 es fijado por el usuario quiero realizar un macro en que el compare dichos valores y en el momento en que tiempo1 sea igual a tiempo2 me mande un mensaje avisandome que el tiempo es igual o si se pudiera una alarma sonora espero su respuesta de antemano gracias

Tengo esta pequeña macro con el fin de incrementar o disminuir el precio de varios artículos en una lista de precios a partir de un valor porcentual, donde B70 es la celda en la cual se especifica el valor a aplicar, en formato de porcentaje, sin embargo solo he logrado que se ejecute en una única fila de la columna B, ¿cómo puedo hacer que continue sucesivamente hasta un rango determinado? En mi caso seria (B2:B65) rango que contiene todos los precios que desearía incrementar o disminuir. 'Disminuir el valor de la celda. Sub Macro_Bajar_Valor() Range("B2") = Range("B2") / (1 + Range("B70")) End Sub 'Aumentar el valor de la celda. Sub Mac…

Buenas tardes, Mi duda surgió cuando me panteé cómo saber si un archivo excel está abierto antes de abrirlo a través de código VBA. Encontré varias maneras de saberlo pero ninguna de ellas diferencia si el archivo en cuestión está abierto por el mismo usuario que pretende abrirlo o si por el contrario está abierto por otro usuario de la red. Sin embargo se me ocurrió que tal vez si encontraba una manera de saber qué usuarios tenían abierto dicho archivo, me ayudaría a discernirlo. Y para ello encontré el siguiente código: Sub Numero_Usuarios() Dim users As Variant users = ThisWorkbook.UserStatus MsgBox UBound(users, 1) End Sub[/CODE] Y aunque …

Hola a todos: Mi consulta se refiere a que he leido y buscado mucho en el foro pero no encontre ninguna respuesta certera. necesito crear o tengo un libro nuevo desde cero sin nada adentro, en un rango de celdas introduzco con un formato que la solapa de Hoja soporte: ejemplo: 09-05-2013 ya que las barras no me las admite y no me interesa en realidad. bueno volviendo... en un rango ej: P1:P31 que serian 31 dias de algun mes o 30 de otros, que ese rango me genere 31 solapas de hojas cada una con una fecha correspondiente a todos los dias que yo ya habia precargado en el rango de celdas anterior, se entiende? es como si me hiciera el calendario completo de el mes en curso…

Hola de nuevo. Llevo mucho rato probando y leyendo y no veo manera de salir de esta. Tengo una consulta sql que construyo concatenando Textbox que no me acabo de funcionar bien. Quiero usar Like y la "*" y no veo forma donde ponerla. La ponga donde la ponga o me da error de sintaxis o otros errores. Tal y como tengo el código solo me funciona si el valor que pongo en el Textbox es EXACTO, pero yo quiero que con solo poner parte de la cadena que filtro sea suficiente, por eso intento usar Like. Os agradezco la ayuda, en definitiva necesito saber como construir la consulta usando "*". Este es el código: Private Sub CommandButton1_Click() 'macro que …

Buenos dias, tengo el siguiente problema, he creado un libro que me permite crear hojas a medida que ingreso nuevos equipos en la hoja inicio, los registra en una tabla (eso ya funciona), y la nueva hoja es la copia de una una hoja "Base", lo que no he podido hacer, es que el código del equipo ("f7" en adelante) quede como hipervinculo a su hoja respectiva que lleva el mismo nombre, necesito de verdad ayuda... adjunto archivo, gracias Planilla_Base.rar

Hola, Quiero modificar la propiedad (Name) de una hoja excel con código. Puedo modificar el Name (sombreado en azul en la imagen adjunta), pero no el (Name) (con el círculo rojo en la imagen adjunta), adjunto imagen. Alguien sabe como hacerlo? Gracias

Hola, tengo una duda, ya había trabajado anteriormente con conexiones en excel, pero desde Access, en esta ocasión me pidieron realizar las conexiones de SQL y estoy teniendo problemas con ello. Les dejaré el archivo en el que estoy trabajando. Es un reporte de resultados, lo que quiero realizar es que por medio de la fecha se actualicen los datos de las consultas que tengo en las hojas por medio de diferentes macros, pero al momento de correr la macro me sale el error "Subindice fuera de intervalo" en la conexión. Si alguien sabe sobre este error, sería de gran ayuda. PD: Mi servidor de SQL tiene usuario y contraseña, se supone que ya se los establecí en la conexión…

Hola Muchachos, Pues Pido d su ayuda debido a que no me e familiarizado mucho en VBA para Excel. Pues tengo un Formulario ( Bienvenido ) con un Label llamado LblVendedor pues a este quiero Asignarle un Caption a través del Nombre de un Caption de un Botón incrustado, el Problema es que, el botón incrustado no se encuentra en el mismo Modulo y no se como hacer la referencia en el Procedimiento para asignar el Caption a LblVendedor.. Private Sub CommandButton1_Click() Label = Me.CommandButton1.Caption LblVendedor.Caption = Label <------ aca Esta mi duda....... Bienvenido.Show Valor = 1 End Sub Su ayuda Por Favor...

Estimados, Nuevamente necesito de su ayuda, adjunto planilla excel para el que me pueda ayudar. Necesito una macro que recorra los datos de la columna B y me copie en la otra hoja solo los valores con dato con un nombre de Campo distinto, es decir en vez de copiar el titulo de la columna B (Edad) se genere con otro titulo (Dato Edades) en la Columna A. Espero sus comentarios, Saludos. Macro_Copiar.rar

Hola Estimados, Ustedes que son los mejores en Excel, Lo que necesito es que cuando se registre un producto de “Entrada de Mercadería” en precio pase Automáticamente a la pestaña de “entradas” y la columna “precio” al generar el reporte respectivo. Por otro lado quisiera pues algunos botones no me funcionan, están inactivos, estos son: “salida por cliente”; “stock actual por proveedor” “entrada por proveedor”, estos me gustaría que cumplan su función al presionarlos, por favor sería posible me apoyen en saber cómo lo Puedo hacer? Les dejo el adjunto. Muchas Gracias. Excel_Stocks 3.zip

Hola a todos; -Estoy intentando añadir una imagen a los ajustes de impresión y no la carga. No sé donde puede estar el error. Y una duda, ¿como puedo insertar una línea a lo ancho de la hoja?. Lo que tengo ahora mismo solo la inserta a la derecha, podría hacer lo mismo con left y center pero me deja un espacio en blanco y la línea no queda continua. Private Sub btn_Imprimir_Click(): On Error Resume Next With ActiveSheet.PageSetup .PrintArea = ActiveSheet.UsedRange.Address If IsNumeric(Me.TextBox1) Then .Zoom = CDbl(TextBox1) .CenterHeaderPicture.Filename = "C:\Users\Via Norte\Pictures\1.jpg" .RightFooter = "__________________________"…

Buenos dias Tengo un formulario con un boton y dos cuadros de texto que empleo para abrir un libro excel. El primer cuadro de texto es para indicar el nombre del archivo y el segundo cuadro de texto es para indicar la hoja del archivo que quiero abrir. Lo que busco es si el archivo no existe genera un error y con la instruccion de on error coloco un Msgbox diciendo que el archivo no existe y se detiene la instruccion. Ejemplo: Private Sub CommandButton8_Click() On Error GoTo error1 Dim nombrearchivo As String nombrearchivo = "\\SERVER\Users\Administrador.SERVER\Documents\PEPE\PEPE\Dpto. Comercial\Presupuestos\Ofertas\Excel\Ofertas " & TextBox2.Value &…

Buenos días a los integrantes de este foro, en esta ocasión recurro a Uds, para que brinde su apoyo en como solucionar el ERROR en la siguiente instrucción que detallo, los archivos estuvieron trabajando sin ningún problema, pero haces 2 días comenzó con a fallar Error ejecución. Set objWord = CreateObject("Word.Application") Siendo la macro original: Sub tablaaword() patharch = ThisWorkbook.Path & "\CARTA FAPOSA.docx" Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0 Worksheets("TELECREDITO").Range("A1:D7").Select Selection.Copy textobuscar = "[tabla_ex…

Buenas tardes, Estoy intentando hacer un presupuesto en Exel he buscado en el foro y no he encontrado nada, he intentado hacer con sumar.si.conjunto pero no he sido capaz de solucionarlo. Lo que estoy intentando hacer es que de la hoja BD en la columna E(Ingreso) reste la columna D(gasto) y traslado a la hoja Gastos el resultado a columna B(gastos/Ingresos), cuando seleccione la fecha correspondiente dela hoja gastos columna B1. EspPresupuestos.xlsmero que me podáis ayudar Muchas gracias.