Excel Loop com valor de células na fórmula

[Jeff_Sandes]

como fazer um loop o vba para inserir o valor das células dentro da fómula?

tentei assim mas o vba ignorou os valores das células

For inicio = 1 To contador
    Cells(inicio, 58) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF01.SP_RZ"",""" & Range("BF" & inicio).Value & ":00"",0,"""",""previous"")"
    Cells(inicio, 59) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF02.SP_RZ"",""" & Range("BG" & inicio).Value & ":00"",0,"""",""previous"")"
    Cells(inicio, 60) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF03.SP_RZ"",""" & Range("BH" & inicio).Value & ":00"",0,"""",""previous"")"
    Cells(inicio, 61) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF04.SP_RZ"",""" & Range("BI" & inicio).Value & ":00"",0,"""",""previous"")"
    Cells(inicio, 62) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF05.SP_RZ"",""" & Range("BJ" & inicio).Value & ":00"",0,"""",""previous"")"
Next inicio

na imagem mostra a coluna com as horas que deveriam entrar na fórmula

[Jeff_Sandes]

percebi um erro e corriji, mas agora os valores não vem em formato de tempo

Sub teste()
Dim inicio As Integer
contador = 14
    For inicio = 1 To contador
        Cells(inicio, 58) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF01.SP_RZ"",""" & Range("BE" & inicio).Value & ":00"",0,"""",""previous"")"
        Cells(inicio, 59) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF02.SP_RZ"",""" & Range("BE" & inicio).Value & ":00"",0,"""",""previous"")"
        Cells(inicio, 60) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF03.SP_RZ"",""" & Range("BE" & inicio).Value & ":00"",0,"""",""previous"")"
        Cells(inicio, 61) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF04.SP_RZ"",""" & Range("BE" & inicio).Value & ":00"",0,"""",""previous"")"
        Cells(inicio, 62) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF05.SP_RZ"",""" & Range("BE" & inicio).Value & ":00"",0,"""",""previous"")"
    Next inicio
End Sub

 

 

tentei colocar Format mas mesmo assim o resultado dá FALSO

 

Sub pregos()
Dim inicio As Integer
contador = 14
    For inicio = 1 To contador
        Cells(inicio, 58) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF01.SP_RZ"",""" & Range("BE" & inicio).Value = Format(Time, "00:00") & ":00"",0,"""",""previous"")"
        Cells(inicio, 59) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF02.SP_RZ"",""" & Range("BE" & inicio).Value = Format(Time, "00:00") & ":00"",0,"""",""previous"")"
        Cells(inicio, 60) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF03.SP_RZ"",""" & Range("BE" & inicio).Value = Format(Time, "00:00") & ":00"",0,"""",""previous"")"
        Cells(inicio, 61) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF04.SP_RZ"",""" & Range("BE" & inicio).Value = Format(Time, "00:00") & ":00"",0,"""",""previous"")"
        Cells(inicio, 62) = "=PIArcVal(""\\AUT-FTV-HST-01\CALC_530BWF05.SP_RZ"",""" & Range("BE" & inicio).Value = Format(Time, "00:00") & ":00"",0,"""",""previous"")"
    Next inicio
End Sub

 

[Midori]

@Jeff_Sandes Retorna Falso porque sua fórmula está fazendo um teste lógico:

 

Range("BE" & inicio).Value = Format(Time, "00:00")

 

Qual o conteúdo do range? Por que passou Time para a fórmula Format?

 

Sem detalhes da sua planilha entendo que devia ser algo assim,

 

Format(Range("BE" & inicio).Value, "00:00")

 

[Jeff_Sandes]

1 hora atrás, Midori disse:

Format(Range("BE" & inicio).Value, "00:00")

Deu certo! Só mudei o "00:00" para formato hora "hh:mm"