Jump to content

Archived

This topic is now archived and is closed to further replies.

vecodis

Ordenar automaticamente al introducir datos

Recommended Posts

Prueba con la macro así:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 4 Then
With Range("A:C")
.Sort key1:=Columns(3), _
key1:=Columns(2), _
key1:=Columns(1), _
Header:=xlYes
End With
End If
End Sub
[/CODE]

Link to post
Share on other sites

Interpreto que requieres que la prioridad para ordenar la tenga la columna C, si es así ajustando el evento ligado a la Hoja1, como se indica a continuación te debería funcionar

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

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy