Ejemplo de Uso de DoLoop aplicado a llenado Fechas

El Do...Loop permite realizar una un procedimiento de forma iterativa mientras se cumpla una condición definida por el usuario.

Generalmente, el Do...Loop se combina con las condiciones While y Until. Para ello se define un contador, que sera el que romperá o cumplirá la condición definida por el usuario.

A diferencia de un llenado en bloques se podría hacer usando combinaciones con otras funciones o variables y que podría ser más rapido, el DoLoop permite tener una revisión más estricta y permite detectar error en los datos.

Utilizaremos la función DoLoop para el llenado de unas fechas de Venta de solicitudes. En caso en la base de datos con la que se hará el cruce, no haya información disponible, se tomará como fecha de venta el último estado registrado. Para ello emplearemos condicionales y cambios de tipo de variable.

A continuación se presenta el código usado:

Sub CompletarFecha()
'Definicion de Variables
Dim FilaFinal As Long
Dim FilaActual As Long
Dim ValorActual As String

FilaFinal = Range("B1048576").End(xlUp).Row
FilaActual = 5

'Defincion de la condicion de DoUntilLoop
Do Until FilaActual > FilaFinal

Cells(FilaActual, 3).Select
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC2,HojaQuery!R2C2:R26873C3,2,0)"
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ValorActual = CStr(ActiveCell)
Application.CutCopyMode = False

If ValorActual = "Error 2042" Then
'Aqui se cambia a la fecha ultimo estado registrado
ActiveCell = Cells(FilaActual, 4)
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ElseIf ValorActual = Empty Then
'Aqui se cambia a la fecha ultimo estado registrado
ActiveCell = Cells(FilaActual, 4)
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Else
'Aqui se cambia a la fecha ultimo estado registrado
ActiveCell.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If
Application.CutCopyMode = False
FilaActual = FilaActual + 1

Loop
MsgBox "Se terminó el llenado de Fecha, Gracias!", vbOKOnly, "Sistema"
End Sub

Ejemplo Do Loop (VBA)

Elaborado por: Jesús Tapia