Hola que tal, quisiera hacer una consulta, intente desarrollar la siguiente macro pero me surgieron algunas dudas. La misma consiste en levantar todos los datos de una Tabla de excel, (siempre estará en la misma ruta) y pegarlos en el libro activo, en la celda activa donde ejecuto la macro. Osea esta macro la voy a guardar como complemento y así utilizarla en cualquier excel que abra, por eso necesito que el código me reconozca el excel donde la ejecuto para poder pegar los datos de la tabla y obvio luego me lo cierre sin guardar. Así es como lo propuse, pero solo anda para un libro llamado "Libro1" y necesito que ande para cualquiera, ademas tampoco me estaba p…

Buenas tardes Tengo una pequeña Macro en VBA en la que registro un inventario y en una celda me inserta la imagen asociada a un código. Lo que necesito es que la imagen o se centre en la celda o se redimesione para ocupar la totalidad de la celda. La Macro creo que la descargué de un enlace de Macro Antonio y la he adaptado a mis necesidades, pero me he quedado estancado en lo de la foto. Prueba2.rar

buenas noches , me gustaria saber si alguno de ustedes me puede ayudar con el siguiente caso: necesito que desde un libro de excel poder copiar los datos de algunas celdas seleccionadas en otro libro ejemplo : seleccionar a1-a2-a3 etc y que al precionar un boton en el otro libro me copie los datos de estas celdas seleccionadas . seria importante aclarar que dichas celdas cambiarian a diario de antemano agradezco cualquier ayuda que me puedan prestar , y espero puedan entender el objetivo del caso que estoy planteando , mil gracias

Hola. Mi pregunta es: Desde que se hace click en un archivo excel y empieza a cargar hasta que recibe la primera instruccion que hay por ejemplo en el ThisKorbook o en un auto_open, ese proceso que a veces resulta en un parpadeo ¿donde se puede manipular para que no se vea?....no se si me explico. Es que a veces se ve (tarda mas) y a veces practicamente no se ve (apenas tarda nada). Gracias.

Hola, Tengo una consulta, resulta que he logrado crear una lista desplegable dependiente, el problema ahora, es que necesito que esa misma acción se repita las celdas siguientes, la acción fue creada en VBA para la celda K8 relacionada con AJ8,pero lo que ahora necesito es que el evento de K8 suceda también en K9, K10 y demás (hasta K47) y AJ8, AH9 y demás; probé con copiar el código de VBA:... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$K$8" Then Exit Sub ActiveSheet.Unprotect Select Case Target.Value Case Is = "Actualización guía comercial" rgo = "_730_53" Case Is = "Elaboración guia comercial" rgo = "_730_53" Case Is = "Pe…

Buenos días , no encuentro una forma para hacer esto: Tengo varias columnas con datos, en una de ellas siempre hay nombres repetidos (Por ejemplo: TIPO 1, TIPO 2, TIPO 1, TIPO 1), me gustaría pulsar un botón en un formulario y que me mostrase un mensaje indicándome el total. ¿Sería esto posible?, cualquier respuesta sería de gran ayuda. Un saludo a todos y muchas gracias.

Buenos días, Muchas gracias de antemano por su ayuda. Tengo un problema (además de saber mas bien poco de macros) y es que me gustaría en un formulario USERFORM de excel extraer un valor de identidad único por cliente según se meta el numero de teléfono o el mail en 2 textbox que hay para ello. La lógica es la siguiente: 1.- Ingresamos un mail en textbox TEXT_MAIL_CLIENTE y nos debe aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE 2.- Ingresamos un telefono en textbox TEXT_TELEFONO_CLIENTE y nos deberia aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE si el resultado de este ultimo y el anterior coinciden. Si no tenemos MAIL …

hola a todos, Primero que todo espero que se encuentren muy bien, bueno yendo al grano necesito ayuda en este pequeño problema, tengo un Combobox y en este se puede escribir, puede escribirse independiente de los valores que esté tenga en la lista. Ya logre controlar si el Combobox se deja vació, ahora necesito controlar este pequeño error. les pongo el código que use para controlar si se deja vació, así me entienden mejor xD Nota: CbbMes (ComboBox) if CbbMes.Value = "" then Msg "Debe seleccionar un mes", vbCritical, "Error" CbbMes.SetFocus Exit Sub End if

hola a tod@s... tengo un form con 2 combobox depiendientes que me llenan un listbox, solo me faltaria que el combobox2 no me muestre duplicados,,, no logro resolverlo,,, si alguin tiene ganas de ayudarme.... gracias de antemano!!! Combobox dependes llena listbox.rar

Hola a tod@s! Me encuentro trabajando con autofiltros para programar una macro en Excel 2003, necesito ayuda para lograr determinar cuantos elementos están contenidos en el filtro de una columna, con el fin de poder obtener el número de horas de vuelo que se encuentran registradas en la columna B. Se me había ocurrido esto para ir filtrando con un "for" e ir seleccionando criterio uno por uno y obtener la suma de horas. En realidad no tengo idea de como trabajarlo con una macro, necesito recorrer cada criterio y sumar las horas de vuelo, el resultado colocarlo en alguna otra celda. Adjunto el archivo ejemplo, agradeceré mucho su apoyo. Un cordial saludo. rponcel. …

Estimados, Un gusto saludarlos, tal vez el titulo ya les parecerá repetitivo, y hasta la parte del To creo que lo es, porque me he navegado todo en internet y no logro dar con algo para incluirle un Cc. Me explico. Tengo una planilla de clientes con su Correo, y el de su vendedor. El envio al cliente con un archivo adjunto ya lo tengo resuelto. (Hay mucho material sobre esto) Mi problema es enviarlo con copia al supervisor, esto porque además cada supervisor tiene diferentes clientes. Logre enviar con copia, pero solo al primer correo, al segundo y los siguientes no lo hace y solo envía Para. Adjunto el código y archivo. Intente modificando el campo Cc con los sigu…

Hola amigos del foro tengo la siguiente macro Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If IsNumeric(Target) And Target.Address = "$AM$4" Then Select Case Target.Value Case 1, 2, 3, 4, 5, 6, 7 ActiveSheet.Unprotect Range("h11").Select Target.Locked = True Target.FormulaHidden = True ActiveSheet.Protect Case 9 ActiveSheet.Unprotect Range("h11").Select Target.Locked = False Target.FormulaHidden = False ActiveSheet.Protect End Select End If End Sub pero al seleccionar cualquiera de los case me mar…

Saludos amigos, anteriormente yo he realizado Web Scraping obteniendo valores de tablas y esas cosas, hoy estoy intentando con esta simple página http://preev.com/ que me muestra el valor del BTC, y pues no logro obtener ese valor, si alguien puede echar una mano gracias

Buenos días, soy nuevo en el foro y no se como realizar la siguiente acción en excel. Necesito buscar en todo un libro de excel, las hojas cuya celda B5 cumpla determinada condición por ejemplo tenga color de relleno rojo, y seleccionar esa celda. Esto se debe a que en esa celda de cada hoja, se rellena de rojo si esa hoja esta sin completar, entonces me gustaría usar una macro que me vaya desplazando por todas las hojas que están incompletas, o sea, con la celda B5 en rojo, para así poder completarlas. Muchas gracias, espero su ayuda. Leonel

@Macro Antonio, Hola Macro Antonio, Con respecto al archivo del control itv, me surge una incidencia y quisiera pedirte ayuda para resolverla. Veras, en el adjunto (el control itv) tengo un vehículo que no ha pasado la revisión por defectos. En el libro; seria posible una columna en la cual al no pasar la revisión me quedara reflejado ?? como por ejemplo "negativo" o con un botón que puedas que te diga "ACTIVA" , "BAJA". y segundo, esos defectos serian lo suyo que me quedaran reflejados en el libro con una columna de "Observaciones"" Por favor, podrías echarme una mano. un saludo y gracias CONTROL ITV.xlsm

Hola a todos! Tengo unos codigos para asignar un formato numerico a un textbox de un tema que no logro encontrar ahora y otro de un tema que comencé (https://www.ayudaexcel.com/foro/macros-programacion-vba-10/anadir-borrar-cambiar-valor-combobox-celdas-23260/#post114925) que sirve para evitar introducir caracteres especiales. Los he combinado a lo bruto, pero quería conseguir más cosas, a ver si me podéis ayudar con esto. Adjunto el código hasta ahora: Private Sub CuadroTexto1_Change() Dim Texto, Entero, Decimall If Len(CuadroTexto1) = 0 Then Exit Sub Texto = CuadroTexto1 Texto = Replace(Texto, Application.ThousandsSeparator, "") p = InStr(Texto, Application.Deci…

Hola : Encontré esta macro en internet que funciona bien pero deseo modificarla para que no me repita los números cada 6 celdas. Alguien me puede ayudar ? Gracias Sub Saca10alAzar() x = 6 Randomize For i = 5 To 43 Range("B" + Trim(Str(i))).Value = Int((x * Rnd()) + 1) Next End Sub

Estimados Buscando encontré una macro para comparar dos Hojas de un archivo excel y generar otra hoja con las diferencias, la cual me ayuda en algo para lo que necesito. Sin embargo quisiera ver la posibilidad de que me puedan ayudar ampliando un poco más la misma. Las hojas de trabajo siempre tendrán las mismas columnas. Mi parametro de comparación serán los datos de la primera columna, pero entre hojas de trabajo no necesariamente estarán en la misma fila. Una vez que se encuentra la información de una celda de la primera columna de una hoja en cualquier fila de la primera columna de la otra, inicie una comparación columna a columna de la fila de esa hoja, con la f…

tengo un problema y ojala me ayuden: Necesito parear dos hojas con registros, y eXtraer los registros iguales entre ambas y colocar en una tercera hoja pero necesito que los datos de la columna A, B y C, etc, de la hoja 1, sean iguales a los datos de las columnas A, B, y C de la hoja 2 para que sean extraidos y colocados en la hoja 3., de lo contario que no los tome como duplicado. O sea que elimine los duplicados de la hoja 1, segun lo indicado en Hoja 2, pero coincidentes en tres o mas columnas. para luego eliminar de la hoja 1 1, y y pegar en la hoja 3. No tengo archivo a adjuntar, espero que mi solictud sea escuchada ya que trabajo con muchos registros y siempre…

Buenas noches. Estoy buscando una macro que realice la siguiente funcionalidad en un solo archivo. Una vez abierto el libro se ejecute automáticamente una macro la cual oculte todas las barras de los extremos (barra de menú, barra de herramientas, cinta de opciones, barra de formula, etc..). La dificultad de esto es que solo lo tiene que dejar las barras ocultas en un libro dejando el resto de libros abiertos y pendientes de abrir con las barras habilitadas. Únicamente he encontrado está macro la cual te oculta todos los archivos abiertos. por lo que no me sirve Private Sub Workbook_Open() Application.CommandBars("Worksheet Menu …

Buen día y con el gusto de saludarle nuevamente expertos recurro a ustedes para solicitar su valiosa colaboración en el mejor de los sentidos ya que tengo un textbox al que le quiero poner un formato de hora HH:MM para que al momento de escribir obligue al usuario final a poner ese formato de tiempo exactamente, he intentado hacerlo pero en mi programación veo muchos errores, por ejemplo cuando le doy con las teclas direccionales para seleccionar y me posiciono en el espacio 3 y le doy una letra este la acepta; bueno de antemano el textbox no debe aceptar letras, unicamente números y en el espacio 3 el signo de dos puntos (:) pero como lo digo al hacer eso lamentablemente…

Buenos días a todos, En la empresa tenemos una "Base de datos" con registros de personal, contratos, etc que se gestiona desde un formulario y funciona muy bien todo menos el botón EliminarBD que ejecuta el siguiente código. Private Sub btn_Eliminar_Click() Dim Ufila, ufilaD, i, j As Long Dim ht As Worksheet Dim hd As Worksheet Set ht = Hoja3 Set hd = Hoja8 If Me.txt_nic = "" Then Exit Sub If MsgBox("Seguro de eliminar TODOS los registros del item seleccionado?", vbQuestion + vbYesNo, "Borrar") = vbNo Then Exit Sub End If Ufila = ht.Range("A" & Rows.Count).E…

Hola amigos: Quisiera saber si es posible convertir una hoja de excel con datos, bordes e imagenes en HTML por medio de macros y si alguien tuviera dicho macro le voy a agradecer que pudiera proporcionarmelo. saludos

Hola a todos, Alguien sabe como se puede hacer que en un formulario cada que vez que llegue el día 01 de cada mes, me reinicie el contador y comience desde el número 1? Gracias ojalá me puedan ayudar. Saludos,

Buenas tardes, perfecto la macro que me ha ayudado Riddle : Sub Imprimir_Vistaprevia_seleccion() 'preparar la hoja para la impresión With ActiveSheet.PageSetup .Orientation = xlLandscape 'xlPortrait es vertical xlLandscape es horizontal .PaperSize = xlPaperA5 'formato A5 .BlackAndWhite = False 'incluir colores o no .FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho) .FitToPagesTall = 1 'reduce el tamaño de la hoja (alto) .CenterHorizontally = 1 'centrar horizontalmente .CenterVertically = 1 'centrar verticalmente End With Selection.PrintPreview End Sub una vez configurada en tamaño, doy a imprimir y perfecto. Pero necesito la alternativa de guardarlo…