Copiar

[sebarg15]

Amigos, necesito su ayuda:

Soy nuevo en el foro, y mi experiencia con macros es reciente, así que no tengo un claro dominio. Quiero copiar estas partidas presupuestarias de la columna "A" de la "hoja1" a la "hoja2", pero no quiero que se copien aquellas partidas que tengan la letra "E" en la columna "U" de la "hoja1".

Actualmente se copian las partidas pero no me obedece la condición "If" que le puse.

Sub Parte6a()

Worksheets("hoja1").Activate

For Z = 17 To 46

Next Z

Range("A17:A46").Select

Selection.SpecialCells(xlCellTypeConstants, 23).Select

Selection.Copy

If Cells(Z, 21) <> "E" Then

Sheets("hoja2").Activate

Range("A16").PasteSpecial xlPasteValues

End If

MsgBox "Datos introducidos correctamente"

End Sub

Les dejo el archivo adjunto para que se entienda mejor

Espero puedan ayudarme, de antemano muchas gracias!

Saludos

Partidas macros.xls

[sebarg15]

Lo siento, se me borró el título del post sin querer, es este: Copiar Columnas según condición de otra columna

[cucoland]

Esto te va a valer

Sub Copiarfilascondicional()

Dim celda As Range

Dim fila As Integer

fila = 16        'esta sera la fila en la que empecemos a pegar

Range("U17:U46").Select    'Rango que evaluaremos en la columna U

For Each celda In Selection

    If celda <> "E" Then    'si es distinto de E

    'copiamos la columna y la pegamos en la linea definida por la variable fila

        celda.EntireRow.Copy Destination:=Worksheets("hoja2").Cells(fila, 1)

        fila = fila + 1    'avanzamos 1+ en cada fila

    End If

Next celda

End Sub[/CODE]

[John Jairo V]

Hola @[uSER=174286]sebarg15[/uSER]!

Puedes usar este código (el cual no tiene loops) en un módulo:

Sub CopiaNoE()

    Dim uf&

    Application.ScreenUpdating = False

    With Sheets("hoja1")

        uf = .Range("A" & Rows.Count).End(xlUp).Row

        .Range("A15:U" & uf).AutoFilter Field:=21, Criteria1:="="

        .Range("A14:U" & uf).SpecialCells(12).Copy Hoja70.Range("A17")

        .Range("A15:U" & uf).AutoFilter

        Sheets("hoja2").Range("A17").CurrentRegion.RowHeight = "26"

    End With

    Application.ScreenUpdating = True

End Sub[/CODE]

Comentas!

Espero haberte ayudado, Dios te bendiga!

[Armando Montes]

Hola, una opcion:

Sub Macro1()

    Hoja61.[A14].CurrentRegion.Copy Hoja70.[A16]

    Hoja70.[A14].CurrentRegion.Columns(21).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

End Sub[/CODE]

[John Jairo V]

Muy buena @[uSER=136970]Armando Montes[/uSER]. Siempre hay mejores maneras de interpretar un mismo problema. Bendiciones!