Saludos a todos Tengo un archivo de excel con la macro para exportar a access funciona bien, pero gustaría que antes de que grabe los datos en access, vefique 3 campos (Id, Nombre, Codigo) si ya existen que no los inserte, sería genial que en una columna "E" si ya existe el registro en la tabla de access ponga "Ya existe" y grabe solo los nuevos registros. Agradezco de antemano su apoyo y/o sugerencias Saludos -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------…

Hola amigos, me pueden ayudar a solucionar este asunto, quiero copiar rangos no adyacentes de un libro a otro es decir el resumen de importes y servicios a un nuevo libro estuve buscando, pero encontré nada, anexo los archivas para la posible solución el archivo origen se llama comparativo y el archivo destino se llama resumen Saludos cordiales Comparativo.rar

hola amigos de ayuda excel tengo el siguiente codigo que hace consulta en 3 tablas al mismo tiempo pero no he podido dar con el error. DATO = (Trim(Format(Solicitud.Range("c2").Value, "0000"))) Set Rs = New ADODB.Recordset Sql = "Select VENDEDORES.VENOMBRE AS A1, VENDEDORES.VETELEFONO1 AS A2,VENDEDORES.VETELEFONO2 AS A3, VENDEDORES.VECORREO AS A4," & _ " MERCADERISTA.MENOMBRE AS B1, MERCADERISTA.METELEFONO1 AS B2, MERCADERISTA.METELEFONO2 AS B3,MERCADERISTA.MEFRECUENCIA AS B4 " & _ " FROM PROVEEDORES LEFT JOIN VENDEDORES ON VENDEDORES.PROID=PROVEEDORES.PROID" & _ " AND FROM PROVEEDORES LEFT JOIN MERCADERISTA ON MERCADERISTA.PROID=PROVE…

Hola a todos, gracias por tomarse la molestia de leer mi caso. La cuestion es la siguiente, intento hacer la siguiente validacion: If Range("W" & i & ":AP" & i).Value = Range("A" & j & ":T" & j).Value Then Range("A" & j & ":T" & j).Select Selection.Interior.ColorIndex = 3 ' Color fondo Exit For End If[/CODE] pero me marca el siguiente error: "Se ha producido un error '13' en tiempo de ejecucion: No coinciden los tipos", me podrian decir cual es mi error!!! Gracias anticipadas!!!

Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo. BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

Hola buen dia. Es priemra vez queparticipo en algun tipo de foro. Busco ayuda con un formulario, que diseño uno de los botones no hace loque deberia segun yo. Explico: Una vez Abierto el archivo filtro en la celda T con titulo Assigned to El nombre de Nancy Urrieta. Selecciona la celda A7 y doy clic en boton Details Oprimo boton Nex Inv > esto despliega la info de la misma persona de las celdas activas y funciona bien Cuando oprimo el boton Assigned to, no regresa Deseo que cuando oprima Nex Inv haga lo que ya hace pero de donde se quede la celda activa pueda con el boton < Prev Inv regresar y despliege los datos. He utilizado Range(Selection, Select…

Buenas tardes Por favor, si alguien me puede ayudar se lo agradecería, necesito ejecutar una macro desde varias celdas de una fila,eso ya esta conseguido en el ejemplo El problema es que son muchas filas (en este momento 600), y el código se hace muy largo. Lo que quiero es saber si se puede simplificar el código Muchas gracias Un saludo José Carlos Ejemplo.zip

Buena tarde Tengo un problema con una macro, es justo en el renglon marcado donde me indica el error. Por favor su ayuda. Sub Test() numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas") If Not IsNumeric(numhoj) Then Exit Sub Rows("16:16").Copy Rows("16:" & 15 + numhoj).Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=x1PasteFormulates Selection.ClearContents Application.CutCopyMode = False End Sub

Muy buenas a todos, He estado leyendo y probando métodos que dais en otras dos consultas muy similares a esta, pero lo único que he conseguido es entrar en un bucle infinito que bloque todo. Os cuento, estoy realizando una pequeña aplicacion en vba y necesito que un determinado día de la semana a una hora que yo le fije, ejecute una macro. Esta macro lo que hace es , dependiendo del valor de una celda (0 o 1) , compara el día actual y si se corresponde el día con el fijado en otra celda, envia un e-mail y eso lo hace bien, si se abriera la hoja de excel todos los días, funcionaría, pero, en teoría el formulario va a quedar siempre abierto y al hacer uso de ont…

Hola, tengo una macro que me abre un archivo xlam para poder cargarlo en Excel. Ccomo puedo abrir ese complemento desde la misma macro para que puedan utilizarlo, y al finalizar la funcionalidad del complemento como puedo seguir con otros procesos. Sub PortalPago() 'Funciones de Macro No Visibles Application.ScreenUpdating = False Dim Finfo As String Dim FilterIndex As Long Dim Title As String Dim FileName As Variant 'Configura filtro de Archivos Finfo = "Complemento Excel (*.xlam),*.xlam" FilterIndex = 1 'Establecer el título del cuadro de diálogo Title = "Seleccione un archivo Complemente Excel" '…

Hola, es la primera vez que intento hacer una macro. No se muy bien como explicar lo que necesito. Yo tengo una plantilla de excel con varias columnas Descripcion de un problema, la causa, y la solución entre otras. A la vez tengo varios informes en word que he de rellenar con los mismos campos. Lo que intento hacer es crear una macro (si esto fuese posible). Tengo 3 documentos de Word distintos con algunos campos iguales. Doc 1: Informe de no conformidad Doc 2: Informe de acciones preventivas/correctivas Doc 3: listado control reclamaciones Los campos que tienen en común son: Descripción del problema Causa Solución Se ha creado una tabla de…

Compañeros, una vez mas recurro a los expertos. como seria el codigo para que mediante una combinacion de teclas (ejemplo: ctrl + alt + q) se ejecute la macro de un command button que se encuentra dentro de un form que esta dentro de otro command button. :stupid: un poco complejo, intente con el evento onkey en el workbookopen pero muy complicado y no pude. Saludos

Estimados expertos reciban un cordial saludo por intermedio de ayudaexcel, mi dificultad es que estoy creando un sistema de restaurante para cual tengo un formulario Hamburguesas la cual cuando selecciono una las mesas en momentos selecciona bien y en otro momento no selecciona, pero el problema es que si selecciono una mesa y si quiero seleccionar otra mesa si haber seleccionado un plato no debe seleccionar o por lo menos que diga no a seleccionado ningún plato en la mesa tal (mesa seleccionada anteriormente) por el momento eso es mi dificultad. Amigos programadores espero su pronta respuesta de antemano muchas gracias. Adjunto el enlace del archivo. https://onedriv…

hola que tal no se como poder poner un listbox con barra de dezplamiento horizontal ¿alguna sugerencia? este es mi codigo que no funciona Private Sub Lst_nombres_Click() Call DisplayHScroll End Sub Private Sub DisplayHScroll() Me.Lst_nombres.IntegralHeight = True Dim x As Integer For x = 0 To 10 Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " es un texto muy largo") Next x Me.Lst_nombres.HorizontalScrollbar = True Dim g As System.Drawing.Graphics g = Lst_nombres.CreateGraphics() Dim hzSize As Integer g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width Me.Lst_nombres.H…

Muy buenas a tod@s, tengo que hacer una cosa en excel y me estoy volviendo loca. Os comento: en una hoja de excel tengo una celda numerada de 1 a ... la celda se llama Nº de Orden. Esa numeración se relaciona con unas fotos que tengo en un directorio, los nombres de las fotos son 1 ... Cada vez que elimino un registro de la hoja de excel tengo que volver a asignar un nuevo número de orden pero lo peor es que tengo que volver a renombrar las fotos. ¿Alguien sabría decirme como a través de una macro, cuando elimine la fila correspondiente al número de orden 300, me elimine la foto 300 y que cuando vuelva a dar un nuevo numero de orden me renombre las fotos a ese numero…

Buenas, En el formulario agregar clientes, selecciono un cliente en el combobox y luego ejecuto el botón factura para agregar los datos, la primera vez lo hace correctamente pero al cargar otro cliente da el error y no consigo solucionarlo. No soy muy experto en esto, Adjunto archivo para que lo podais comprobar. Gracias y Un Saludo factu.zip

saludos....... hola soy nuevo por lo q de antemano me disculp si viola alguna norma o regla....... bueno quisiera q me ayuden con esto, adjunto un archivo en donde nececito eliminar la fila donde el valor de un celda es cero. Es decir necesito eliminar toda la fila a partir del valor 0 de la columna VALOR EMITIDO, osea tengo en la celda NO15=0 (rojo)y deseo un macro q elimine la fila 15 (en amarillo), pero que busque en todo el documento y elimine todas las fias en donde el valor de la celda de columna NO sea = 0, Esta es una parte del docuemtno espero q les sirva y me puedan ayudar muchas gracias anticipadas datos ejemplo.rar

Saludos. Maestros del Excel como hago para guardar una hoja como archivo independiente. Aclaro no todas las hojas del libro, solo una en especial que bien puede ser la hoja activa. Gracias

Buenas tardes amigos, he estado dando vuelta al foro buscando alguna solucion a mi problema, pero aun no llego... el asunto es que mi jefe me pidio el lunes una planilla para matricular a los alumnos 2014, que agreguen los alumnos con lo capos requeridos, puedan buscar y modificar, e imprimir la ficha... ufff todo eso para este lunes! jajajaj leyendo el foro y viendo tutoriales, logre armar la planilla, darle forma y almacenar los datos, pero el tema es que los va insertando al principio, y eso me desplaza los campos de busqueda.. ahi me enrede y volvi loco! ojala alguno pueda hecharme una mano, con el archivo, manual, tutorial, DIY, todo me sirve para sacar el tra…

Hola a todos Recien comienzo a intentar aprender por mi cuenta VBA y estoy haciendo mi primer factura en la que quisiera que por medio de un boton se generase el numero de factura automaticamente y se copiaran: ese numero correspondiente de factura, el nombre del cliente y el importe. Dichos datos se guardan en otro libro a modo de resumen donde la primer columna es ese numero automatico generado, la segunda el nombre del cliente y finalmente el importe. He estado mirando codigos y solo me he liado y estoy hecho una maraña. Si alguien pudiese orientarme, se lo agradeceria ampliamente. Un saludo y gracias por la atencion.

Hola amigos Tengo un archivo de verificación (check-list) en Excel, con casillas de marcación y necesito saber si se puede bloquear automáticamente la casilla cuando se marca y solo desbloquearla por medio de una contraseña

Estimados. Necesito de vuestra ayuda. Estaba creando un Dashboard en Excel 2010 sin problemas hasta cuando una de los Gerentes me dijo que casi todos tienen Excel 2007. Lo que necesito es Vincular una tabla dinámica con muchos "Filtros de Informe" a otras hojas que teniendo los mismos filtros estos pueden estar como "Filtros de Informe" , "Etiquetas de Columnas" o "Etiquetas de Fila". Leyendo en el Foro encontre que este tema ya a sido visto pero solo vinculando las tablas dinamicas a otras hojas pero no a las columnas de estas. Adjunto el archivo que estaba en el tema anterior que por cierto trae el codigo para que se ejecute en las otras hojas pero especifico lo de l…

Tengo un listbox con datos de equipos con información común pero almacenados en diferentes hojas, todo va bien hasta la selección de algún equipo de otra hoja, donde me genera error. adjunto parte del archivo, de antemano, gracias. Private Sub ListBox1_Click() Sheets("FichaSwitches").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Rango = Range("A1").CurrentRegion For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) Then Valor = Me.ListBox1.List(i) Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate End If Next i Sheets("Fichatransmisores").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Ran…

Hola, necesito saber cómo hacer ésto: Es parte de un inventario, en Excel, cada casilla de la columna tiene un texto como la siguiente línea 1 y el resultado final quiero que sea como el de la línea 2: el texto entre <i> e </i> en cursiva y el resto normal y cuando lo cambie, eliminar las dos marcas de inicio y final <i> e </i>. Cada línea quedaría así: 1 Hopkins, Gerard Manley. <i>The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and Notes 1863-1868</i>. Edited by Lesley Higgins. Oxford: OUP, 2006. 2 Hopkins, Gerard Manley. The Collected Works of Gerard Manley Hopkins. Volume Iv: Oxford Essays and No…

Hola de nuevo, estoy intentando hacer una plantilla para que en una hoja Excel se inserten los datos que se quieren convertir en código de barras, se elija la imagen de las dos posibles a poner, y en otra hoja contigua se muestre la etiqueta creada. la macro para la creación del código de barras ya la tengo, pero no sé cómo hacer que la imagen escogida se copie a la hoja de resultado. ¿Puede alguien echarme una mano?. Gracias.