hola gente del foro,les hago la siguiente consulta:he visto un codigo,con el cual encuentra la ruta del archivo por mas que la cambie de dir o de pc y quiero grabarlo como un archivo pdf en el mismo dir y con el mismo nombre del archivo en uso (pero como pdf)adjunto ejemplo Range("A1:F16").Select 'aca elijo el rango que quiero "grabar" ActiveSheet.PageSetup.PrintArea = "$A$1:$F$16" 'esto tal vez no sea necesario ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ RUta = ThisWorkbook.Path & "\" 'asi hallo la ruta del archivo nombre = "Libro.pdf" 'Nombre del archivo(es necesario?)[/CODE] Libro1.zip

Buen dia espero me puedan ayudar mi problema es el siguente: tengo varios libros en un directorio y quisiera sumar la columna K con condiciones de la columan L y que asu vez por cada libro que sume lo ponga en una hoja que envio que se llama "Prueba" por ejemplo en la hoja viene el nombre de todos los libros quiero que la condicion sea lo que aparece de la celda B1 a M1 y que la suma del libro Abril_1951 aparesca en su fila y asi sucesivamente envio tambien la forma de como son los archivos ("Sep_2013") Prueba.zip

Buenas Foro. En un rango de celdas variable en columna A tengo rutas y nombres de archivos para adjuntar a un correo. Con .Attachments.Add adjunto un archivo y mi pregunta es como podria adjuntar los que tengo en el rango A con algun bucle o algo?

Hola foreros Es posible generar una macro en la hoja1 tal que aparezca un cuadro de dialogo y luego se introduzca un numero, ese numero se encuentra en la hoja2. Si no lo encuentra mandar un mensaje de que no existe La cuestión es que en la hoja1 diseñé una planilla, la cual se encuentra como el numero de la planilla, fecha, dirección, etc pero también le añadí unos botones de opciones a elegir, por ejemplo: está casado? Botón opcion1=SI o Botón opcion2=NO. Como veran existen respuestas abiertas y cerradas En la hoja2 están los datos ordenados por columnas, es decir, columna A=Nro de planilla, columna B=Fecha....columna F=Está casado?....Cada fila de la hoja2 represent…

Hola a Todos Espero estén muy bien, acudo a uds por lo siguiente: En un archivo hago un listado de archivos que están contenido en una carpeta (siempre la misma), necesito que al seleccionar una o varias (hasta 5 celdas), abrir los pdf's de acuerdo al nombre contenido en la o las celdas seleccionadas. Una vez abierto el archivo, pintar la o las celdas seleccionadas, para saber cuales fueron abiertas. Buscando en el foro, encotré una solución, pero solo funciona para una celda. Solución que encontré en el foro, por @Haplox Adjunto la opción que estoy manejando yo, que es un código que lo activo mediante un boton. Saludos Cordiales…

Estimado, espero que me ayuden. Tengo una tabla dinámica, en la cual tiene un filtro "FECHA" en la cual a travez de una macro, mas abajo se muestra, le cambio el periodo, dado el valor en una celda. Pero ahora necesito una macro para para seleccionar varios dias, una semana para ser mas preciso. Digamos que tengo 01/01/2012 al 07/01/2012 de A1:G1 SI me puede ayudar con el tema seria excelente. Gracias Sub PANELCONTROLCOMPRAS() ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS"). _ ClearAllFilters Val = Sheets("CONFIG").Cells(1, "A").Value ActiveSheet.PivotTables("TDCOMPRAS").PivotFields("DIAS").CurrentPage = _ Val End sub[/CODE]

buenas tardes tengo un archivo en el cual tengo dos formularios el primero esta excelente el segundo es del login el cual tiene que tomar los usuarios y las claves de la hoja llamada usuarios pero esta dando un error al iniciar el archivo espero me puedan ayudar. CONSTANCIAS 1.2...rar

Buenas noches Tengo el siguiente código que muy amablemente me ayudaron Sub Nuevokardexclte() Sheets("A1").Select Sheets("A1").Copy before:=Sheets(7) For Each Sh In Sheets If InStr(1, Sh.Name, Range("B1")) > 0 Then 'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener For i = Len(Sh.Name) To 1 Step -1 If Mid(Sh.Name, i, 1) = "-" Then indi = Right(Sh.Name, Len(Sh.Name) - i) + 1 nvonbre = Left(Sh.Name, i) & indi ActiveSheet.Name = nvonbre Exit For End If Next i 'si i = 1 es que no encontró el guión If i = 0 Then nvonbre = Range(…

Buenos dias foreros Estoy realizando un archivo excel que mediante una macro (a traves de un botón) crea una nueva hoja. -----Partimos de una página inicial 'INDEX' -----Pulso el boton de crear hoja ----Aparece un cuadro emergente que me pide el nombre de la nueva hoja (P.ej. 'BARRABAS') -----Se crea la nueva página con ese nombre 'BARRABAS' -----Necesito que en mi página 'INDEX' se cree un gráfico con datos de la hoja 'BARRABAS', El gráfico lo consigo crear con mi macro pero no puedo extraer datos de la n…

Hola: Necesitaría insertar a la vez (con GetOpenFileName) las rutas de tantos archivos como seleccionara, dispuestos en una misma fila uno a continuación del otro (ej, si marco 3 archivos, se inserten sus rutas en A1, B1 y C1). ¿Cuál sería el código? He visto muchos ejemplos, pero permiten seleccionar sólamente un archivo. Razón: para aplicarlo a una plantilla que envía correos, por filas, con adjuntos. Saludos.

Buenas!!, un gusto saludarlos nuevamente, vengo por otra inquietud que no me deja dormir... pues como siempre yo con mi proyecto "Frankenstein" con macros adaptadas a lo que necesito pero que milagrosamente funcionan... lo que quisiera es que pudiera elegir el rango de la hoja a imprimir y que se muestre el valor de una celda que identifica el rango, en este caso el nombre del estudiante ubicado en la celda, d10 es decir si voy a imprimir el primer rango A1:I39 elegido en una listbox que me muestre el nombre del estudiante ubicado en D10 e imprima ese rango, seria muy bueno que antes de imprimir se dirija al rango del estudiante elegido para poder visualizar e…

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…

Buenos días. Quisiera vuestra ayuda, he creado una macro excel para remitir correo desde una tabla excel, esta macro lee las celdas de excel y según condición envía un correo con el outlook, he conseguido ponerle confirmación de lectura, confirmación de entrega e importancia alta mediante esta macro, pero no encuentro nada y lo he buscado, de como ponerle seguimiento al correo enviado de un día. Les agradecería que me orientarais. Muchas gracias

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.

Buenas días Primero me gustaría agradecer a la gente de este foro por toda la ayuda que proporcionan a la gente como yo que no se manejan muy bien con Excel pero que tienen ganas de mejorar. Aquí está mi problema y no sé como corregirlo: Me sale este mensaje: Se ha producido el error '1004' en tiempo de ejecucción No se puede asignar la propiedad Name de la calseFont Y cuando depura sale lo siguiente: Range("J301:P301").Select Selection.Copy Sheets("Mis recetas").Select Range("H2:N2").Select Range("H2").Activate Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop ActiveSheet.Paste Selection.PasteSpecia…

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…

Buenos días a los miembros de este prestigioso foro, recurro a uds, para que brinde su apoyo con una macro, el cual me permita borrar los valores que contengan 0.00 en las celdas c y d. A la espera de su ayuda, quedo agradecido por su colaboracón. MACRO PARA ELIMINAR.xlsx

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

Hola! Necesito hacer una columna donde cada celda sea un combobox, y que aparezca la opción de autocompletar. Encontré algo similar en este post: Sin embargo, la macro que comentan no me está funcionando. Me aparece el error 1004: "No se puede activar la aplicación de origen de este objeto." Alguien podría ayudarme? Gracias!

Hola que tal, antes que nada muchas gracias a quienes se tomaron la molestia de leer mi post anterior; estoy de nuevo en el foro ya que solo necesito una ayuda en este nuevo problema que tengo, no logro hacer o no comprendo bien como esta estructurada esta macro digamos que en mi hoja ACUMULADO es donde tengo todos los datos, en las demas hojas estan separadas por estado, la informacion se distribuye de acuerdo a la celda A1 que viene en cada hoja, ahora lo que no se como lograr es que la informacion en vez de que se llene de A2 en adelante, lo haga a partir de la celda B15 ya que cada hoja tiene un formato igual, pero ahora no se como hacer eso desde la celda B15 y si m…

Buenas he estado buscando alguna macro para guardar en un mismo pdf, dos hoja del mismo libro excel y no encontré nada. Puede ser que no se pueda hacer?

Buenos días, expertos por favor me pueden dar una mano con una macro donde me debe mostrar un mensaje si la boleta fue impresa con anterioridad, para que me diga por lo menos se esta duplicando con la impresión de dicha boleta algo así, de lo contrario que me imprima normalmente, por favor los agradecería un montón. Adjunto el archivo Planilla-de-remuneraciones-y-boletas-de-pago-1-1.xlsm

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

Que tal. Soy nuevo en esto de la programacion y estoy "tratando de automatizar un formato de vacaciones" colocandole un calendario virtual para que de alli se tomen los dias que se ocuparan. En la maquina que uso funciona bien. El detalle es que quiero distribuirlo entre mis compañeros, pero el calendario no aparece en las demas maquinas. Esta tiene Excel 2010 y el archivo ext .xlsm, pero no todas las maquinas tienen el 2010. Agradeceria cualquier ayuda. FormvacWhisho1.xls

Abrir un Libro2 al rellenar una celda en Libro1 Hola a todos Tengo un Libro_1, en la celda A1 tengo la ruta del libro que quiero abrir, es variable (libro2......), y quiero que se abra al rellenar la celda A2, tengo claro que esto se hace con una macro y tengo algunas ideas al respecto, pero no me funcionaron, alguien me podría pasar un código. gracias anticipadas y salud_2