UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

A partir del 25 de Enero del 2019 para entrar al foro será con la URL: excel.foroactivo.com Ya se notificó vía e-mail a todos los miembros. Administración UniversoExcelForo. 20-Ene-2019.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Copiar valores a columnas filtradas el 10/12/18, 01:43 pm

Alex2000


Hola:

Deseo copiar valores de la columna A a las columnas de provincias de la derecha (C en adelante) filtrando por los valores de la columna B.
He puesto este codigo pero tarda mucho.

Sub Copiar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim col, fil As Integer
col = 3
For col = 3 To 105
    For fil = 2 To 1000
        If ActiveSheet.Cells(fil, 1).EntireRow.RowHeight > 0 Then
           ActiveSheet.Cells(fil, 1).Copy
           ActiveSheet.Cells(fil, col).PasteSpecial
        End If
    Next
col = col + 1
Next col
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Igtelo

Igtelo
Alex:

Por favor lee el anuncio en rojo...

Ignacio Téllez

Alex2000


Disculpa. Este es el enlace para Drive:

https://drive.google.com/file/d/1M2ryBekFERPYk508y4ux_bwgNFPD8D1m/view?usp=sharing

Un saludo

jhon1904

jhon1904
Hola
Alex 2000

Te doy una opción con el mismo código que ya tienes, lo único que hice fue cambiar los For To de ubicación espero te sirva.

Código:
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim col, fil As Integer


For fil = 2 To 1000
    If ActiveSheet.Cells(fil, 1).EntireRow.RowHeight > 0 Then
    For col = 3 To 105
        ActiveSheet.Cells(fil, 1).Copy
        ActiveSheet.Cells(fil, col).PasteSpecial
        col = col + 1
    Next col
    End If
Next fil


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Alex2000


Muchas gracias Jhon. Va más rápido, pero sigue tardando bastante.

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.