RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	68002 - DUDA CON (FOR EACH CELL IN SELECTION)
Autor:	luis cervantes garnica
Buenas tardes, estoy empezando con visual basic, y tengo una duda con este codigo, solo revisa el resultado de a1, pero no sigue con las demas celdas hasta llegar a a10. no se que me faltara hacer. gracias y saludos. Sub cierre() ActiveWorkbook.Sheets("mov").Range("a1:a10").Select For Each cell In Selection If ActiveCell.Value = 1 Then ActiveCell.Offset(0, -5).Select ActiveCell.Copy ActiveWorkbook.Sheets("Diario").Activate Range("g6").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Else If ActiveCell.Value = 2 Then ActiveCell.Offset(0, -5).Select ActiveCell.Copy ActiveWorkbook.Sheets("Diario").Activate Range("i6").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues End If End If Next End Sub