............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Ciclo en vba

Ver el tema anterior Ver el tema siguiente Ir abajo

Ciclo en vba

Mensaje por miss_edith el Miér Ago 14, 2013 11:37 am

Buenos dias:

Mando este mensaje por que necesito su ayuda para ver si se puede reducir un codigo en menos lineas, es que en el actual archivo estoy realizando  como 7 lineas por fila y son como 80 filas, por lo tanto es demasiado codigo, quiero saber si algun de ustedes tendra una forma de reducir este codigo por medio de un ciclo
Public Sub LLENADO()
Dim i, act, cob, act2, cob2 As Integer
For i = 7 To 57
Sheets("BITACORA").Select
If (Range("i" & i) = 15) Then
GoTo comp
End If
If ((Range("e" & i)) = 1 And (Range("i" & i)) < 16) Then
act = act + 1
cob = cob + (Range("l" & i) + Range("m" & i))
Sheets("2DA_OLA").Select
Range("c10") = act
Range("d10") = cob
End If
If ((Range("e" & i)) = 2 And (Range("i" & i)) < 16) Then
act2 = act2 + 1
cob2 = cob2 + (Range("l" & i) + Range("m" & i))
Sheets("2DA_OLA").Select
Range("c11") = act2
Range("d11") = cob2
End If
If ((Range("e" & i)) = 3 And (Range("i" & i)) < 16) Then
act3 = act3 + 1
cob3 = cob3 + (Range("l" & i) + Range("m" & i))
Sheets("2DA_OLA").Select
Range("c12") = act2
Range("d12") = cob2
End If
If ((Range("e" & i)) = 4 And (Range("i" & i)) < 16) Then
act4 = act4 + 1
cob4 = cob4 + (Range("l" & i) + Range("m" & i))
Sheets("2DA_OLA").Select
Range("c13") = act2
Range("d13") = cob2
End If
comp:

Next i

End Sub
adjunto el archivo para que pueda ser mas facil su comprensión. Gracias
Archivos
FORMATO SEGUNDA OLA 2.xlsm No tienes los permisos para descargar los archivos.(57 KB) Descargado 5 veces

miss_edith

Femenino Cantidad de envíos : 1
Edad : 36
Ciudad - Pais : mexico
Version de Excel : 2003-2007-2010
Fecha de inscripción : 11/06/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.