ORDENAR UNA BASE DE DATOS

[manolomarquez1]

Compañeros,

Buenas tardes,


Tengo un problema y no se como resolverlo ruego a ustedes su valiosa colaboracion ya que tengo una hoja con diversos datos en distintas filas y columnas y deseo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, en el adjunto, selecciona el rango A1:J26, luego clic en la figura azul.

 

[manolomarquez1]

Adrian,

Muchisimas gracias,

El archivo me ayudo muchisimo solo que la extension del archivo se extiende hasta la columna AT y va hasta la fila 200, parametros que se extienden al archivo que me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, la macro es para que selecciones el rango, modifica el código de la siguiente manera:

Sub Ordenar()
Dim Celda As Range, i As Integer
Range("AU:AU").ClearContents
i = 1
For Each Celda In...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Sub Ordenar()
Dim Celda As Range, i As Integer
Range("AU:AU").ClearContents
i = 1
For Each Celda In Selection 'previamente seleccionaste el rango o coloca Range("A1:AT200")
If Celda.Value <> ""...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[manolomarquez1]

Gracias,

Excelente resultado, me fue de gran ayuda

Abrazos y Exitos