Macro para ordenar alfabeticamente no respeta encabezado
publicado
Hola amigos tengo el siguiente detalle, la siguiente macro.
Sub Ordenando()
'ordena la hoja por la col B en forma ascendente teniendo la primera fila como encabezado
Worksheets("Hoja7").Select
Range("A1").Select
Selection.Sort key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
debe ordenar alfabéticamente todos los datos de la hoja7 tomando como referencia la columna B desde la fila 2 hasta la ultima con datos, ya que la fila 1 es para los encabezados, son 13 columnas. el detalle es que al correrlo en un libro nuevo funciona al cien pero ya dentro de un proyecto que tengo funciona a medias es decir no respeta el encabezado ya que también lo ordena, alguien podrá decirme que sucede. Desde ya gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola amigos tengo el siguiente detalle, la siguiente macro.
Sub Ordenando() 'ordena la hoja por la col B en forma ascendente teniendo la primera fila como encabezado Worksheets("Hoja7").Select Range("A1").Select Selection.Sort key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub
debe ordenar alfabéticamente todos los datos de la hoja7 tomando como referencia la columna B desde la fila 2 hasta la ultima con datos, ya que la fila 1 es para los encabezados, son 13 columnas. el detalle es que al correrlo en un libro nuevo funciona al cien pero ya dentro de un proyecto que tengo funciona a medias es decir no respeta el encabezado ya que también lo ordena, alguien podrá decirme que sucede. Desde ya gracias