Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- EQUIPO SIGUIENTE
- ATT004012 F0002
- ATT004012 T0006
- ATT004012 R0001
- R0001 F0004
- R0001 T0001
- R0001 T0002
- F0004 F0005
- F0004 F0006
- T0001 T0007
- T0001 F0003
- T0001 F0001
- T0002 F0007
- T0002 F0008
- T0002 T0003
- T0003 F0009
- T0003 F0010
- T0003 F0011
- T0003 F0012
- T0003 T0004
- T0004 F0013
- T0004 F0014
- T0004 R0002
- F0014 F0015
- F0014 F0016
- R0002 F0017
- R0002 F0018
- R0002 F0019
- R0002 F0020
- R0002 F0021
- R0002 F0022
- R0002 F0023
- F0023 T0005
- T0005 F0025
- –
- Public Function factorialEprosec(x)
- Set resultado = Range(“DEPENDENCIAS”).Find(x, LookIn:=xlValues, LookAt:=xlWhole)
- If ActiveCell.Value = “-” Then
- factorialb = ActiveCell.Value
- GoTo 10
- Else
- ActiveCell = Worksheets(“DEPENDENCIAS”).resultado.Address
- Range(resultado.Address).Select
- Do Until ActiveCell.Value x
- factorialb = x.Value & “,” & factorialEprosec(resultado.Offset(0, 1).Value)
- Loop
- ActiveCell.Offset(1, 0).Select
- End If
- 10:
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement