Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …

Buenos días programadores y colegas, El día de hoy requiero un aporte en cuanto a lo siguiente, Dentro del archivo adjunto hay 1 combobox el cual en su propiedad RowSource tiene un rango que agrega items al combobox. Lo que requiero es que a medida que yo ingresé valores, el combobox busque esos valores que están siendo diligenciados en todas las celdas, sin importar si el valor esta empezando o al final (por nombre o por apellido, sin importar el orden en el que este escrito). No se si me hice entender, un ejemplo practico seria el siguiente, DATOS: 1. Felipe Sanchez 2. Sanchez Eduardo 3. Eduardo Perez TEXTO DILI…

Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xl…

Buenos días requiero ayuda con lo siguiente: para poder identifica la ultima celda con datos utilizo el siguiente código: x= ThisWorkbook.Worksheets("Simulación ingresos M").Range("A" & Rows.Count).End(xlUp).Row + 1 en la hoja de simulación ingresos m se encuentra una tabla a la cual le voy agregando registros a partir de otra hoja, por algún motivo la primera fila de la tabla ( donde se encuentra la formulación) el código no lo tomo como la primera fila vacía teniendo como consecuencia que siempre me queda la primera fila vacía. como puedo arreglar este problema?, quedaría agradecido con la ayuda No me permite adjuntar el archivo , adjunto …

Hola, espero estén tod@s bien. Necesito crear un código que me permita guardar una hoja de excel (con un nombre concreto) en formato pdf y en una biblioteca de Sharepoint. He podido crear el automatismo para guardar en mi disco local, pero no hay manera de conseguir que me guarde en Sharepoint. ¿Alguien puede ayudarme? Les adjunto el código para ver dónde está el error Sub Guardar_Acta_Seguridad() Dim ruta, nombre As String ruta = Range("C23").Value nombre = Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ruta & "\" & nombre & ".pdf" End Sub Muchísimas gracias por adelantado y cuídense mu…

Hola buena tarde tengo 2 preguntas, Me gustaría saber si hay alguna forma de abrir una url usando vba. Actualmente llevo poco más de 1 mes usando vba y trabajo en un proyecto donde hay 2 columnas (a y b) en una tabla dinámica titulada gusto personales, el usuario con ayuda de listas desplegables elige 1 valor de cada una, esas elecciones y usando for next me ayudan de una lista de 300 url ya precargadas a definir su resultado "específico" para cada elección y guardarlo en una variable X, mi duda es, como hago que cuando ya tengo la url que desea el usuario con sus elecciones abrirla en una página web. Vi muchos códigos de como abrir una url desde vba pero con …

Saludos Hay alguna forma en Excel de inmovilizar en una misma hoja diferentes filas, es decir inmovilizo la fila 3 y más abajo inmovilizo la fila 30

Hola a todos. Solicito ayuda para poder concatenar textos de celdas consecutivas. La verdad parece sencillo pero no doy con la solución. Atento a sus respuestas quedo agradecido de antemano. Prueba concatenar textos consecutivos.xlsm

Hola mi duda es sobre selección de rangos. ¿Para poder seleccionar un rango la hoja donde se encuentra debe estar seleccionada/activada? Lo he intentado mientras estaba seleccionada otra hoja de esta forma: Sheets(«Datos»).Range(«A1:A5»).Select Pero da error, para evitarlo solo se me ocurre, seleccionar la hoja previamente: Sheets(«Datos»).Select Range(«A1:A5»).Select No se si hay alguna forma de hacerlo sin seleccionar previamente la hoja, para que sea un proceso mas rápido. ¿Seria lo mismo si pongo .Select ó . Activate; cual es la diferencia entre ambas? Por otro lado; ¿Todo lo anterior es extrepolable a otros procedimientos?, por…

Hola buenos días compañeros del foro, me gustaría saber si alguien me puede ayudar a mejorar esta macro con dos cosas, la primera es que a pesar de tener fecha de vencimiento cuando uno se mete al panel de "fecha y hora" y al modificar la fecha se puede seguir usando y no es la idea, dos si aparte de la clave de administrador se puede colocar otra y se siga usando todo con normalidad, es decir todo lo que he venido trabajando antes de la fecha de vencimiento pero que no me deje seguir guardando hasta cambiar la fecha con la clave del administrador, y si la persona no tiene ninguna de las dos claves se cierre el archivo como ya lo hace, Gracias de antemano, …

Que tal, me podrían apoyar con la creación de una función para aplicar "Superscript" lo estoy intentando pero no me esta dando ningún resultado: Function SUPERSCRIPT(x As String) As String SUPERSCRIPT = Font.Superscript = True End Function No tengo mucho conocimiento de VBA. Por eso acudo a su ayuda. De antemano gracias y hasta luego... Ss.

Teniendo el largo de la celda B9 fijo, solamente lo que hago es autoajuste automatico del alto de la celda al cargar el dato, lo que me genera que quede mucho espacio en la celda dependiendo de los caracteres, como puedo hacer para que siempre el alto sea el justo, que no sobre ni un espacio? Dejo adjunto unas imagenes, donde pueden apreciar que la celda B9 se autoajusta pero innecesariamente le sobra mucho espacio en blanco.

buenas noches, dispongo de esta macro para navegar dentro de una pagina web Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "www.google.com" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop End With End Sub estoy tratando de cambiar el "www.google.com" por el valor de una celda, específicamente concatenando el texto inicial del link (www.google.com/) y el texto de una celda que quiero buscar, por ejemplo: el texto inicial seria www.google.com/ ce…

Muy buen día, a todo los expertos lo que necesito es una ayuda con el tema que no puedo dar una solución, lo que pasa es que tengo un formulario con dos controles un textbox y un listbox la lógica es que cuando yo ingreso el un dato en el textbox que le corresponde al código de la hoja Stock me debe mostrar todo los detalles correspondiente a dicho código así sea repetido el código el el listbox, muchas gracias espero haberles sido claro en formular mi duda... adjunto el archivo. Francisco Inventario Español devolucion de inf.xlsm

Buenos días, ¿Alguna persona que use Mac y esté habituada a usar macros? Tengo algunos problemas para que alguien con Mac ejecute una macro de Windows. Ya que no cuento con un equipo Mac, me gustaría probar la macro de otro modo. Gracias.

Hola a todos, mi nombre es Maurizio E incluso si entiendo que para muchos de ustedes esta solicitud mía no tiene mucho sentido; Para mí programáticamente mucho. Dicho esto, mi solicitud es esta: En un formulario de usuario, inserté un objeto (Calendar1) y 6 (TextBox) Ahora, el propósito de todo esto sería seleccionar uno de estos (cuadro de texto) y al hacer clic en (Calendario) ingrese la (Fecha seleccionada eso es todo ! Gracias como siempre desde ahora por toda la ayuda que me des al respecto. Un saludo desde Maurizio ################################ Hi everyone, my name is Maurizio And even if I understand that for many of you this request o…

Buenos dias estimados compañeros. Estoy necesitando ayuda para poder hacer una hoja excel en donde el objetivo de esta hoja sea que pueda medir la distancia entre códigos postales... No soy conocedor hasta ese nivel de como hacerlo, pero se que se puede usar una api de google y realizar consultas. La idea es por ejemplo A1= 28001 A2= 45001 A3= 89,7 Km Por ejemplo esto seria lo que necesito. Espero que si alguien ya se encontró con esta necesidad si me puede echar una mano estaría muy agradecido. Gracias.

Buenos días, Les comento que hace unos meses un usuario me realizo una macro, la cual hasta ahora me ha funcionado de maravilla. El problema que presento ahora es el siguiente, descubrí que si no hay datos en la Columna M la macro no realiza el proceso. Hoy utilizare esta misma planilla, pero en la columna M no existirán datos. Alguien puede revisar la formula y ver la forma de modificar eso, las otras columnas seguirán intactas, solo la M es la que ya no tendrá datos. Concatenar valores Vba_GP.xlsm

Buenas Noches Esta macro me da error cuando la ejecuto por segunda vez en Range("A" & ultFila).PasteSpecial xlPasteAll Private Sub copiarceldas3_Click() Dim ultFila As Long, _ wbOrigen As Workbook 'Indicar el libro de Excel destino es la única variable que necesitas Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "\Factura2.xlsm") 'Se saca la celda donde está la última fila que agregaste ultFila = Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row 'Activamos el libro origen para copiar los datos, a partir del último que copiaste en la otra hoja ThisWorkbook.Activate …

Hola de nuevo pidiendo un poco mas de ayuda Quiero copiar los datos que tengo en la hoja clientes a otro libro que tiene también una hoja con el mismo nombre sin que se dupliquen los datos, que si tiene un dato nuevo se pueda copiar sin repetir todo Tengo una macro la cual me copia todo repitiendo los datos y el encabezado haber si alguien me puede echar un cable Solo puedo subir un archivo, pero los son iguales Gracias Factura1.xlsm

Como puedo hacer para que esta macro la pueda utilizar en un rango determinado no solo el la fila A1 y B2 si no en varias Filas Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("A2") Then Range("B2").Value = "" End If End Sub listas desplegables (dependientes).xlsm

buenas noches como estan por favor nesecito su ayuda he estado buscando una macro para que me copie desde la primera hoja de excel al resto de las hojas que tenga el mismo archivo y en una celda especifica , pero no he encontrado nada que sea parecido en la web y en varios foro alguien me podria ayudar u orientar gracias por su ayuda Libro2.xlsm

Buen día. Estimados miembros del foro. Solicitando su ayuda para desbloquear el proyecto de VBA de una macro de excel de la cual no conozco el password. Conozco el password de los libros contenidos en ella pero al querer desplegar los libros ya que se encuentran ocultos desde VBA el password que tengo no funciona. El password de los libros es Fluids_Scorecard Trate de adjuntar el archivo pero no me lo permite por el tamaño. Mi correo es par_meno en live.com De antemano agradezco su apoyo.

Hola amigos Tengo este problema Tengo un rango que ordenar automáticamente. Pero no consigo que me ordene por los nombres. Me esta ordenando por la columna de las calificaciones. Estoy colocando Sort key1 pero ordena pero la columna 3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then With Range("A:C") .Sort key1:=.Cells(1, 3), Header:=xlYes End With End If End Sub Saludos Calificaciones.xlsm

Hola a todos, Por favor si alguien me puede ayudar con lo siguiente: Tengo una macro, la cual redondea los importes que están a partir de la fila 8 de la columna E,F,G, dichos importes deben redondearse siempre hasta la misma altura de datos del correlativo (columna B) actualmente la macro hace su trabajo, pero el problema es que cuando varia la cantidad de datos del correlativo tengo que estar manipulando la programación de la macro y me genera ceros debajo del rango que deseo redondear. Libro2.xlsm