Básicamente seria unir estos códigos pero no se como agregar el pdf al .addattachement Private Sub Enviar_cobro_correo_Click() Set fecha = Range("f3") Set arrendario = Range("b3") ' ariana por ejm ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy- hh.mm") ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro" ' el nombre del archivo se llama cobro libro = "" & "-" & arrendario & "-" & ahora & ".pdf" ' cobro ariana 23/11/2016 ArchivoPdf = ruta & libro ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ArchivoPdf, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintArea…

Hola, Busco alguna instrucción o bucle (no se me ocurre como montarlo) que haga lo mismo que insertar una fila (si se cumple una condición sobre el valor de una celda o posición en un array) y que copia lo de esa fila, pero sin pasar por excel. Es decir, tengo una macro que funciona en excel, pero quiero evitar excribir nada, y manejarme sólo con arrays, y una vez completado ya escirbirlo de golpe. El probema está en que hay una sentencia que en función de una condición duplica esa línea, y sigue escribiendo, y eso no sé como hacerlo sin escribirlo en excel. El trozo en cuestión sería algo así: If Cells(18 + fila, 1 + orden + 1) <> Ni…

elimimen el topic error de doble topic

Hola buenos días a todos, os cuento el problema que tengo. Hace unos días formatee un ordenador e instalé de nuevo el office 2007. todo funciona bien hasta que cojo una factura que tenía anterior al formateo (creada con la misma versión de office) y al abrirla me ha modificado el tamaño, es decir, antes la tenía ajustada para que se imprimiese en formato a4 y ahora al abrir el archivo en este ordenador se ha ensanchado (me ocupa más de un folio) y el problema es que me lo hace con todas. Lo he probado en otros dos ordenadores y se me abren normal, he probado a reinstalar las office, siendo la misma versión que en los otros dos ordenadores y sigue pasando lo mism…

Hola a todos, les pido ayuda con un error que estoy teniendo en excel, el cual es la primera vez que me pasa. el problema es el siguiente, cuando inserto un modulo nuevo y al momento de querer empezar a escribir una funcion o un procedimiento cuando escribo sub o function (con las dos pasa igual) salta un cartel que "Error de Compilacion - El procedimiento externo no es valido" y comienza a aparecer un carte atras de otro sin parar y la unica manera de pararlo es cerrar el proceso de excel desde el administrador de tareas. es la primera vez que me ocurre en lo que llevo usando excel y estoy un poco desorientado... si alguien puede decirme de que se t…

Buenas Tardes, Tengo un proceso (lo he copiado de aqui y de alla) para enviar la hoja activa de un libro de excel como adjunto de un correo via Gmail. el proceso corre bien hasta el momento del "Send" me genera este error " El proceso no puede accesar el archivo porque esta siendo ocupado por otro proceso" el correo si lo envia pero sin archivo adjunto. Alguien sabe a que se refiere esto ? y como puedo solucinarlo? de antemano Gracias..

hola excelente aportes para comenzar, necesito su ayuda por favor, cree formulario active x para que se poder hacer ingresos y modificación de datos todo iba bien hasta que puse el botón de modificar y metí el código pero ahora me sale un error que ejecución 424 espera un parámetro. No se que hice mal pongo el código del botón y no me deja ejecutarlo y ya he tratado pero nada, bueno adicional a esto me gustaría que cuando se meta la información conserve los formatos de las celdas mil gracias. dejo el código. Private Sub buscar_Click() On Error Resume Next nombre.Value = WorksheetFunction.VLookup(Val(id.Value), Sheets(1).Range("A5:D400"), 2, False) cc.Val…

Buenos dias pues he terminado mi código completo y muy feliz lo iba a correr y cuando abro el libro minimizo el libro para que solo se vea el formulario corro el programa y me sale error de automatización, el código primero copia unos datos en la hoja actual, luego crea una nueva hoja, luego adiciona un código a otro form, luego crea dos forms y por ultimo sale un mensaje que dice que se completo el proceso pero cuando lo hago con excel minimizado me sale error de automatización alguien sabe que puede ser de antemano muchas gracias

Hola comunidad buenos días he tenido problemas para compartir mi libro en red y que varios usuarios puedan acceder a el pero no hallo el código de programación. me puedan dar una mano...gracias PROYECTOS-APER-2016.rar

Hola, Estaba usando esta macro (adaptada) que el maestro Gerson incluyó aquí: Private Sub CommandButton1_Click() 'Para la columna A: With Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) dato = Me.TextBox1.Text Set fil = .Find(dato, after:=ActiveCell, LookIn:=xlValues, lookat:=xlPart, Searchdirection:=xlNext) If fil Is Nothing Then MsgBox "No hay datos con este criterio: " & Me.TextBox1, vbExclamation, "Error!" Me.TextBox1.SetFocus Exit Sub End If fil.Activate Me.TextBox3 = fil.Offset(0, 1) 'fil.Offset(0, 1) esto muestra lo mismo que Range("B" & fil.Row) End With Set fil = Nothing End…

Buena noche, Saben a que se debe el error del sistema &H80004005 (-2147467259). Error no especificado. NO me deja guardar nada en ese libro, los de mas funcionan bien.

Saludos cordiales En lo que a mi cuestión respecta debo detallar que estoy trabajando en un formato de recibos/facturas automatizada, bajo la plataforma Windows 7 y Office 2007, tanto Excel como Access,hasta este punto nada fuera de lo ordinario, la aplicación funciona sin contratiempos bajo esta plataforma, pero recientemente uno de mis clientes me solicito instalar tal aplicación en un equipo con Windows XP con Office 2010 es en este punto donde he experimentado una serie de errores que no permiten su correcta ejecución, les muestro las siguientes capturas del error en cuestión: El error luego de tratar de ejecutar una consulta: [ATTACH]24695.vB[/ATTACH] enseg…

Hola: Con la ayuda inestimable de compañeros del foro, estoy desarrollando una aplicación en la que en varios textbox al pulsar intro emerge un calendario y puede pulsarse la fecha. Hasta la fecha ha funcionado perfectamente, pero hoy ha dejado de funcionar... al pulsar intro en un textbox vinculado al calendario emergente sale un error: error en el método value del objeto icalendar. ¿Puede ser que me falte alguna referencia en el proyecto como aparece en el archivo adjunto? Antes tenía las posiblidades de "microsoft calendar controls 2007" y "microsoft windows common controls". Macro Antonio, me recomendaba en su apoyo a la realización del proyecto que tenían que esta…

Amigos, estoy trabajando un archivo que me permita que al ingresar la hora de entrada y salida de un trabajado, automáticamente me calcule las horas de su jornada normal y las horas extraordinarias según corresponda sin embargo las horas diurnas y nocturnas las calcula bien si no se combinan los horarios es decir, si ingresa y termina en jornada diurna o nocturna todo va bien, el problema es cuando ingresa en la jornada diurna y termina en la nocturna por ejemplo ingresa a las 17:00 hrs y termina a las 21:00 hrs no me calcula las horas correspondientes he intentado realizar las formulas de forma separada y después unirlas pero me sigue generando el error. ad…

Necesito ayuda en realizar un esquema de turnos para un sistema 6x1 continuo (24 horas al día por 7 días semanales). La cantidad de grupo es opcional

Buen día.... Tengo dos columnas con desde y hasta... Allí está mí historial laboral... La pregunta es como hago para obtener datos de simultaneidad entre una determinada fecha y otra... La pregunta viene porque así puedo saber cuál fue mí mejor cargo durante tres años consecutivos... No sé si se entiende? Gracias

Hola compañero, tengo un formato de estado de cuenta de clientes, que presenta transacciones de facturas y pagos con formulas sencillas. El tema lo tengo precisamente en la columna D (Pagos) ya que la formula que puse presenta todos los pagos acumulados históricamente. Como puedo hacer para cuando filtro la columna D por las facturas pendientes de pago (celdas en blanco), asignar otra formula que me sume el monto nuevo de un pago recibido de clientes y así sucesivamente para todos los pagos en el futuro de facturas pendientes, a fin de cuantificar automáticamente el pago recibido en lugar de sumar una a una. Adjunto el detalle para mayor aclaración. Nota: El detalle …

Buenos días a los prestigiosos integrantes de este foro, en esta ocasión recurro a uds, para solicitar su ayuda en como modificar la macro, el cual permita guardar el archivo resultado con la extensión .xls, ya que con esta macro lo genera con la extensión .xlsm , siendo una copia exactamente al original con la diferencia que en el archivo fuente son barrados los datos ingresados, por lo que necesito es que al guardar el archivo resultado elimine las hojas BASES DE DATOS y Hoja1 quedando únicamente la Hoja2 (el cual contiene formula que son transportador de la Hoja1 - resaltado de color celeste) y solo debe quedar como valores, para mejor el archivo fuente. Sub guarda…

Buenos días a todos: Mi problema es el siguiente: He colocado código VBA dentro del evento SelectionChange de una hoja. El caso es que una veces se activa el evento y otras, o no se activa o parece no activarse. Ésto me ha sucedido alguna que otra vez y lo soluciono saliendo de excel y volviendo a entrar, pero está claro que esa no es una solución adecuada. Además, no siempre funciona. Mi pregunta es cuál es la razón por la que sucede ésto y cómo puedo evitarlo. Muchas gracias por vuestra ayuda. Luisa P.D.: Ya adjunté el archivo. Les pido disculpas a todos. Consulta Lista 2003.zip

He visto en la red archivos de excel, que ni siquiera tienen adelante del nombre del libro [compartido], y al tratar de entrar al VBA, simplemente te manda una leyenda de que el proyecto no se puede mostrar!!, y al descompartir simplemente el proyecto vba no se muestra!!, ya intente dándole en la pestaña revisar compartir libro y proteger libro compartido, y ni siquiera así puedo recrear ese efecto!!, como es posible hacer eso?

Buenos días! es mi primer entrada a este foro, mi consulta es la siguiente, tengo la siguiente formula =SIERROR(CONSULTAV(B4;EQUIPOS!A4:F71;2;);CONSULTAV(B4;MOVILIDADES!F4:J92;2;)), quiero ponerle comilas para que no me tire #N/A, intente por todos lados y no pude solucionarlo, agradecería mucho su colaboración

Buenas compañeros. Necesito sacar gráficas sobre la evolución de un curso en el tiempo, gracias a sus campos fechas, estado, etc... No sé si me podréis ayudar, no se muy bien que gráficas usar. Gracias de antemano, un saludo.

HOLA, TENGO un aplicativo bajo codigo visual , fomulas , y todo lo q lleva un programa,, lo hice en 2007 pero el computador lo formatearon y le instalaron 2013 ahora al guardar los datos me sale error,, al correrlo en el 2007 esta perfecto .. q puede ocurrir??? no logro dar con el error alguna veces sale el error tiempo de ejecucion 1024 o algo parecido ..

Hola ; tendría que modificar esta macro para que me guarde la hoja activa como pdf y la envía como pdf a través de gmail. Esta macro esta armada para que haga esto pero me la esta guardando como xls y también me la envió como xls. Por favor alguien la podria revisar y decirme que tengo mal Sub GuardarEnviarGmailClientes7() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False 'PDFCLIENTES Macro Dim sPEDIDOS_LAMA As String Dim sHIS_CLIENT_LAMA As String Dim sRutaEscritorio As String Dim WScript As Object Set WScript = CreateObject("WScript.Shell"…

Hola a tod@s, Alguien podría ayudarme? Tengo un Excel con varias columnas de fórmulas bloqueadas y protegidas, ¿cómo puedo hacer para que al añadir una fila, se genere la fórmula y siga protegida automáticamente? Gracias.