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, buen día. Mi duda es sobre los cuadros combinados. Lo que requiero hacer es que dependiendo el boton de opción que presione me cargue en un cuadro combinado la información contenida en el rango A2:A10. ¿Cual es la línea de código que captura la información de un rango en un cuadro combinado?, Adicional a eso ¿hay manera de especificarle un rango grande y que sólo traiga la información de las cedas que no se encuentran vacias? De antemano muchas gracias, espero me puedan ayudar. Saludos.

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…

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…

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…

Hola! Tengo el siguiente codigo VBA asociado a una macro y no he logrado agregar una linea para saltar todas las celdas que se encuentren en blanco sin terminar mi macro, me pueden ayudar por favor? Basicamente busco que al correr la siguiente linea, el codigo sepa que cuenado la celda esta vacia, se debe pasar a la siguiente celda sin enviar un 0 ni otro valor. Set valueCell = Worksheets("WritePI").Cells(i + 2, 2) Codigo: Sub put_data3() Dim i As Integer Dim numoftags As Integer 'The following four variables are arguments to PIPutVal() Dim sTagname As String 'Tagname Dim stime As String 'Timestamp …

hola estimados compañeros: tengo un problemilla con un archivillo de Excel que uso en mi computadora de manera perfecta pero al copiarlo y ejecutarlo en otra maquina de mi trabajo me sale este error: "se ha producido el error '424' en tiempo de ejecución: se requiere un objeto" y al depurarlo la línea de amarillo que se posiciona sobre el siguiente código: userform1.show me imaginé que se trataba de alguna referencia dado las configuraciones de las instalaciones de los Offices pero la verdad al estar viendo las referencias no logré encontrar de cual se trataba. Yo uso office2007 y la maquina donde trato de abrirlo también pero la verdad no se a que se pueda deber es…

hola tengo una duda, quiero crear un macro que me permita borrar ciertos caracteres para depurar un texto. a grandes rasgos utilizo el siguiente codigo, lo que quiero haces es agregar una variable en "replace what:=" que me permita eliminar varios caracteres de una ves (&, %, #, etc). no se si esto se pueda hacer. Sub filtro para eliminar caracteres() Range("D:D").Replace What:="/", Replacement:="" End Sub

Hola muy buenas Tardes! Quiero hacer algo que me facilite la eliminacion de algunas filas para no tener que hacerlo tan manual. Tengo este archivo que pose codigos de compañias y cuentas de gastos con lo ejecutado mensualmente, lo que quiero es una macro o codigo que me elimine de la columna C que tiene de titulo Ceco, todo las filas donde en esta columna se encuentren codigos que no sean estos: 171,175,177,178,179,181,232,233,235,263,288. Es decir que las filas que contengas los codigos que ya puse permanezcan y las demas se eliminen . Es posible? Cabe destacar que si el codigo se puede hacer, lo ejecutare para otra base de datos donde cambiaria el condicional de lo…

@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, Quiero usar la variable ( .List ) en mi macro pero VBA pare ser que no la encuentra como si no existiera. No entiendo nada. Os adjunto las capturas de pantalla. Como podéis ver en la lista desplegable de VBA no aparece esta variable que acabo de escribir. Pero he seguido escribiendo el código a mano, esperando que me saltara algún error o que se pusiera en rojo el código ( como cuando lo has puesto mal ) pero no es el caso parece ser que está bien aparentemente. Pero cuando ejecuto la macro me salta ese error. Creo que porque no reconoce la variable .List Creo que no he cometido errores en e…

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 y de antemano muchísimas gracias por su ayuda. Estoy desesperado ya que no encuentro una solución a mi problema, el cual describiré a continuación: Tengo dos ComboBox y quiero hacer uno dependiente del otro dentro de un formulario, mis listas se agrupan de manera horizontal... por ejemplo: ComboBox1 - Celda (A1:A100) / ComboBox2 - Celdas a la derecha, (10 Celdas B1:K1 ) A B C D... 1 Aves Carpintero Cotorra Perico 2 Caninos Chihuahueño Salchicha Bulldog 3 Felinos Tigre León Puma …

Hola, Estoy teniendo un problema a la hora de distribuir un texto en varias columnas. Estoy trabajando con un fichero de datos de una encuesta, el cual de momento sólo tengo en un .txt y me gustaría pasar a .csv para trabajar con él en SPSS. No tengo manera de separar en celdas de forma automática porque no tengo un separador concreto, no hay comas, los espacios no coinciden necesariamente con nuevas celdas, etc. Decidí hacerlo manualmente ya que tengo los datos de donde empieza y acaba cada columna, pero se me hace tedioso y da lugar a errores al hacerlo de manera manual. ¿Existiría una macro capaz de separarlo en columnas de forma que yo metiera el número de de carac…

Buenas tardes, Amig@s del foro quisiera solicitarles el valioso apoyo con la siguiente consulta: como lograr eliminar un modulo por medio de macro cuando el proyecto se encuentra protegido? he revisado que utilizando la siguiente instrucción se elimina el modulo pero si el proyecto no está protegido en su acceso a vba: ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.DeleteLines 1, ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule.CountOfLines En el archivo adjunto he insertado un botón en la hoja que llama al formulario, dentro del formulario he agregado otro botón para llamar a la macro, la clave es: PRUEBA, la idea es que en el modulo 2 cr…

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…

buenas tardes, estoy trabajando con un archivo en el cual manejo pagos a entes gubernamentales, y a partir del mes de abril no permiten cargar valores que sean inferiores a un salario especifico, resulta que en mi libro la columna "G" posee el campo sueldo, pero al extraer la información necesito que una macro ubique los valores inferiores ejemplo a 250 y estos que sean menores los convierta a 250, únicamente los que sean menores a este valor prueba.xlsx

Buenas a todos en el foro. Me ha surgido una nueva inquietud con la cual no he podido yo solo, es por eso que recurro nuevamente a ustedes. Ten go un libro en el cual Tengo una sola hoja llamada "Explosion de Avios" de la cual necesito sustraer algunos datos y pegarlos en otra hoja que es en la que genero mis Ordenes de Compra. Dentro del archivo explico que es lo que necesito, y ojala y me puedan ayudar con esta nueva inquietud. Quedo en espera de su ayuda. Gracias. Prueba.rar

Estimados, Este es mi primera consulta, desde ya muchas gracias. Estoy tratando de hacer un programa que me permita acceder a una web y extraer datos desde ella, siguiendo el tema: https://www.ayudaexcel.com/foro/macros-programacion-vba-10/importar-datos-web-contrasena-20013/, he podido acceder a la web y certificarme o loguearme, pero entiendo que con el objeto: QueryTables debo seleccionar la tabla en la web que quiero traer a excel, el problema que la ubicacion de esa tabla en la web es dinamica. Me gustaria saber si existe la posibilidad con el objeto "QueryTables" de poder copiar el codigo fuente de la pagina a una variable tipo Strig y yo hacer una busqueda dentr…

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…

Estimados, tengo el siguiente problema, necesito una macros que genere hojas en el libro en el que se esta trabajando y luego las mueva a un libro nuevo, sin embargo no logro mover las hojas y me mueve la hoja activa. En el documento se encuentra una explicacion mas detallada, espero que puedan ayudarme. Saludos, Roberto Libro1.zip

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

saludos cordiales como indica el titulo deseo hacer una condicional if que me compare si una variable esta dentro de un array de esta forma if tipo=array(1,2,3) then "la condicion dada" es decir si el tipo va del 1-3 que se ejecute la condicion, pero no me sale .agradezco su amable ayuda al respecto de esta duda.gracias

Buenas Tardes Tengo una macro que me envía de forma masiva correos a una lista en Excel que ya tengo predeterminada (empresas y Usuarios), pero requiero enviarle a cada uno de las empresas que se encuentren en esta lista una información especifica que tengo en una tabla (encabezados e información) pero no queremos enviarla en tipo texto sino tal cual esta en la tabla de Excel Adjunto código que utilizo para el envío de los correos Sub envio_mailprueba() Application.ScreenUpdating = False Dim outlookOBJ As Object Dim mitem As Object Dim OutMail As Object Dim fso As Object Dim ts As Object Dim strbody As String Dim Ruta As String Dim Firma As String Range("E2…