Evitar duplicado de datos VBA excel y borre (ClearContents) todo el contenido copiado en la fila.

Buenos días.

Solicito su Colaboración para una macro que Evitar duplicado de datos con VBA excel y borre (ClearContents) todo el contenido copiado en la fila seleccionada. Me explico: Copio la Información a un Libro2, al copiar en la columna 3 del Libro2, si aparece un dato duplicado este lo borra, pero los datos copiados en la Columna 1,2, 4, 5... Etc del libro2 no se borran, solo los de la columna 3.

Gracias por al Ayuda.

1 respuesta

Respuesta
1

Esta consulta es vieja y seguramente la tenés resuelta. Solo para comentarte que en casos como este la expresión:

ActiveCell.EntireRow 'considera toda la fila de la celda seleccionada

Range("A" & ActiveCell.Row & ":F" & ActiveCell. Row) 'considera el rango A:F de la celda seleccionada.

Encontrarás más ejemplos de instrucciones VBA en la sección Macros de mi sitio.

Sdos.

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que borre datos de una celda

Tengo 4 columnas A B C D en las celdas de las cuatro columnas se ingresan datos, lo que necesito es una macro que haga lo siguiente, suponiendo que estoy posicionado en la celda B3 cuyo dato es el numero 100 que me borre dicho importe siempre y...
1 respuesta

Pegar información de filtro de macro en celdas especificas de otro libro

Hace días me apoyaron con esta pregunta: Hola, tengo una base de datos de rutinas de mtto, en "A" tengo los códigos de clasificación de tareas, en las columnas B, C, D, E, F, tengo los detalles de las tareas, ahora que al seleccionar cualquier código...
1 respuesta

Necesito macro para copiar y transponer celdas

Necesito una macro que haga lo siguiente; necesito copiar una cantidad de filas con celdas variables a partir de la columna B y trasponerlos enla columna A a partir de la celda A1, tengo la siguiente macro pero el problema es que me transpone una...
1 respuesta

Ingresar nuevo dato en una hoja de excel

Tengo un archivo de excel en el que tengo 2 hojas, una se llama "Lista" y la Otra "Registro". En "Registro" tengo un espacio en el que pido 2 datos: Número Descripción Además tengo un botón, que al presionarlo, me toma los datos de Número y...
1 respuesta

Cortar y pegar sin perder el formato del celda de origen

Tengo una pregunta muy sencilla a la que no soy capaz de encontrar respuesta ¿Quizás no sea tan sencilla? :) Resulta que no soy capaz de mantener el formato de celda (bordes y formato de letra) en las celdas que corto y pego en otro lugar de la hoja....
1 respuesta

Macro listar valores únicos por tipologías

Me gustaría saber como se podría hacer una macro en la que se listen de todo un conjunto de ID's tanto duplicadas como no duplicadas por tipología (celda de TEXTO) ¿Cuál creen que sería el mejor sistema sino? Los resultados son un ejemplo Gracias
1 respuesta

Borrar contenido de varias hojas y diferentes celdas en cada una, utilizando vba

De nuevo con una pregunta, me es necesario colocar un botón el cual ya lo tengo realizado con el siguiente código, sin embargo necesito que en lugar de que solo pueda eliminar un rango de una hoja, se puedan borrar de varias hojas y diferentes y...
1 respuesta

Macro para copiar el contenido de una celda en varias celdas

Dada la siguiente situación: tengo una columna "A" donde registro las cantidades de un producto solicitado, digamos que hay 10 celdas con datos; y una columna "B" con los precios para esos 10 productos y una celda "D1", donde tengo una fecha....
1 respuesta

¿Como reorganizar datos en excel?

Tengo una serie de datos del tipo f1 a- 2- 3; f2 b-1-4;f3 a-5-7 y necesitaria que pasase a ser f1 a-2-3-5-7; f2 b-5-7 y a poder ser sin pisar los datos de partida; basicamente que me agrupe los datos de las columas 2 y 3 en funcion de los caracteres...
1 respuesta

Insertar filas mediante macro en Excel 2010

Tengo una macro para insertar una fila con los datos de la fila anterior: Sub Insertar() Dim fila As Integer fila = ActiveCell.Row Rows(fila).Insert Shift:=xlDown If fila = 4 Then Rows(fila + 1).Copy Else Rows(fila + 1).Copy Rows(fila).PasteSpecial...
1 respuesta