Mil Gracias !!

24/09/2004 - 04:43 por Yo | Informe spam
mil gracias el dia de hoy lo puse en practica en mi
oficina y al parecer si pude si no es mucha molestia como
se le hace para hacerlo por columnas en diferentes hojas!!
ejemplo:
manzanas peras naranjas
25 12 14
24 10 13
21 11 12
23 20 10
en hoja uno sortear manzanas en la dos peras y en la tres
naranjas!

Saludos!
P.d tienes un email para escribirte directo?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
24/09/2004 - 09:40 | Informe spam
hola, meilis !

... ... para hacerlo por columnas en diferentes hojas!! ejemplo:
manzanas peras naranjas
25 12 14
24 10 13
21 11 12
23 20 10
en hoja uno sortear manzanas en la dos peras y en la tres naranjas!



suponiendo que los titulos estan en la fila 1 ... copia las siguientes lineas
sustituyendo el numero de la columna correspondiente -> 'A' [col # 1], 'B' [col # 2] y 'C' [col # 3]
y la celda del 'primer dato' -> a2, b2 y c2
en el modulo de codigo ->de la hoja 1<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [a2], xlAscending, , , , , , xlYes
End Sub

en el modulo de codigo ->de la hoja 2<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [b2], xlAscending, , , , , , xlYes
End Sub

en el modulo de codigo ->de la hoja 3<- ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row > Me.UsedRange.Rows.Count Then Exit Sub
Me.UsedRange.Sort [c2], xlAscending, , , , , , xlYes
End Sub

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida