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…

Hola a tod@s, He creado un codigo para poder modificar los datos de mi tabla y mi listbox. El codigo funciona bien pero el problemas es que me crea un duplicado del registro al modificarlo. Saben porque me sucede esto? Saludos, 111.xlsm

Estimados, Buenas tardes Tengo el siguiente Código en VBA para seleccionar impresora distinta a la predeterminada y a su vez imprimir copias según valor de celda CE15, si bien selecciona la impresora, el problema es que solo imprime una copia y no el valor asignado a CE15. Si alguien me pueda ayudar. Sub imprimir() Sheets("C2t-Small").Select ncopias = Hoja1.Range("CE15").Value actPrnt = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="RICOH SP 310DNw PCL 6", Collate:=True Sheets("Etique").Select Range("CE15").Select Range("CE15:CQ19").Select ActiveCell.FormulaR1C1 = "0" En…

Buenos días, soy nuevo en esta comunidad y quisiera pedirles su ayuda con la programación de este código, el cual estoy utilizando para crear números correlativos en las hojas de asistencia de mi trabajo, pero el cual me da un conflicto cuando quiero realizar las fechas correlativas. ¿Alguien me podría decir como solucionarlo? La lógica del código se basa en los rangos de inicio y fiscalización para la impresión X26 y x27 son para los codigos y x28 y x29 son para las fechas que se presentaran en las impresiones Sub ImprimirCorrelativos() Dim lnI As Integer Dim Resp As Integer Dim Ini As Integer Dim Fin As Integer Dim i As Integer Dim FIni As Date Dim FFin As Date…

Con la ayuda de muchos aqui, después de leer pude encontrar y utilizar esta macros, antes las variables solo eran "c" , ahora trate de agregarle mas, pero me marca error en la linea Next C, se supone que el macros lea los datos de los rangos de celdas definidas, luego copie un formato de otra hoja, y con esos datos nuevos cree una nueva hoja, definiendo el nombre con la celda j2, pero trate de hacerlo mas grande y quisiera agregar que tambien copie los datos de las celdas "B, I , J", pero me marca error, no se si deba cambiar la linea "Next c" para que haga el loop con las demas variables Sub Copia() Dim c As Range Dim u As Range Dim vd…

Buenas tardes!, me gustaría consultarles como crear la correcta consulta sql para conseguir el valor de stock de cada producto en la hoja (ingresos de excel. Tengo la hoja ingresos, que se va a vaciar en la BD de access, pero ahí necesito conocer el stock de cada unidad (columna STOCK IZQ Y STOCK DER), que voy colocando para que pueda saber que no puedo exceder las salidas del inventario esto con la ayuda de una macro en el evento change () Cree una consulta pero solo me arroja la suma total sin descontar las salidas. Adjunto los archivos de trabajo para ver si pueden darme una mano. Agradezco mucho su atención. ¡Saludos! SQL_CONSULTA.rar

Hola, tengo el siguiente problema: lo que quiero es saber si pueden ayudarme con este archivo, la idea es que con una macro poder copiar los datos de destinatario, factura, n° factura, cantidad de bultos y proveedor de la hoja 2 en la hoja 3 antes de poder imprimir la hoja de forma automática hacia abajo sin q se copien encima una a otras ya que serán de varios clientes los q quiero guardar, de antemano muchas gracias Reparto.rar

Buen día amigos!!, estoy haciendo un macro para crear historiales de trabajos a ciertos equipos o maquinas, me ha ido bien pero me he encontrado con un problema al momento de ingresar la fecha de ejecución ya que en el textbox "FECHA DE EJECUCION" se introduce como DD/MM/YYYY pero al momento que esos datos se guardan en la hoja seleccionada ya sea MAQUINA 1 ó MAQUINA 2 me aparece como MM/DD/YYYY me gustaria que me ayudaran a poder corregir esta inversión que vba le hace a la fecha y si es posible colocar algún calendario en FECHA DE EJECUCION en lugar de usar un TextBox, muchas gracias por su ayuda. Saludos. PREGUNTA EN FORO.xlsm

Hola buenas tardes. Por las necesidades en mis movimientos de archivos en mis carpetas necesito mover a carpetas diferentes archivos, esto puede ser desde 1 a varios y copiarlos a una carpeta. Con una macro útil hago esto. 1. desde excel se abre el buscador, selecciono el archivo a copiar. 2. me muestra nuevamente el buscador, para seleccionar la carpeta en donde se pega el archivo y lo realiza. Esto es archivo por archivo. Pero esta misma operación la necesitaría poder hacer con diferentes archivos. Existe alguna manera de poder realizarlo? He intentado hacer algunas modificaciones y ya he conseguido poder seleccionar los archivos …

Buena tardes, soy nuevo espero y este bien redactada la duda: Tengo una base de datos donde tengo columnas con Titulos como por ejemplo RF, Año, Semana, dia, Equipo, Maquina Tiempo. Quisiera poder filtrar la informacion por semana y que me elimine o no ponga los tiempos que son mas cortos o mas chicos (Menores a 00:30 Miutos) no aparescan, pero si en el dia el equipo se reptite aunque sea menor a 00:30 minutos aparesca. lo quise hacer con autofiltro grabado pero elimina todo lo que se menor al tiemopor marcado. Adjunto archivo. Espero y me puedan ayudar. Reporte Semanal.zip

Buenas tardes, a ver si me podéis echar una mano porque estoy acabando con mi paciencia. Estoy haciendo una macro sirviéndome de las librerías de ADO, y tengo un problema en una sentencia SQL que no sé cómo resolver. No sé si el problema viene dado por el tipo del campo en la hoja excel o en la propia sentencia SQL. Me gustaría coger los campos que tienen un valor superior a 1000 y la siguiente instrucción, me falla: SQL = "select count([APPThroughputUp]) from [LLAMADAS$] where [APPThroughputUp] not in ('-') AND [APPThroughputUp]> CInt(1000) '" La instrucción se ejecuta pero no filtra bien, cuenta todos los campos y no sólo los que son mayores que 1000. ¿Alguna …

Hola buenos días compañeros del foro, me gustaría saber si alguien me puede ayudar a mejorar esta macro con dos cosas, la primera es que a pesar de tener fecha de vencimiento cuando uno se mete al panel de "fecha y hora" y al modificar la fecha se puede seguir usando y no es la idea, dos si aparte de la clave de administrador se puede colocar otra y se siga usando todo con normalidad, es decir todo lo que he venido trabajando antes de la fecha de vencimiento pero que no me deje seguir guardando hasta cambiar la fecha con la clave del administrador, y si la persona no tiene ninguna de las dos claves se cierre el archivo como ya lo hace, Gracias de antemano, …

Buenas a todos y gracias de antemano, hacia tiempo que no pasaba por aqui. Resulta que tengo una macro que genera unos datos e importa un PDF con OLEObject, para que aprovechando la impresion de doble cara de la impresora, imprimir por una cara los datos y por la otra el PDF insertado, pues bien, funciona a la perfeccion pero tengo un gran problema con la calidad de la importacion ya que baja considerablemente y apenas son legibles los textos mas pequeños cuando lo imprimo (si imprimo directamente el PDF se ve perfecto). Ante esta situacion cambie de estrategia y cree (con ayuda de algun codigo encontrado por hay) una macro para imprimir el PDF directamente, pero me es i…

Hola. Supongamos que tengo una tabla que adjunto, en la cual quiero que al superar un valor superior al 10% las celdas de la colunna "I", me envíe un email una sola vez a una dirección de correo, adjuntando los rangos A1:P1 y la fila en la que se a superado el 10%. Gracias. AyudaExcel.xlsm

Necesito vuestra ayuda para una macro un tanto compleja. Tengo un excel cuya primera fila son los días del mes y la primera columna son nombres, el resto de celdas son datos tales como si o no, busco una macro que me haga una tabla resumen, respetando los datos de la fila y la columna. Adjunto archivo aclaratorio, el resultado que necesitaría que me facilitara la macro está en la hoja2, hasta ahora si son pocas líneas lo hago con una macro grabada, pero tengo algunos libros de más de 150 líneas y se me hace imposible. Espero que podáis ayudarme. Muchas gracias. Datos.xls

Buenos días. En la hoja proveedores dispongo de un formulario para introducir proveedores, me interesaria que cuando doy en el botón registrar para introducir otro proveedor lo hiciera en orden alfabetica A-Z, junto con su DNI correspondiente. Un saludo. IVA.rar

Estimados. Algun codigo VBA para Averiguar el nombre del Libro y la Hoja en la que estoy trabajando? Saludos

buenos dias amigo estoy usando una macro para guardar hoja activa de un libro la macro es excelente ya que ejectuta todo lo que necesito y guarda en la ruta que quiero, el detalle es que esta guardando la hoja con las formulas y botones que ya existen en ella, y solo quiero que guarde la hoja pero en un rango especifico que seria "A1:V100" la macro es la siguiente: Sub GUARDAR_NOMINA() Dim fileSaveName As Variant Dim filePath As String Application.ScreenUpdating = False If MsgBox("Esta seguro de Guardar la Nomina?", vbYesNo) = vbNo Then Exit Sub End If filePath = "Z:\Relacion laboral\GUARDERIA\" Sheets("NOMINA").Copy fi…

Buen día estimados Encontré un cronograma de visitas que me es de mucha utilidad, pero tengo el problema que tiene el horario solamente hasta las 13 Hs y lo necesito con mas horarios. Me podrán ayudar? Adjunto el archivo y le coloque una hoja nueva para que vean en color naranja los horarios que necesito agregar y que me funcione como esta originalmente pero con mas horarios. Cualquier duda me consultan. Saludos! Cronograma de visitas.rar

Bueno creo que la pregunta es clara. Yo tengo una hoja protegida con una macro y quisiera saber si hay códigos para poder habilitar filtro y edición de ancho/alto de celdas. Seria fácil hacerlo manualmente (Revisar - Proteger Hoja) pero lo que sucede es que esta hoja la actualizo constantemente y por tanto tendría que hacer este paso también constantemente. Espero puedan ayudarme Saludos

La macro que estoy haciendo tiene dos listas en la columna a y otra en la columna b. con los nombres del rango de la columna "b", se van a crear unos libros con los nombres de esa columna, ese rango es nombrado como "sec_operativo". cuando se crea la hoja se va a copiar unas tablas dinamicas la cual se llena con informacion de los nombres de la columna "a", y tiene un nombre distinto, pero equivalente al de la columna b. es decir; cuando se crea el libro "san_pedro", en la tabla dinamica se debe filtrar colocando "58 - san pedro" deberia salir asi: sale asi: y me sale este error esta es la…

Cordial saludo, Hola a todos, alguien me podría colaborar, todos los días lleno una bitacota el cual tengo dos cloumnas la A "fecha de evento" y la B "fecha solucion", he investido la función de DTPicker el caso es que no se como crear un macro con DTPicker seleccione la fecja y la hora y que me la inserten una sola celda, ejemplo(06/10/2013 08:14:00 pm) con DTPicker. pero que sea con macro de selecion. Alguien me podria ayduar como hacer el metodo de como insertar y seleccionar con DTPicker. Muchas gracias a toda la comunidad. Dios los bendiga!

Hola a todos, gracias por su atencion de antemano. Bueno tal cual y como dice el nombre del post necesito hacer una suma condicional en un codigo de VBA si es posible. El asunto es que tengo 1 encabezado por cada 3 columnas las cuales son horas requeridas, kt(kilotoneladas) y equipos requeridos. Lo que quiero obtener es que en una nueva hoja, copie los encabezados que no se repiten con sus respectivas columnas(3), y los encabezados que se repitan se unan en 1 solo (sumar cada columna con su simil). Debo agregar que el numero de encabezados pueden ser muchos (100 o mas) y no 5 como lo muestro en el archivo adjunto. Esperando que me puedan ayudar. Saludos - - - - - Me…

Buenas tardes!!! Me podéis echar una mano para crear una macro que haga lo mismo que la formula??. La fórmula lo que hace es contar los artículos diferentes de un mismo cliente. Pensaba que con la formula iba a ir muy bien pero…al tener tantas filas en algunas de las hojas ( aprox. 8000 líneas ) tarda mucho la macro. Gracias de antemano. Un saludo, Ejemplo02.xlsx

agradeceria ayuda, necesito que al momento de oprimir el boton de guardar y salir, se cree una carpeta con el valor de la celda J9, pero a la vez se cree un archivo pdf de la hoaj activa que quede grabada en la carpeta creada con nombre de la celda J7, y quede el libro trabajado en formato habilitado para macros grabado en la carpeta y nombrado con el valor de la celda J8 para excel 2013 por favor Libro1.zip