Jump to content
MAURO_1512

ANSWERED ubicar en columnas segun criterio

Recommended Posts

Hola,

Con Macros:

Sub Distribuir_1_LBV()
Dim Celda As Range, n&
    Application.ScreenUpdating = False
    For Each Celda In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        For n = 4 To 34
            If Cells(1, n) = Celda Then Cells(Celda.Row, n) = Cells(Celda.Row, "C") Else Cells(Celda.Row, n) = ""
        Next n
    Next Celda
    Application.ScreenUpdating = True
    MsgBox "Listo...!!!"
End Sub

 

Saludos

 

Share this post


Link to post
Share on other sites
Hace 35 minutos , MAURO_1512 dijo:

compañero muchas gracias solo falta cuadrar que no queden espacios y si quiero que lo copie en otra hoja como hago

gracias de antemano

No veo como quieres el resultado? una muestra de como quieres el resultado por favor.

Saludos.

Share this post


Link to post
Share on other sites
Hace 4 horas, MAURO_1512 dijo:

coloco ejemplo 

Pues no encuentro la lógica de lo que quieres...? Recuerda que debe de haber reglas para ese ordenamiento y no las veo, Todas las columnas están revueltas, ni una esta ordenada. O cuales son los criterios para que salga así?

Hace 7 minutos , MAURO_1512 dijo:

amigo ingrese los datos mas de 10000 filas y se bloquea el archivo

Tan poquitas..???

 

Pues con los datos que subiste en 1 segundos lo hace y no se bloquea... debes de subir toda la data para hacer pruebas...

 

Saludos.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png