HOLAAA HECTOR!!

23/09/2004 - 05:14 por Yo de nuevo | Informe spam
Me lo podrias explicar con manzanas?
No soy muy buena para eso de la programacion
Mil gracias


hola, meilis !


... sortear datos automaticamente? [...]



usando los eventos en el modulo de codigo de 'la hoja'...
copia las siguientes lineas:
[click-derecho sobre la pestaña del nombre -> ver
codigo...]

-> suponiendo que los numeros los ingresas en la
columna 'A' ->SIN 'titulos' en la fila 1<-
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Columns("a").Sort [a1], xlAscending
End Sub

-> suponiendo que los numeros los ingresas en la
columna 'A' ->CON 'titulos' en la fila 1<-
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Range([a2], [a65536].End(xlUp)).Sort [a2], xlAscending
End Sub

saludos,
hector.

.
 

Leer las respuestas

#1 Héctor Miguel
23/09/2004 - 07:03 | Informe spam
hola, meilis !

... lo podrias explicar con manzanas? [...]



-> el paso 1 seria abrir el editor de vb y localizar el modulo de codigo de 'la hoja'
'forma abreviada':
-> hacer click-derecho sobre la pestaña [con el nombre] de 'la hoja' y...
-> seleccionar la opcion de 'ver codigo'
-> el paso 2 seria copiar las lineas de codigo en la ventana que te mostrara el paso anterior:
-> la 'forma 1' [si la columna de datos a 'auto-ordenar' es la columna 'a' SIN titulos en la fila 1]
-> la 'forma 2' [si la columna de datos a 'auto-ordenar' es la columna 'a' CON titulos en la fila 1]
-> si la columna 'afectada' NO es la columna 'a' [#1] ->sustituye<- en el codigo a la columna [#] 'real'
___ forma 1 ____
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Columns("a").Sort [a1], xlAscending
End Sub
___ forma 2 ____
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Range([a2], [a65536].End(xlUp)).Sort [a2], xlAscending
End Sub

si cualquier duda... ¿comentas?
saludos,
hector.

Preguntas similares