Macro Excel
Publicado por Carlos (1 intervención) el 06/10/2010 15:49:44
filadet = 2
fila = 2
Do While Worksheets("Desarrollos").Cells(filadet, 1) <> ""
fila = 2
salida = 0
Do While Worksheets("Etapas").Cells(fila, 1) <> "" And salida = 0
If Worksheets("Etapas").Cells(fila, 3) = "SI" Then
If Worksheets("Desarrollos").Cells(filadet, 10) = " " And Worksheets("Etapas").Cells(fila, 2) = Worksheets("Desarrollos").Cells(filadet, 7) Then
Worksheets("Desarrollos").Cells(filadet, 3).Value = "X"
salida = 1
End If
If Worksheets("Desarrollos").Cells(filadet, 10) <> " " And Worksheets("Etapas").Cells(fila, 2) = Worksheets("Desarrollos").Cells(filadet, 7) Then
Worksheets("Desarrollos").Cells(filadet, 3).Value = "-"
salida = 1
End If
Else
Worksheets("Desarrollos").Cells(filadet, 3).Value = "-"
End If
fila = fila + 1
Loop
filadet = filadet + 1
If filadet = 5 Then
agg = 2
End If
Loop
MsgBox "Fin"
--------------------------------------------------------
Estimados necesito de su ayuda, estoy recien aprendiendo a programar y necesito realizar lo siguiente.
En la hoja desarrollos colocar en la columna C fila 2.
Error: Cuando el Estado no exista en las Etapas
X: Cuando el Estado esté dentro de las Etapas de Desarrollo y No tenga Fecha de Inicio Real.
-: Cuando el Estado esté dentro de las Etapas de Desarrollo y tenga Fecha de Inicio Real.
-: Cuando el Estado no esté dentro de las Etapas de Desarrollo
Necesito realizar estas condiciones. Me falta la condicion del error, que cuando en la hoja de desarrollos hay un registro en la columna de estado que no existe en los estados de la hoja de Etapas.
Hoja etapas
Nro Estado Desarrollo
1.00 Pendiente Priorización No
2.00 En Estimación No
3.00 En aprobación Estimación No
4.00 En Planificación No
5.00 Planificado No
6.00 En Diseño Técnico SI
7.00 En Construcción SI
8.00 En Prueba Integral SI
9.00 En Testing SI
10.00 En Prueba de Usuario SI
11.00 En Pase a Producción SI
12.00 En Administracion de Cambio SI
13.00 Pendiente primera ejecución SI
14.00 Finalizado SI
20.00 En Gestoría No
20.00 En gestoría de otra aplicación No
20.00 En MAU No
20.00 En revisión con el banco No
20.00 En Usuario No
20.00 Rechazado No
20.00 Suspendida No
Hoja desarrollos
Columna C / columna G / columna J
(En desarrollos sin Fecha real de inicio) (Estado) (Fecha real de inicio)
Gracias..
fila = 2
Do While Worksheets("Desarrollos").Cells(filadet, 1) <> ""
fila = 2
salida = 0
Do While Worksheets("Etapas").Cells(fila, 1) <> "" And salida = 0
If Worksheets("Etapas").Cells(fila, 3) = "SI" Then
If Worksheets("Desarrollos").Cells(filadet, 10) = " " And Worksheets("Etapas").Cells(fila, 2) = Worksheets("Desarrollos").Cells(filadet, 7) Then
Worksheets("Desarrollos").Cells(filadet, 3).Value = "X"
salida = 1
End If
If Worksheets("Desarrollos").Cells(filadet, 10) <> " " And Worksheets("Etapas").Cells(fila, 2) = Worksheets("Desarrollos").Cells(filadet, 7) Then
Worksheets("Desarrollos").Cells(filadet, 3).Value = "-"
salida = 1
End If
Else
Worksheets("Desarrollos").Cells(filadet, 3).Value = "-"
End If
fila = fila + 1
Loop
filadet = filadet + 1
If filadet = 5 Then
agg = 2
End If
Loop
MsgBox "Fin"
--------------------------------------------------------
Estimados necesito de su ayuda, estoy recien aprendiendo a programar y necesito realizar lo siguiente.
En la hoja desarrollos colocar en la columna C fila 2.
Error: Cuando el Estado no exista en las Etapas
X: Cuando el Estado esté dentro de las Etapas de Desarrollo y No tenga Fecha de Inicio Real.
-: Cuando el Estado esté dentro de las Etapas de Desarrollo y tenga Fecha de Inicio Real.
-: Cuando el Estado no esté dentro de las Etapas de Desarrollo
Necesito realizar estas condiciones. Me falta la condicion del error, que cuando en la hoja de desarrollos hay un registro en la columna de estado que no existe en los estados de la hoja de Etapas.
Hoja etapas
Nro Estado Desarrollo
1.00 Pendiente Priorización No
2.00 En Estimación No
3.00 En aprobación Estimación No
4.00 En Planificación No
5.00 Planificado No
6.00 En Diseño Técnico SI
7.00 En Construcción SI
8.00 En Prueba Integral SI
9.00 En Testing SI
10.00 En Prueba de Usuario SI
11.00 En Pase a Producción SI
12.00 En Administracion de Cambio SI
13.00 Pendiente primera ejecución SI
14.00 Finalizado SI
20.00 En Gestoría No
20.00 En gestoría de otra aplicación No
20.00 En MAU No
20.00 En revisión con el banco No
20.00 En Usuario No
20.00 Rechazado No
20.00 Suspendida No
Hoja desarrollos
Columna C / columna G / columna J
(En desarrollos sin Fecha real de inicio) (Estado) (Fecha real de inicio)
Gracias..
Valora esta pregunta


0