Buen Día, Alguien me puede ayudar a simplificar la siguiente macro por favor. Sub QuitarDuplicados() ' ' QuitarDuplicados Macro ' ' Acceso directo: Ctrl+Mayús+D ' Range("$A$4:$AL$8004").RemoveDuplicates Columns:=4, Header:= _ xlYes Range("U5:U8004").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Datos!$A$11:$A$49" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("V5:V8004").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Datos!$A$4:$A$7" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("Y5:Y8004").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=Datos!$A$4:$A$7" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Range("E5:E8004").Select With Selection .HorizontalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("F5:F8004").Select With Selection .HorizontalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("L5:Q8004").Select With Selection .HorizontalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("G5:G8004").Select With Selection.Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$W5<>""PAGADA""" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "@El_Rul0" .ErrorTitle = "@El_Rul0" .InputMessage = _ " >>" .ErrorMessage = " >>" .ShowInput = True .ShowError = True End With Range("L5:P8004").Select Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" Range("D5").Select Selection.End(xlDown).Select Range("W5").Select ActiveCell.FormulaR1C1 = _ "=IF(RC33="""","""",IF(RC33<>"""",""PAGADA"",""PENDIENTE""))" Range("W5").Select Selection.Copy Range("W5:W8004").Select ActiveSheet.Paste Range("W5").Select Application.CutCopyMode = False Range("K5").Select Selection.End(xlDown).Select End Sub Muchas Gracias!!!

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

SIMPLIFICAR MACRO

Autor del tema velr2
Fecha de inicio 12 Abr 2016

velr2

New member

12 Abr 2016

Buen Día,

Alguien me puede ayudar a simplificar la siguiente macro por favor.

Sub QuitarDuplicados()
'
' QuitarDuplicados Macro
'
' Acceso directo: Ctrl+Mayús+D
'...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Simplificar trabajo

Respuestas: 3

9 May 2012

eltete

Pregunta

Simplificar el trabajo registrando por columnas o por filas?

Respuestas: 0

17 Oct 2011

David Adolfo

Pregunta

cuadro pintado manualmente parecido al de la tabla sin macro ni tabla

Respuestas: 4

13 May 2025

juan tr

Pregunta

Macro

Respuestas: 1

20 Feb 2025

Dante Amor M

Resuelto

¿Macro, Power Query o realizar este proceso a mano?

Respuestas: 5

14 Feb 2025

Goldfinger

Pregunta

Macro Corrector de Ortografía en Formulario de Word

Respuestas: 5

18 Sep 2024

Alecing

Pregunta

Proteger hoja que deje trabajar a la macro

Respuestas: 2

27 Jun 2024

Deleted member 10123

Resuelto

Macro para escribir símbolos matemáticos en formula

Respuestas: 8

1 May 2024

carcecpv

Resuelto

Macro qr

Respuestas: 9

13 Ene 2024

Sabrina Olvera

Pregunta

Ayuda con Macro pegar de portapapeles en Word, sin perder el formato

Respuestas: 1

19 Dic 2023

Abraham.Valencia

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba