Buenas noches, Me dirijo a uds con la siguiente consulta: 1. Lo que necesito es vincular los valores de las celdas C1, C2,....., Cn a las casillas de contenidas en la siguiente página web (http://www.gebweb.net/optimap/) como si al ingresar los valores en C1 y C2, Cn automáticamente se ubiquen en las casillas mencionadas de la página web para hacer la consulta respectiva 2. Posteriormente, quisiera que se clickee automáticamente el botón "Calculate Fastest Round Trip", o " Calculate Fastest A-Z Trip"(contenida en la misma página web) y me arroje el resultado correspondiente. 3. Una vez calculada la ruta mas corta, importar el dato, y si es posible la…

Buenas, quisiera genera mi codigo de caso. Ejemplo: 0001 0002 0003 Se tiene que generar al momento te apretar el boton GENERAR, y que se guarde en mi tabla "FORMULARIO". Esperando su ayuda.. Gracias...!!! linea.rar

Buenos días a todos, Necesito ayuda para crear una macro que cree tantas hojas nuevas como referencias diferentes tenga una columna. Se ha de filtrar una columna ©, y dependiendo de los datos de dicha columna (10 diferentes), creará tantas hojas como referencias tenga. No se si me he explicado claramente, adjunto el archivo que he creado. Gracias a todos, estamos en contacto. Datos.rar

Hola buena tarde tengo un problema estoy realizando una macro que me copie solo las celdas visibles despues de filtrar aqui la cuestion es que quiero si es que se puede que sobreescriba en la misma hoja y borre todo lo que no me sirvio del filtro buscando en internet parece que no se puede, estuve checando el foro y encontre una solucion [solucionado] Macro para copiar las celdas visibles | Ayuda Excel que a mi me sirve en ocasiones y en otras me arroja un error 1004 como solucionar eso? y otra cuestion es como copiar solo los datos que me arrojo la formula concatenar obviamente igual mediante macro? pienso utilizar la funcion Range(ActiveCell, ActiveCell.End(xldown)).Se…

Acceso al modelo de objetos de proyectos de VBA [solucionado] Hola a todos, Lo primero que tengo que hacer es agradecer la ayuda prestada desde este foro, donde he encontrado respuesta a mil dudas... menos a una que me trae loco! Contexto: Office 2007 Pregunta: Sabe alguien si existe alguna propiedad del Objeto Application que me permita saber si la casilla "Confiar en acceso al modelo de objetos de proyectos de VBA" (Botón Office -> Opciones de Excell -> Centro de confianza -> Configuración del centro de confianza -> Configuración de Macros) está activada?. Lógicamente, esta propiedad NO se puede activar desde una macro. Yo lo que quiero es saber si está …

Muy buenas, Tengo un código que antes me funcionaba bien y ahora, a raiz de incorporarlo a otra parte de código más amplia en la que realizo otra función, me falla y no encuentro solución: 'Compruebo si hay celdas de cliente sin rellenar Dim UltimaFila As Double Dim i As Integer Dim x As Long Dim ColumnaObjetivo As Integer Dim Rango As Object Dim FindeFila As Long 'Con esto cambio el color de las celdas sin cliente Sheets("DATOS").Range("D2:D2000").Interior.ColorIndex = 0 ColumnaObjetivo = 4 UltimaFila = Cells(Rows.Count, ColumnaObjetivo).End(xlUp).Row For i = 1 To UltimaFila If Cells(i, ColumnaObjetivo) = "" Then Cells(i…

Buenas Tardes antes que todo agradecer cualquier ayuda o sugerencia. Bueno les comento tengo un combobox donde al elegir una opcion me despliega una serie de datos, dentro de esos datos tengo una ficha tecnica de un producto en particular, mi idea es que luego de mostrar esos datos la celda que contenga el nombre de la ficha tecnica que en forma de link y que me permita abrir la ficha. Estas fichas estan en formato pdf. Estuve haciendo algunas pruebas con codigo: Sub CrearHyperlink() Dim FolderName As String FolderName = "C:\Users\Juan G\Desktop\Cristian\pdf\" ActiveSheet.Hyperlinks.Add Anchor:=Hoja1.Range("C20"), Address:= _ FolderName & Hoja1.Range("C2…

Buenas tardes. Tengo una tabla la cual tengo las celdas protegidas con este código: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C3:G2500")) Is Nothing Then Exit Sub On Error GoTo ExitPoint Application.EnableEvents = False If Not IsDate(Target(1)) Then Application.Undo MsgBox "No se puede borrar el contenido de esta celda" _ , vbCritical, " Borrar celda" End If ExitPoint: Application.EnableEvents = True End Sub El problema es que, si accidentalmente añado una fila nueva a esa tabla y luego la quiero borrar, me sigue saliendo el error. Me gustaría que cuando se borre una fila te pregunte si quieres que se borre con un MsgBox, …

Expertos saludos a todo de esta comunidad informática, mi duda es que no logro ubicar si fuera un error o desbordamientos de código, lo que pasa es que me funciona muy bien la macro realizar los reportes por cada alumno, el detalle es que cuando en algunos reportes los criterio evaluación no coinciden cada criterio no lo esta tomando bien para sacar el total, tengo mas de 30 alumnos por cada archivo, me tomado el afán de revisar cada reporte en algunos reportes del alumno lo cuadra muy bien la sumatoria pero en algunos reportes no los toma bien el total sale mas a en otros casos menos no lo generando la sumatoria de acuerdo a los criterios eso es el único detalle que me…

Buenas tardes, Estoy tratando de armar un archivo donde al escribir los códigos de ciertos productos este los busque en páginas web y me traiga los precios asociados, la macro funciona ahora como esta pero el problema ocurre cuando un código no lo encuentra en la página me escribe el precio del código anterior. Alguien me puede ayudar a que si no encuentra ese código en la página el valor quede en blanco? Este es el código que estoy usando. Sub test() Dim IE As New InternetExplorer Dim precio1, precio2 As Variant Dim doc As HTMLDocument Range("B2:C1000").Clear Cantfila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row For …

muy buen foro busco ayuda con macro que copie y pegue de una hoja a otra. ya tengo un macro pero quiero que justamente copie abajo de donde copie lo anterior y no se borre lo anterior y así sucesivamente. es un archivo como de 20 columnas y unas 600 filas.. pero cuando copio se pega nada mas como hasta el numero 220 y lo demás ya no lo copia de antemano gracias y espero haberme explicado..subo archivo de mi macro gracias macro copia pega a otra hoja.txt

Así como podemos importar imágenes y colocarlas en una celda específica, como un catálogo de imágenes, deseo saber cómo puedo hacer lo mismo pero con los archivos PDF que se generan por facturación electrónica... No deseo copiar ni abrir propiamente el archivo PDF, solo quiero mostrarlo... Alguna Sugerencia? Gracias por su apoyo Daniel Wise

por casualidad algun experto a hecho este codigo lo que pasa es que tengo ciertas cantidad de numeros de una cifra por celda y me gustaria sumarlos en forma diagonal (en cualquier forma hacia arriba o hacia abajo),y me diera el resultado en un formulario es esto posible? le agradezco al experto que me colabore Libro1.xlsm

Muy Buenas a todos los que integran ayudaexcel.com/foro, buenos por molestarles una vez mas, ya que he tratado de generar una especie de calculadora con el uso de un userform, pero dado que tengo bajos conocimientos no lo he logrado, aquí es donde solicito su valioso tiempo y ayuda. La idea es desde el formulario calcular cantidad*precio con el checkbox activado para que multiplique con IVA(impuesto), si lo desactivo solo me realice la multiplicación, En la casilla de IVA sume todo el IVA calculado(Ejemplo, de los cinco valores que introduzca tres poseen IVA y el resto no, por lo que desactivo el checkbox). Cantidad*Precio*Depende del estado del checkbox=suma (1*10)(iv…

Saludos a todos. Estoy continuando el post ( https://www.ayudaexcel.com/foro/macros-programacion-vba/20306-pendiente-formatos-diferentes-cuadro-combinado-combobox.html ) donde pregunté por una lista desplegable o un combobox en el que se pudieran asignar distintos formatos a cada una de las líneas. Macro Antonio me contestó que ésto no se podía hacer con los combobox, pero que consultara otro post que había empezado él sobre cómo utilizar la función SpreadSheet (que hay que descargarse aparte, consultar ese post: https://www.ayudaexcel.com/foro/ideas-aportes/20517-listas-validacion-multiples-columnas-fuentes-colores.html ). Por cierto, muchisimas gracias por tu ayuda …

Hola a todos en primer lugar dar las gracias a todos de antemano, y en segundo pues voy a exponer mi problema. Tengo una lista de 2.000 celdas con números diferentes. Bien, pues en esas celdas he añadido un formato condicional, de tal forma que si x=10 por ejemplo, la celda quede de color verde. Vale, una vez hecho esto, necesito saber cuántos verdes hay, porque sino de nada me sirve lo anterior. Estoy de acuerdo en que se podría hacer de otra forma, pero este problema no es mío, sino de una persona que me ha encargado resolvérselo y por tanto ha de ser de esta manera. Así que eso, tengo x celdas coloreadas de color verde y necesito saber qué numero es x. He probado …

Buen domingo a tdos!!! Tengo una macro que me añade nuevas hojas en blanco renombrandolas con las fechas de todo el mes en curso. Ahora necesitaria que esta misma macro me copie la hoja "Plantilla" y las renombre como hasta ahora . Set wks = .Worksheets.[B][COLOR=#000080]Add[/COLOR][/B](after:=.Worksheets(.Sheets.Count))[/CODE] Quisiera cambiar la función de [b][color=#000080]Add[/color][/b] por [b][color=#ff0000]Copy[/color][/b], he probado con algunas variantes, pero hasta ahora siempre con error. Alguna sugerencia ??? Gracias por vuestra ayuda :courage: Book1.rar

Buenos días, ¿podrías ayudarme con el código que se debe aplicar para desagrupar todas las columnas de una hoja excel? También necesitaría vuestro apoyo para descubrir como eliminar las columnas que contengan la palabra "Production plan" y "dispatched volume" de la fila 5. Hasa ahora tenía la siguiente formula, pero me da error: Sub Control_Producción() ' ' Control_Producción Macro ' Controlar el material producido vs la producción planificada ' ' Acceso directo: CTRL+p Cells.ClearComments ' eliminar comentario de la hoja' Worksheets(1).Select Set MR = Range("5:5") ' Eliminar columnas que contengan la p…

Bendiciones: Tengo un userform (formatomoneda) con dos textbox y un label, en el primer texbox se ingresa una cantidad que debe ser mostrada en el textbox2 y en el label1, en ambos casos son producto de un calculo, en el siguiente formato $ 1,245.56. Adjunto archivo, espero puedan ayudarme Formato a textbox.rar

Hola!! Necesito unir tablas de distintas hojas de calculo y crear una nueva hoja, para esto he estado utilizando la siguiente macro (Adjunta) pero me entrega los valores que estan en la celda con formula y los necesito solo como valores. ¿Que puedo hacer en este caso? ¿Qué me recomiendan? Sub Extraer_Datos() Dim shDestino As Worksheet Dim ufo As Integer, ufd As Integer Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count)) shDestino.Name = "d" For I = 1 To Sheets.Count - 1 If Sheets(I).Name = "ESCUELAS" Then Else ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row ufd = shDestino.Range("A" & Cells…

Hola, quiero poner un botón en excel que escanee un documento, automaticamente guardarlo en un archivo y guarde la ruta en una celda De momento solo he encontrado como escanear un documento con esto: Sub Insertar_desde_escaner() CommandBars.FindControl(id:=1764).Execute End Sub pero me muestra lo encaneado en la hoja del libro de Excel, cosa que no quiero. ¿alguna idea? Muchas gracias. Saludos, Carlos Toc

Buenos Días, Necesito ayuda, faciliten me ayuda con un programa o un archivo en excel con macros que pueda hacer los siguiente. registrar piezas de maquinas, por código, descripción, cantidad, costo, proveedor, ubicación, equipo Despacho: código, descripción, costo, ubicación, técnico, despachado por, equipo control de usuario, osea que para abrirlo sea con usuarios. Cualquier ayuda les estaré agradecido eternamente. eNLACE https://drive.google.com/open?id=0B_QkM_z6OQendlBySUMxS1ZEeGc&authuser=0

Buenas tardes tengan todos! Nuevamente vengo a recurrir a este excelente foro, para ver si alguien sabe de que forma puedo resolver el siguiente problema, tengo un archivo con dos hojas, en la hoja1 tengo la columna A y B, lo que necesito es de la columna B realizar filtros, por ejemplo los que en columna B tengan "" (celda en blanco) hacer una busqueda con los datos de ID que estan en la columna A contra la hoja2 y ponerlos en la columna C (hoja2) agrupados por ID, osea si del ID 1012 son 10 registros en la columna C de la hoja2 poner el numero 10 donde diga 1012, el segundo filtro son lo que en la columna B sean igual a cero, hacer los mismos pasos y colocarlo en la co…

Estimados: Antes de presentar mi problema, quisiera sinceramente agradecerles por toda el apoyo que ustedes prestan a aquellas personas que saben y no sabemos mucho de macro, han sido personalmente para mi una gran ayuda, y gracias a sus consejos y macros e conseguido consolidarme de mejor manera dentro de mi empresa y eso no tiene costo monetario, gracias de verdad de todo corazón. Ahora tratare de explicar lo mas claro posible lo que estoy haciendo, tengo una macro en donde ingreso datos a diferentes hojas, las cuales selecciono con un combobox y lleno a traves de textbox, a su vez tengo otro combobox, en donde selecciono las hojas del archivo y visualizo la informaci…

Modificar Código Macro Numeros a Texto. Amigos, hace ya un tiempo consulte por una macro que muestra el texto de un número determinado. ( en ingles, Dolar ), me enviaron un ejemplo, el cual a la fecha no lo he podido modificar para mejorarlo de acuerdo a los requerimientos de mi trabajo. Por esta razón es que nuevamente le solicito a ustedes puedan ayudarme con esta macro. Adjunto planilla de ejemplo, donde se muestra como lo escriben (texto) manualmente y como muestra con la macro. de ante mano muchas gracias por vuestra ayuda. Winnerclip macro_num_a_texto_en_Ingles.xls macro_num_a_texto_en_Ingles.xls