Buen día a toda la comunidad, tengo el siguiente inconveniente: _ Tengo 2 archivos llamados copia y original y quiero hacer un consolidado de todos los datos en una sola hoja sin duplicar datos. copia: Dropbox - copia.xls original: Dropbox - original.xls Gracias de antemano Saludos

Hola amigos, estoy tratando de exportar un rango en formato PDF. Al exportar todo bien, pero cuando quiero agregar imagen en la cabecera no esta funcionando. La imagen lo tengo en la hoja "hjDatosA" del mismo libro, los datos lo tengo en la hoja "hjDatosB" del mismo libro. He buscando publicaciones anteriores y encontre esto ActiveSheet.Shapes("logo.jpg").Select Selection.Copy ActiveSheet.ChartObjects.Add(1000, 1000, Selection.Width, Selection.Height).Select ActiveChart.Paste ActiveChart.Export Filename:=ThisWorkbook.Path & "\" & ActiveSheet.Shapes("logo.jpg").Name, FilterName:="JPEG" …

Buen dia ,tengo una gran problema estoy ejecutando una macro para que los valores de una columna o rango de columna sea dividio entre 10 y 100, resalto tambien que ese rango de columnas hay datos como "----" y texto , el problema es que me bota un error , adjunto imagen , ademas que se ejecuta muy lento

Buenas noches, Soy nuevo por aquí y he observado que hay varios post referente a realizar envío de mensajes mas o menos complejos a Whatsapp desde VBA. Hecho en falta una parte muy importante, que es poder capturar una respuesta que te haya dado un contacto para almacenarla y/o avanzar en la conversacion. Pongo un ejemplo, Tengo un listado de citas medicas en Excel que me gustaría confirmar su asistencia mediante comunicación whatsapp. Con lo que he podido encontrar por los foros llego a poder enviar a cada contacto un recordatorio de la cita, pero necesitaría que de alguna manera me indicara si podrá asistir o no a la cita para us…

Buenos días, Soy principiante en esto de las macros. He conseguido hacer algunas macros pequeñas para una programacion de facturas. Necesito hacer una extracción de los datos que aparecen en la hoja ALBARANES J31:K55 pero sólo las que aparecen escritas, las vacias no. La extraccion la quiero hacer eln la siguiente pestaña facturacion celda J, me gustaría que estuviese todo en esa celda pero creo que es imposible, por lo que no me importaría que los demas datos siguieran en la siguiente celda k3, siempre todo en la linea en la que esté es decir, en la misma fila, necesito hacer varios albaranes y me gustaria que los datos de un albaran esten todos en una misma fila. N…

Hola a todos: Veran, necesito desarrollar una sub-rutina que simplifique una fracción, dado su numerador y denominador, pero no se como hacerlo. Desde ya muchas gracias a cualquier ayuda.

Buenos días. Tengo un problemita con una macro y esperaba me pudieran ayudar. necesito un codigo para que no me permita continuar con los pasos de la macro hasta que se cumpla una condición (que dos celdas contengan un texto especifico o diferente a un texto especifico) anexo un ejemplo y espero me puedan ayudar. de antemano muchas gracias Libro2.zip

Amigos, su apoyo por favor requiero unir o combinar celdas, de la siguiente manera. tengo una hoja donde estas las actividades con inicio, duración y termino. si inicio en la semana 23 y su duracion es de 4 semanas entonces debe terminar en la semana 26. en otra hoja busco la actividad entonces si encuentra en la semana 23 la macro debe leer la duracion y combinarlas. adjunto archivos de ejemplos. saludos, Combinar celdas1.rar

Buenos dias compañeros necesito de su ayuda. Quisiera imprimir dos hojas de un libro con dos distintas impresoras. me hace falta el codigo en VBA Ambas impresoras estan en una misma pc. Y como se llama en vba a una impresora que tengo activa en la pc Gracias por sus comentario

Buen día Tengo este archivo al cual se le pueden estar copiando hojas nuevas que contienen las mismas macros ya que es una plantilla, la cantidad puede variar ,asi como el nombre de cada hoja , en un principio la nombre "curso1" , al cambiarle el nombre , la siguiente macro dejo de funcionar Private Sub Workbook_Open()With Sheets("Curso1") .Protect Password:="123", UserInterfaceOnly:=True .EnableOutlining = True End With End Sub [/CODE] Requiero que funcione para todas las hojas , aun si se le cambia el nombre, ya que para alimentar los datos de la plantilla es necesario desplegar las filas que tengo agrupadas de la 17 a la 122. Saludos y gracias. Plantil…

Hola partiendo de este codigo del miembro ANTONI, necesitarìa si alguien puede modificarlo para que guarde directamente y solo una hoja por archivo ahora guarda 2!!! a ver si alguien puede ayudarme gracias!!!!! Sub CopiarPáginasUnaUna() Dim Página As Integer For Página = 1 To ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) ActiveDocument.Select Selection.GoTo wdGoToPage, wdGoToAbsolute, Página ActiveDocument.Bookmarks("\page").Range.Select Selection.Copy Documents.Add Selection.Paste ActiveDocument.Save ActiveDocument.Close Next End Sub

buenas noches he tomado un aporte de macro antonio que se llama catalogo excel y lo quiero convertir para que haga lo mismo pero con archivos pdf ya que estoy organizando el sistema de información de mi empresa el inconvenientes es que ya se pueden cargar archivos pdf pero al abrir los abre en excel , eso es lo que quiero corregir que los abra en el formato que son en este caso pdf lo otro adicione dos TextBox , lo que quiero con esto es cargar mas informacion como la carga los campos de descripcion y la observacion pero con otros campos adicionales , espero haber sido claro , subo el archivo ya modificado . de antemano muchas gracias al que me pueda ayudar . Catal…

Hola amigos de Ayuda Excel. Buenos dias, tengo una tabla y deseo proteger la hoja, He investigado pero las tabla no funcionan en hojas protegidas, sin embargo, he encontrado varios articulos que las tablas pueden funcionar con hojas protegidas a través de macros. Incluso conseguí un código pero particularmente no me funciona. Me podrán ayudar a ver por qué no funciona Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If Target.Column > 8 Then Exit Sub On Error Resume Next With ActiveSheet ActiveSheet.Unprotect Password:="123" .ListObjects("Tabla11").Resize Target.Curren…

Estimados amigos... una ayuda... trato de cargar determinadas celdas de filas activas dentro de algunos textbox´s al inicar userform.. y creo que me quede estancado... y me bota el error 424.. espero su ayuda.. gracias juliocesar_seapf

Hola de nuevo, Necesitaría por favor añadir la función para que cuando se ejecute esta macro(la macro copia valores de varias pestañas a una resumen) copie los datos a partir de la última fila que encuentre datos. La idea es que que ejecute la macro cada mes, y vaya respetando los datos de los meses anteriores en la BBDD General. He probado con una función pero sólo consigo que me copie 1 rango debajo la última fila y como otra macro a parte, cosa poco práctica si puede ser todo en una... Disculpas si no me explico muy bien, en el archivo adjunto se ve mas claro, muchas gracias de nuevo por vuestra ayuda. Saludos Sub pasar_datos_resumen() Application.ScreenUpdating…

Hola a tod@s. Tengo libro con 50 hojas. Sub OcultarExceptoActiva() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub Hace lo que dice. Pero el problema está en que no obedece a sus vínculos. ¿Se podría solucionar? Agradecido de antemano.

Buenas tardes A los foristas Quien sabe como usar EL to EXE, lo he probado pero me marca un error ya que tengo dos archivos y tienen un vinculo. El archivo se abre pero no reconoce el que tiene el vinculo para actualizar la información ademas de eso el archivo convetido el antivirus me lo marca como amenaza. Muchas gracias por su ayuda.

Que tal, soy nuevo en este foro por lo que recurro a vuestra ayuda pararesolver un proceso en Excel con la creación de las macro para vincular 4planillas de carga de datos a una planilla base de datos. Paso a intentarexplicar lo que necesito: En un mismo documento existen 4 solapas de carga que serán completadasdiariamente al recibir cada novedad, ejemplo: 1- Recepción de equipo 2- Entrega de equipo para reparar 3- Regreso de equipo reparado 4- Destino de equipo reparado Cada plantilla individual debe reportar los datos a la base “ Planillade seguimiento” (5ta. Planilla) la cual será la base. Agradecería desde ya una ayuda ya que mis conocimientos …

Hola tengo un archivo en el que tengo bastantes formulas y para que no las modifiquen tengo protegida la hoja con un macro, esto me permite trabajar únicamente sobre las celdas que no están protegidas, me permite usar filtros. Lo que no he logrado conseguir es que a pesar de esta condición me permita insertar comentarios en la celdas no bloqueadas, esto es para cuando necesito agregar algún comentario extra a la información que va en la celda. Lamentablemente el tamaño de archivo es bastante grande para poderlo adjuntar pero les comparto el código para ver si me pueden ayudar diciéndome que tengo que agregar para al codigo para que me me permita la accion arriba menciona…

si bien existen modelos, pero no llego acondicionarlo a ,is archivos tengo mi archivo "Formato Factura Lukoll 2016.xlsm" origen del cual quiero copiar el detalle de mi factura en otro archivo ("Formato_Resumen_2016.xlsx") ejecuto una macro pero no llega a copiar, marca el origen, pone en memoria, abre el archivo destino,pero no llega a pegar la información. lo que deseo es: pasar siempre un mismo rango de mi archivo origen (Range("A25:Z40")) al archivo destino pero al final o insertando espacios al inicio de mi archivo destino; y la copia debe ser tantas veces como genere una nueva factura desde ya les agradezco la ayuda Gracias Neil Lopez …

tengo un problema con una macro que cuando la ejecuto me dice error variable de objeto o bloque with no establecido... es para exportar coordenadas de excel a autocad .... espero que puedan ayudarme Creacion de polilineas para Autocad.zip

Amigos, debo vencer mi orgullo y recurrir a Ustedes, les adjunto una planilla de excel que tiene formularios, esta en proceso de elaboración y me encuentro que al "Activar la celda del registro elegido" me da un Error 91 en tiempo de ejecución, Variable de Objeto no establecido. Ingresando por el principal, buscando indices y Buscar, podran ver el error. Gracias desde ya. Gustavo IndiceMoneda.xlsm

Hola a todos, me acabo de unir a este foro y que mejor manera para estrenarse que con un problema... Os pongo en antecedentes. Trabajo en una empresa en la que hay ordenadores personales y ordenadores comunes. Y hay una red a la que te conectas para acceder a diferentes unidades de red para revisar pdfs, excels, words, lo que sea... Hay un conjunto de ficheros excel los cuales estan en carpetas separadas dentro de la misma carpeta. Por ejemplo: 10 carpetas (tipos de coche) con 10 carpetas dentro (diferentes zonas dentro de cada coche), y dentro de cada una de esas carpetas, 2 archivos, uno para cableado y otro para materiales. Como estan separados, cuando se qu…

Tengo la siguiente Macro, como puedo añadirle al nombre del archivo a guardar me coja un dato más a añadir, el valor de una celda Sub Guardar() nbre = Format(Now, "dd-mm-yyyy hh mm ss") ruta = "\\NTCL02\Calidad_a\Lcalidad\LABORATORIO_VARIOS\Peticion_ de_ensayos_FECHA" ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xlsm" End Sub

Hola, quiero crear una macro que haga lo siguiente: Tengo un rango de celdas (A1 - C34) en la hoja1 con una formula de condición en la cual, si es mayor que 0 me pone el numero (del 1 al 9) en función del rango A1 - c34 de la hoja2, si el numero es cero entonces no me pone nada (""). La macro que quiero crear es que me convierta a valores el rango (A1 - C34) en la hoja1 y despues elimine las celdas dentro del rango (A1 - C34) en la hoja1 las cuales no contengan informacion (""). Me puedes ayudar por favor?