Foros del Web » Soporte técnico » Ofimática »

problemas al recorrer una lista

Estas en el tema de problemas al recorrer una lista en el foro de Ofimática en Foros del Web. Hola foreros, tengo un problema con una macro y un bucle que recorre un rango. Os adjunto el codigo: @import url("http://static.forosdelweb.com/clientscript/vbulletin_css/geshi.css"); Código vb: Ver original ...
  #1 (permalink)  
Antiguo 31/03/2019, 13:49
 
Fecha de Ingreso: diciembre-2007
Mensajes: 297
Antigüedad: 11 años, 4 meses
Puntos: 2
Pregunta problemas al recorrer una lista

Hola foreros,
tengo un problema con una macro y un bucle que recorre un rango. Os adjunto el codigo:

Código vb:
Ver original
  1. Option Explicit
  2.  
  3. Sub y7()
  4. Dim i As Integer
  5. Dim empleado As Range
  6.  
  7. i = 2   'fila de escritura en hoja "H2"
  8. For Each empleado In Sheets("H1").Range("A2:A112")
  9.      MsgBox empleado.Address        ' *** A3 ???
  10.        Sheets("H1").Rows(empleado.Row).Cut Sheets("H2").Rows(i)
  11.         i = i + 1
  12. Next empleado
  13.  
  14. End Sub

Como veis el codigo es bastante simple, mover unos empleados(la lista esta en A2 a A112) de una hoja a otra. El problema que observo al ejecutarlo es que el bucle me salta la celda A3, todas las demas las recorre perfectamente A2,A4,A5,A6,A7,...
He revisado y ejecutado el codigo varias veces con el mismo resultado que no encuentro explicacion ¿Alguien tiene idea de cual puede ser el "error"?

Gracias foreros, saludos:D
__________________
1os pasaos con xAMP en Windows
programando en PERL



La zona horaria es GMT -6. Ahora son las 10:29.