Anónimo
Requiero de un macro que este constantemente ordenando
Hola, Requiero de un macro que este constantemente ordenando alfabéticamente 2 columnas.Una es tipo texto y la otra es de números cada celda de texto tiene relación con la celda numero contigua y los datos que se introducen a estas celdas están siendo importados de un documentos.txt. Se inserta primero el texto seguido del numero luego baja un renglón y pone el siguiente texto en la columna 1, el numero en la col. 2, etc. Requiero que cada vez que se termine de introducir el numero se orden alfabéticamente y así para todos los registros que introduzca ( 20 máximo). Gracias por su atención
ej: col g col h col g col h
1 DP2n 4 1 DA1N 1
2 RP3g 8 = 2 DP2N 4
3 DA1N 1 3 RP3g 8
...
ej: col g col h col g col h
1 DP2n 4 1 DA1N 1
2 RP3g 8 = 2 DP2N 4
3 DA1N 1 3 RP3g 8
...
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
El problema es que voy estar ejecutando un formulario y para el tratamiento de datos, requiero de esa macro que se active automáticamente y de manera constante. Ya que las celdas donde se realizara el ordenamiento estarán vinculadas con otras tablas en otras hojas del mismo documento. He usado la siguiente macro:
Private Sub Worksheet_Change(ByVal Target As Range)
Range("g3:h100").Sort Key1:=Range("g3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Pero solo me acomoda una columna, y quiero que me ordene ambas columnas en base a la primera manteniendo el orden de los registros
Private Sub Worksheet_Change(ByVal Target As Range)
Range("g3:h100").Sort Key1:=Range("g3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Pero solo me acomoda una columna, y quiero que me ordene ambas columnas en base a la primera manteniendo el orden de los registros
Prueba con esto:
Range("G3:H100").Sort Key1:=Range("H3"), Order1:=xlAscending, Key2:=Range( _
"G3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("G3:H100").Sort Key1:=Range("H3"), Order1:=xlAscending, Key2:=Range( _
"G3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Gracias, esa es el código que necesitaba. Solo un detalle cambie el orden de las celdas: sort key1:=("G3") y key2:=range("h3") para que se ordenara en base a las claves tipo texto y no a los números como me hacia, en el orden inverso.
Bueno sin más por el momento, te agradezco nuevamente por tu atención y excelentes respuestas
Bueno sin más por el momento, te agradezco nuevamente por tu atención y excelentes respuestas