Visual Basic para Aplicaciones - Macro Excel

Life is soft - evento anual de software empresarial
 
Vista:

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..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder