aludos a todos, espero me puedan ayudar en este simple loop q quiero hacer.
Les explico... en base a los datos plasmados en una tabla de excel debe de ocurrir un evento, que en mi caso es la apertura de un documento en una ruta y el copiado de sus datos al excel inicial.
La tabla es la siguiente:
Id Nombre Inicial Check Status Accion
1 KARLA HAVA KH FALSO En espera
2 CARMELO SCIARRA CS VERDADERO Respaldar
3 JOSE COLINA JC VERDADERO Respaldar
y este es el codigo del macro
Do While i <> 5 '<= cambiar este valor a 18! y la ruta debajo
i = i + 1
Select Case Range("H" & (i + 12)).Value <= le sumo 12 a i porquer el valor se encuentra en la celda H13-14-15 y asi sucesivamente
Case Is = "Respaldar"
'Crea nueva hoja
Sheets("Actual").Copy After:=Sheets(1)
Sheets("Actual (2)").Name = inicial(i)
Workbooks.Open Filename:="C:\Users\fjrodriguez\Documents\Control de Certificaciones EPSL\Certificaciones - " & inicial(i)
Mi problema con el codigo es que al encontrar la celda con "Respaldar" hace el copiado y termina el ciclo no continua con el resto de valores en la tabla, use el caso de "En espera" con el msgbox para ver su comportamiento y siempre que encuentra el case "Respaldar" parece que no continua haciendo la busqueda.
Podría alguien ayudarme a validar que hay de malo en mi codigo?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
aludos a todos, espero me puedan ayudar en este simple loop q quiero hacer.
Les explico... en base a los datos plasmados en una tabla de excel debe de ocurrir un evento, que en mi caso es la apertura de un documento en una ruta y el copiado de sus datos al excel inicial.
La tabla es la siguiente:
Id Nombre Inicial Check Status Accion
1 KARLA HAVA KH FALSO En espera
2 CARMELO SCIARRA CS VERDADERO Respaldar
3 JOSE COLINA JC VERDADERO Respaldar
y este es el codigo del macro
Do While i <> 5 '<= cambiar este valor a 18! y la ruta debajo
i = i + 1
Select Case Range("H" & (i + 12)).Value <= le sumo 12 a i porquer el valor se encuentra en la celda H13-14-15 y asi sucesivamente
Case Is = "Respaldar"
'Crea nueva hoja
Sheets("Actual").Copy After:=Sheets(1)
Sheets("Actual (2)").Name = inicial(i)
Workbooks.Open Filename:="C:\Users\fjrodriguez\Documents\Control de Certificaciones EPSL\Certificaciones - " & inicial(i)
Sheets("Control Diario").Visible = True
Sheets("Control Diario").Select
Range("B12:R12").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks("Certificaciones - " & inicial(i)).Close
Workbooks("Registro de Certificaciones").Activate
Sheets(inicial(i)).Activate
Range("B11").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Case Is = "En espera"
MsgBox "Saludos"
End Select
Loop
Mi problema con el codigo es que al encontrar la celda con "Respaldar" hace el copiado y termina el ciclo no continua con el resto de valores en la tabla, use el caso de "En espera" con el msgbox para ver su comportamiento y siempre que encuentra el case "Respaldar" parece que no continua haciendo la busqueda.
Podría alguien ayudarme a validar que hay de malo en mi codigo?