Buenas tardes a todos los buenos compañeros de este foro. Tengo un libro de
excel con varias hojas, a saber: Platino, Corriente, Transf, MovSICC,
MovContaPT y MovContaCC.
Ahora, este libro tiene una macro con el siguiente código VBA:
Dim DirCP As String
Dim DirCC As String
Dim Cont As Integer
Dim Existe As Boolean
Sub BuscarContrapartida()
Dim Fecha As Date
Dim Numero As Long
Dim Monto As Double
Sheets(1).Select
Range("IniPlat").Activate
DirCC = "A2"
Cont = 0
Do While ActiveCell.Value <> ""
Existe = False
DirCP = ActiveCell.Address
Fecha = ActiveCell.Value
Numero = ActiveCell.Offset(0, 1).Value
Monto = ActiveCell.Offset(0, 3).Value
Encuentra Fecha, Numero, Monto
If Existe Then ActiveCell.Offset(0, 4).Value = Cont
ActiveCell.Offset(1).Activate
Loop
End Sub
Sub Encuentra(F As Date, N As Long, M As Double)
Sheets(2).Select
Range(DirCC).Activate
Do While ActiveCell.Value <= F And ActiveCell.Value <> ""
If ActiveCell.Value = F And ActiveCell.Offset(0, 1).Value = N And
ActiveCell.Offset(0, 3).Value = (M * (-1)) Then
Cont = Cont + 1
ActiveCell.Offset(0, 4).Value = Cont
Existe = True
Exit Do
End If
ActiveCell.Offset(1).Activate
Loop
Do While ActiveCell.Value >= F
ActiveCell.Offset(-1).Activate
Loop
DirCC = ActiveCell.Address
Sheets(1).Select
Range(DirCP).Activate
End Sub
Alguien me puede explicar en castellano que hace el código???
Gracias y saludos a todos
Leer las respuestas