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.
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.xlsFetching info...