Evento change

[gglenda122]

Saludos querimos amigos expertos en Excel, estoy haciendo una macro se ve sencilla pero tengo una duda.. estoy ordenando una lista este es el codigo en el modulo1:

Sub Ordenar()

Dim rangoDatos...

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í

 

[Dantte666]

No es necesario que establezcas varios eventos change (Además de que no es posible) para lograr lo que deseas, prueba con esto:

Private Sub Worksheet_Change(ByVal Target As Range)
If...

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í

 

[gglenda122]

Amigo eres un genio, soy una novata, dime como hago para darte una buen like o algo parecido es la primera vez que uso esta pagina...

 

[Dantte666]

Hay un error en ambas macros de Ordenado y es:

Set rangoDatos = Range("J6:M17" & Ultimafila)

Debiendo ser:

Set rangoDatos = Range("J6:M" & Ultimafila)

 

[Dantte666]

Las Datos a ordenar se componen de 4 columnas siempre?

 

[Dantte666]

Esto debe ser suficiente para lo que te propones:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tc As Long
If Target.Column = 5 Or Target.Column = 13 Then Call...

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í

 

[Dantte666]

Saludos.

 

[gglenda122]

Gracias Dantte me habia funcionado como me lo dijiste la primera vez, ERES EXCELENTE , COMO TE DOY la MEJOR ESTRELLA.


SALUDOS... :D