Loop to Value

[Leandroarb]

Hi,

The logical for this code are correct?
I need it to repeat the loop until the value of cont is equal to

 Int(Left(Prazo, 2))

Global rng As Range
Global dtData As Range
Global crit As Variant


Public Function PrazoFinal(DatasAbono As Range, vlrData As Variant)  ', Prazo As String, Data_Protocolo As Date)  'DatasAbono = Intervalo com datas não contáveis
Dim cont    As Integer                                                                     'Prazo = Célula com o prazo do serviço
Dim j       As Integer                                                                       'Data_Protocolo = Célula com data e hora do protocol
Dim strVerif As String


Set rng = DatasAbono
cont = 0
j = 0


Do Until cont = Int(Left(Prazo, 2))


    j = j + 1
    vlrData = Format(DateAdd("d", j, Data_Protocolo), "dd/mm/yyyy")
    crit = vlrData
    
        If Verif = "UT" Then
            PrazoFinal = crit
            cont = cont + 1
        End If
Loop
End Function


Public Function Verif() As String '(rng As Range, crit As Variant) As String
Dim rng2 As Range
Dim cel As Range
Set rng2 = rng
Dim strVerif As String
    For Each cel In rng2
        If cel = crit Then
            strVerif = crit
        End If
    Next cel
If strVerif <> "" Then Verif = "UT" Else Verif = "IN"
End Function

 

[cerfani]

looks fine, you will know if it works by stepping through the code

 

[Fluff]

You haven't given Prazo a value, so you should get an error on that line

 

[Leandroarb]

You haven't given Prazo a value, so you should get an error on that line

Same with defined "Prazo", the result is: #VALOR !

Thanks

Testing....

 

[Fluff]

What sort of value are you giving to Prazo?

 

[Leandroarb]

What sort of value are you giving to Prazo?

Dim Prazo As String

Example: Prazo = 30D

 

[Leandroarb]

This worked!!!

Public Function PrazoFinal(DatasAbono As Range, vlrData As Date, Prazo As String)   ', Prazo As String, Data_Protocolo As Date)  'DatasAbono = Intervalo com datas não contáveis
On Error Resume Next
Dim cont    As Integer                                                                   'Prazo = Célula com o prazo do serviço
Dim j       As Integer                                                                   'Data_Protocolo = Célula com data e hora do protocol
Dim strVerif As String


Set rng = DatasAbono
cont = 0
j = 0


Do
    If Right(Prazo, 1) = "H" Then
        PrazoFinal = DateAdd("h", 4, vlrData)
        Exit Function
    End If
    
    j = j + 1
    crit = Format(DateAdd("d", j, vlrData), "dd/mm/yyyy")
        If Verif = "UT" Then
            PrazoFinal = crit '& " - " & Verif
            cont = cont + 1
        End If
        
Loop While cont < Int(Left(Prazo, 2))
End Function


Public Function Verif() As String '(rng As Range, crit As Variant) As String
On Error Resume Next
Dim rng2      As Range
Dim cel       As Range
Dim strVerif As String


Set rng2 = rng


    For Each cel In rng2.Cells
        If Replace(CLng(cel), " ", "") = Replace(CLng(CVDate(crit)), " ", "") Then
            strVerif = cel
        End If
    Next cel
    
If strVerif = "" Then Verif = "UT" Else Verif = "IN"


End Function

 

[Fluff]

Ok, insert the line in red

[COLOR=#ff0000]Stop[/COLOR]
Set rng = DatasAbono

When you run the function it should stop on that line, allowing you to step through the code using F8.
This may enable you to find out where things are going wrong.

 

[Leandroarb]

Ok, insert the line in red

[COLOR=#ff0000]Stop[/COLOR]
Set rng = DatasAbono

When you run the function it should stop on that line, allowing you to step through the code using F8.
This may enable you to find out where things are going wrong.

Thanks Mr. Fluff !
With your help, I learn more and more!
Regards!

 

[Fluff]

You're welcome