Ayuda con activeworkbook

Mira hice lo que me dijiste para obtener el nombre, pero cuando intento que ordene el archivo, me sale subíndice fuera del intervalo.  (Como que se borra el nombre del archivo)
nombre_del_fichero = ActiveWorkbook.Name
Cells.Select
ActiveWorkbook.Worksheets("nombre_del_fichero").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("nombre_del_fichero").Sort.SortFields.Add Key:= _
Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("nombre_del_fichero").Sort
.SetRange Range("A1:L816")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Agradecería me ayudaras nuevamente.

1 Respuesta

Respuesta
1
El 2 problemas
1) Es que le estas pasando un nombre de HOJA que no existe
ActiveWorkbook.Worksheets("nombre_del_fichero")  
le estas diciendo que la hoja del libro actual se llama nombre_del_fichero,
2) para asignar la variable nombre_del_fichero es así:
ActiveWorkbook.Worksheets(nombre_del_fichero)
Sin las comillas dobles, ya que a asignárselas le dices que es un texto y no una variable
Ahora me toma el nombre, pero me sigue arrojando el mismo error en la primera línea
ActiveWorkbook.Worksheets(nombre_del_fichero).Sort.SortFields.Clear
me sigue diciendo subíndice fuera del intervalo.
Ojalá me puedas ayudar,
gracias.
Puede ser porque el archivo que abro es un txt, entonces toma el nombre archivo.txt, y no como excel, sabes como se puede hacer para que tome el nombre del archivo en excel.
Aunque el archivo se abre con excel se sigue llamando archivo.txt, entonces no debería ser ese el problema, el asunto es que se me cae en la línea que te indiqué más arriba.
Lo que pasa es que a realizar
nombre_del_fichero = ActiveWorkbook.Name
toma la extensión .txt del libro
Por tanto deberías obtener el nombre de la hoja del libro y eso seria así:
nombre_del_fichero = ActiveSheet.Name

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Fijar una celda para ejecutar una macro

Tengo la siguiente macro al seleccionar una celda especifica en la cual ordeno un rango denominado (M_ENVASE) en la hoja MES ACTUAL, pero al eliminar celdas no me funciona ya que la celda a seleccionar no coinciden con la de la instrucción. Agradezco...
1 respuesta

Ordenar por dos criterios

Necesito que me ayuden a construir una macro que dependa de dos criterios, Ordena primero de n.v,,,, luego de la A a la Z,,, sube o baja la información de toda la fila. Yo lo elabore con la grabadora pero a veces no me funciona. Les dejo el código:...
1 respuesta

Enviar datos a otra columna sin duplicados,

Resulta que en una columna tengo estos datos así (solo pondré 10 datos pero en realidad son 300) 1 2 4 6 1 7 8 9 4 1 Ahora quiero enviar estos datos a otra columna pero no en la misma pestaña de excel, si no que en otra pestaña, pero sin que se...
2 respuestas

Ordenar alfabéticamente sin mover formato

Ordenar alfabéticamente sin mover formato Hola. Tengo una planilla con muchos datos y para que sea más fácil la visualización, las filas de un rango de una hoja tienen un color alternado con blanco: la primera fila es blanca, la segunda azul, la...
1 respuesta

Listbox con datos no repetidos

Tengo un listbox que me trae los números de las facturas pendientes de pago los cuales se encuentran en una hoja llamada "SALDO PENDIENTE", por ello en el Listfillrange tiene la siguiente instuccion: 'CONFIG. PAGOS'!$K$2:$k$1000 Los números de las...
1 respuesta

Ordenar tabla con macro

Necesito una macro para ordenar una tabla. Buscando he encontrado una macro que hace lo que necesito pero cuando intento adaptarla a mi hoja no me funciona. Lo que pretendo es ordenar una tabla. Cada columna es un campo diferente. En una celda de...
1 respuesta