Este fórum está sendo desativado

[victor2]

Mestres, tudo bom?

Eu gostaria de saber se há alguma na qual eu consiga ligar a variável FOR com a planilha Excel.
Segue o código:

Ao invés de sempre acessar o comando vba e trocar o numero manualmente, gostaria de saber se consigo muda-lo diretamente no excel.


For i = 13 To 14 'contagem de célula das reservas

session.findById("wnd[0]/usr/chk[1," & i & "]").Selected = True 'alteração para as celulas de acordo com o loop
session.findById("wnd[0]/usr/chk[1," & i & "]").SetFocus
session.findById("wnd[0]/tbar[1]/btn[20]").press
session.findById("wnd[1]/tbar[0]/btn[6]").press
session.findById("wnd[2]/usr/chkITCPP-TDDELETE").Selected = True
session.findById("wnd[2]/usr/chkITCPP-TDIMMED").Selected = True
session.findById("wnd[2]/usr/chkITCPP-TDIMMED").SetFocus
session.findById("wnd[2]/usr/chkITCPP-TDDELETE").SetFocus
session.findById("wnd[2]/tbar[0]/btn[86]").press
session.findById("wnd[0]/usr/chk[1," & i & "]").Selected = False

Next i

Obrigado!

[babdallas]

Veja se ajuda

Código: Selecionar todos

Sub teste()
    Dim lngContador As Long, lngIni As Long, lngFim As Long

    lngIni = shtPlan1.Range("A1").Value 'Célula A1 contém o valor inicial do loop
    lngFim = shtPlan1.Range("A2").Value 'Célula A2 contém o valor inicial do loop


    For lngContador = lngIni To lngFim
        shtPlan1.Cells(lngContador, 2).Value = lngContador
    Next lngContador
End Sub

[victor2]

Com certeza!

Muito obrigado!