Hola a todos, quería preguntarles si se puede hacer lo que deseo, ya que no se mucho de excel, sobre todo de macros. Tengo un archivo con varias columnas, pero solo me interesa el contenido de una de ellas. El contenido se extrajo de una tabla mysql en formato de texto plano y necesito pasarlo a html. Para ello ya conseguí una pagina web que hace lo que necesito de forma correcta. Por lo tanto lo que quiero es crear una macro que copie una celda, luego abra la siguiente pagina web: http://www.textfixer.com/html/convert-text-html.php ahi pegue el contenido de la celda, haga clic en convertir, vuelva a seleccionar, copie y pegue nuevamente en el excel. Lo único que …

Hola!! Necesito armar un cuadro de lista dependientes, digamos que dos cuadro de lista. En uno quiero que salga las marcar de autos (Ford, Fiat, BMW, Etc) y dependiente de la selección de la marca en el otro aparezcan los modelos de las diferentes marcas. Gracias

Estimados, Estoy tratando de hacer una macros que me permita abrir todos los archivos de una carpeta, copiar una casilla y pegarla en la tabla de otro archivo, pero al ejecutar me lanza el error previamente mencionado. Si alguien me puede ayudar en esto estaría muy agradecido. Saludos! Option Explicit Sub Open_All_Files() Dim oWbk As Workbook Dim sFil As String Dim sPath As String sPath = "C:\Users\User\Desktop\Respaldo Periodo Felipe 08-03-2012\TERPEL\Planillas TERPEL\checkist total\" ChDir sPath sFil = Dir("*.xlsx") Do While sFil <> "" oWbk = Workbooks.Open(sPath & "ID1 ISLA BILBAO.xlsx") ThisWorkbook.Activate Sheets("Isla").Select With …

Aviso que se cómo crear controles en tiempo de ejecución, con nombres específicos para cada uno de ellos; sin embargo quiero saber: Como crear en tiempo de ejecución, eventos en controles, creados también en tiempo de ejecución. Emplear el evento click y doble click a varios controles creados en tiempo de ejecución, específicamente en TextBox. Tengo otra duda es posible de alguna manera utilizar o crear el evento click derecho, veo que predeterminado está click izq, pero el click derecho nada.

Buenas tardes. Gracias de antemano por la ayuda. Os explico mi problema. En la hoja 4 (Datos 2), quiero poner un pequeño buscador, lo más simple posible. He insertado un cuadro de texto de ActiveX con lo siguiente (llamado BuscadorPrueba); Private Sub BuscadorPrueba_Change() Dim DatoConsultado As String If Hoja4.BuscadorPrueba.Value <> "" Then DatoConsultado = "*" & Hoja4.BuscadorPrueba.Value & "*" Range("C10").CurrentRegion.AutoFilter Field:=1, Criteria1:=DatoConsultado Else DatoConsultado = "" Range("C10").CurrentRegion.AutoFilter End If End Sub No necesit…

Buen día, soy novata en macros, pero estoy realizando un proyecto en el cual realizo exámenes para distintas areas de mi trabajo, realicé un examen de falso y verdadero, coloqué un botón en el cual oculta filas y columnas con calificación y respuestas, al presionar el botón añadí una contraseña para que sólo una persona pueda hacer divha acción, el problema es que al poner la contraseña me acepta cualquier dígito incluso si solo pongo aceptar en el recuadro. Este es el código. Que me falta? Private Sub CheckBox1_Click() Dim respuesta respuesta = InputBox("Introduce el password ", "Password") If LCase(respuesta) = "…

macro que borre contenido de celdas especificas? Muy buenas Tardes Me han pedido en mi trabajo que realize una base de datos que pueda borrar ciertas por asi decirlo encuestas y es una base de datos de mas de 50000 filas, cada encuesta tiene su numero unico y quisiera que me ayudaran a hacer una macro que hago lo siguiente ya que programar si no es lo mio y me urge: Al yo ingreser un numero de encuesta o una lista de numeros como les sea mas facil la macro encuentre la fila donde esta ese numero unico y borre las celdas de la misma fila en la columna X al archivo que adjunto tiene las notas para entender un poco mas macro.xls

Buenos días. Necesito crear una hoja de resumen de un libro que a su vez se seguirán incorporando nuevas hojas para ir actualizando (la verdad soy nulo para macro, pero tengo muchas ganas de aprender) Estaré atento a sus comentarios.- adjunto archivo Sheet 1.xls

AL ABRIR UN ARCHIVO XLSM ESTE ME MANDA UN MENSAJE: "HEMOS ENCONTRADO UN PROBLEMA CON EL CONTENIDO DE ' NOMBRE DEL ARCHIVO': ¿DESEA QUE INTENTEMOS RECUPERAR EL MAXIMO DE CONTENIDO POSIBLE?, SI CONFIA EN EL ORIGEN DE ESTE LIBRO HAGA CLICK EN SI". HAGO CLICK EN SI, Y SALE UN CUADRO QUE DICE: "PARTE QUITADA: PARTE /XL/VBAPROJECT.BIN (VISUAL BASIC PARA APLICACIONES (VBA))" ¿ALGUIIEN SABE LA SOLUCION A ESTE PROBLEMA?, PUES EL ARCHIVO LO ABRO DESDE OTRO COMPUTADOR Y FUNCIONA PERFECTAMENTE. SIENTO QUE EL PROBLEMA ES DE EXCEL O DE ALGUNA CONFIGURACION. YA DESINSTALE Y VOLVI A INSTALAR.

Hola, en esta ocacion necesito de su conocimiento para que me ayuden a resolver una duda. Tengo un libro con varias hojas, una de ellas es la hoja formato, que con una macro se copia en muchas hojas, cada hoja con nombre diferente. El problema es cuando las quiero pasar a PDF, guardandose el PDF con el nombre de cada hoja, si me lo hace pero me guarda siempre la hoja1 en todas las hojas que tengo. anexo macro: Sub hacerpdf() For Each hoja In ActiveWorkbook.Sheets ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Gerardo\Documents\PDF" & hoja.Name Next End Sub Tambien tengo este codigo pero me hace lo mismo, la hoja1 me la pone en todos los PD…

Hola, soy Andrea y este año he aprendido un poco de vba, he avanzado bastante sin embargo hoy me encuentro algo detenida por un error que me genera la macros que he hecho.. he indagado en varios sitios y no he encontrado solución al error, he implementado 2 formas y no he conseguido nada. La macro se trata de reemplazar datos que están definidos en otra hoja y se reemplazan en un plantilla word, hasta ahí todo bien.. pero es necesario que sea lo mas automatizado posible por ende intento que se guarde en una carpeta especifica, y bueno se guardan pero al intentar abrir el archivo da error, se pega el notebook, todo deja de funcionar.. aveces me da el error 5174 ( Arc…

Buenas tardes estimados/as, quisiera pedir de su ayuda, estoy creando una macro que me identifique las diferencias pero lo que quiero es que me resalte solo los caracteres diferente en la columna 1 , hasta el momento solo he podido que me resalte todo el texto, así que adjunto mi planilla, le agradecería su ayuda me estoy desesperando!! Nuevo Hoja de cálculo de Microsoft Excel (2).xlsm

Buenos Días compañeros, Se me presenta un problema con la ejecucion de una macro que estaba armando para que los graficos me cambien de color, los graficos me cumplen la condicion si el relleno de cada barra lo dejo con el color que necesito , pero a la hora de cerrar y abrir el archivo y ejecutar la macro, las barras con porcentaje 0% cambian su relleno en automatico, dejando las barras de color azul.El codigo actual es el siguientePrivate Sub Mes_Click()' Datos a Mes Abril''Muestra Hojas Para Realizar CambiosSheets("Dashboard").SelectSheets("Tablas").Visible = TrueSheets("Dashboard").Select'Cambia Formulas de AcumuladosApplication.ScreenUpdating = FalseRange("B24:C25").…

Buenas noches. Estoy haciendo una macro para verificar una informacion, pero quiero introducirle dos instrucciones que aun no he podido, solicito de su colaboracion. las instrucciones son: Que las fórmulas que están en el rango F6 a R6 se copien hasta la última celda de la columna A que tenga valor. Yo lo hice como esta en la macro que ejecuto con el botón (lupa) allí insertado, pero solo me copia uno a uno cada vez que aparece una celda vacía, yo quiero copiar todo el bloque con un solo clik. Los Nits que están registrados en la columna A me los busque en la base de datos de TERCEROS, y si no encuentra nada, entonces que me permita crearlos mediante un userform …

Estimados Expertos: Quería consultar su ayuda sobre combobox aplicado en una hoja excel (sin colocarla en un formulario). Al adicionar los valores para este combobox realizo un filtrado para eliminar valores repetidos. Logro eliminar los valores repetidos, pero como adiciono un comando Clear al inicio para borrar los datos de filtrado y no se me acumule, entonces al final se borra el item seleccionado. Les paso mi fichero por si alguien ha tratado de realiza anteriormente este proceso: Private Sub Combobox1_DropButtonClick() Dim sd As New Collection Dim celda As Range Dim dato Dim r As Range Dim UF As Integer On Error Res…

Un saludos a los miembros del grupo Requiero que me ayuden con el siguiente Macro. Cuando se ejecuta debe buscar en la base de datos "Registro.accdb" y devolver los datos que coinciden las columna estado con ingreso y la columna nombre con "Carlos" He intentado con el siguiente macro pero me da error Application.ScreenUpdating = True NumId = "ingreso" NomId = "Carlos" Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Datos\Registro.accdb" .Open End With Set Rs = New ADODB.Recordset Sql = "SELECT cedula, nombre, fecha1, Fecha2, origen, carpeta …

Buenos días chicos , He revisado que mi consulta no estuviera resuelta y no la he encontrado.He visto algunas parecidas pero lo que necesito concretamente. 1-OBJETIVO Tengo un archivo excel donde llevo el control economico de proyectos de inevrsión y quiero que desde el excel me baje los archivos adjuntos de los emails seleccionados en el outlook y me los guarde en la carpeta OFERTAS.Estos archivos son ofertas relacionadas con el proyecto de inversión y quiero ahorrar tiempo en la acción de bajar estos archivos adjuntos. Lo que me interesa es que me baje los archivos del email seleccionado o emails que yo seleccione , y no de los emails marcados como …

Buenas noches, Estoy intentando automatizar un reporte y quería saber si con una macro es posible hacerlo. Para actualizar el reporte diario, normalmente descargo una base desde el sistema de logística y esta base va a una carpeta con un nombre cuya estructura es la siguiente 64000 -numeros particulares de la bajada diaria-274785. Con esa base descargada, la copio y la pego de forma manual en el reporte, y a partir de ahi trabajo con esa base. Mi mayor problema radica en automatizar el paso recién descrito, ya que actualizar el resto del reporte con la base pegada en el mismo lo he logrado automatizar. Cada día la bajada tiene esa estructura, con comienzo y fi…

como lo hago para que al abrir el combobox y presione la rueda del mouse me baje a travez del combobox? saludos y gracisa

Tengo un problema tengo que simular una baraja americana con numeros aleatorios ya tengo los numeros aleatorios que estan asignados a cada carta y el aleatorio que genera una carta cuando presionamos F9 , lo que quiero es que al presionar F9 aparesca la imagen de la carta. saludos aqui les dejo mi archivo zandoval.zip zandoval.zip

Buenas tardes a los integrantes de este foro, recurro a uds para que me brinde su apoyo en como hacer que en la Barra de estado de Excel, muestre el tiempo de ejecucion que se describe en la macro que se adjunta, ya que he visto ejemplo donde mencionada por "Porcentaje", desde ya agradezco su apoyo y colaboración. Sub Reloj() Application.ScreenUpdating = False ActiveWorkbook.Save Application.OnTime Now + TimeValue("00:00:30"), "reloj" Application.ScreenUpdating = True End Sub Saludos.

Buenos días, Quisiera saber si es posible... deshabilitar la barra de herramientas cuando abra un libro... no ocultarla, ya que quiero que no modifiquen nada del libro cuando lo tengan abierto. es posible?? Muchas gracias, Saludos.

Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As St…

Buenas, Tengo una macro que es bastante larga en función del número de registros que se traten cada vez y con Application.StatusBar, por ejemplo: Application.StatusBar = "Realizando cálculos..." etc. Voy comentando el progreso de la macro hasta el final. El caso es que si tienes de tema de office el blanco, el texto sale en negro y el fondo verde, así que no se puede percibir bien el mensaje. Para poder verlo en condiciones, hay que cambiar el tema de office a negro, gris o multicolor. Estuve buscando para añadir alguna barra de progreso, pero no supe cómo hacerlo sin desactivar Application.ScreenUpdating ¿Se os ocurre alguna alternativa? G…

Buenos Días Soy Nuevo En El Foro Y Quisiera Saber Si Me Pueden Ayudar Con Esta Barra De Estado Que Necesito Que Se Actualice Con Un Textbox al escribir Me Gustaría Que Me ayudaran el formulario esta en el apartado desarrollador de macros. Barra de Progreso.xlsm