Tengo estas lineas que hacen parte de una macro
'xxxxxxxxxxx
Rem Ordena la columna NOMBRE (B) alfabeticamente (A a Z)
'X = Hoja4.Range("B" & Rows.Count).End(xlUp).Row
'Set myrange = Hoja4.Range("B2:H" & X) 'ordena hasta la columna J
'myrange.Sort Key1:=Hoja4.Range("B1")
'xxxxxxxxxxx
Esta ordena desde A o B segun coloques. En mi caso tengo
A --------------------------B------------------------C--------------------------D ect
Codigo----------------Nombre--------------Direccion---------------Telefono ect
Quiero ordenar por B (Nombre pero que arrastre el codigo y demas datos correspopndiente a ese nombre
Como esta ordena desde nombre(B) hasta H. H porque es donde terminan los datos
La columna A queda a la Izquierda, no a derecha.
¿Como se hace para que dicho codigo ordene todo, tomando en cuenta el dato de la izquierda?
Conviértelo en tabla.
Algo así como:
ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = "Tabla"
Range("Tabla[#All]").Select
ActiveSheet.ListObjects("Tabla").TableStyle = "TableStyleMedium2"
Hola cron, Gracias por tu respuesta la cual agradezco.
Estoy buscando algo mucho mas corto para no alargar el codigo.
Si aparece bien, si no pues pomdre la tuya en pratica.
Gracias una vez mas