Página 1 de 1

Como alterar alcance do "For i" no excel?

Enviado: 29 Set 2017 às 14:33
por 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!

Re: Como alterar alcance do "For i" no excel?

Enviado: 29 Set 2017 às 14:49
por 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

Como alterar alcance do "For i" no excel?

Enviado: 02 Out 2017 às 12:06
por victor2
Com certeza!

Muito obrigado! :D