locked
Correr uma lista na planilha RRS feed

  • Pergunta

  • Pessoal,  estou trabalhando com macro e necessito correr uma lista em uma determinada planilha.

    Pois bem, para correr esta lista eu estou usando o comando 'while' e estou tendo dificuldades para passar para a próxima célula da lista, segue o exemplo:

    While i <> 2
        vetContratos(i) = Range("C21")
        i = i + 1
    Wend

    Até aí tudo bem, mas como fazer para o vetContratos(i) quando 'i' estiver valendo 1 receber a próxima célula, a C22?

    Grato,

    Ricardo F. Matiazzo.
    terça-feira, 29 de janeiro de 2008 12:48

Respostas

  • Code Snippet

    Private Sub Listar()
       
        Dim intCol As Integer
        Dim intRow As Integer
        Dim strValor As String
       
        'define a linha
        intRow = 1
       
        For intCol = 1 To 100
       
            strValor = Plan1.Cells(intRow, intCol)
       
        Next intCol
       

    End Sub

     

     

    Unicolas,

     

    Neste exemplo, eu vou ler as primeiras 100 colunas de uma determinada linha

     

    ou seja utilize o Cells(intRow, intCol) para ler uma celula da planilha

     


    Ajude a melhorar o nosso Forum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

    terça-feira, 29 de janeiro de 2008 13:28

Todas as Respostas

  • Achei o seguinte comando: 'Range("C21").Next'´, porém ainda não é o ideal, uma vez que eu tenho que continuar correndo a lista.
    terça-feira, 29 de janeiro de 2008 13:15
  • Code Snippet

    Private Sub Listar()
       
        Dim intCol As Integer
        Dim intRow As Integer
        Dim strValor As String
       
        'define a linha
        intRow = 1
       
        For intCol = 1 To 100
       
            strValor = Plan1.Cells(intRow, intCol)
       
        Next intCol
       

    End Sub

     

     

    Unicolas,

     

    Neste exemplo, eu vou ler as primeiras 100 colunas de uma determinada linha

     

    ou seja utilize o Cells(intRow, intCol) para ler uma celula da planilha

     


    Ajude a melhorar o nosso Forum!
    Não esqueça de marca a mensagem como "útil", caso tenha ajudado.

    terça-feira, 29 de janeiro de 2008 13:28
  • Laercio, matou a pau!

    Era justamente isso que eu precisava, muito obrigado.

    Abraços,

    Ricardo F. Matiazzo.
    terça-feira, 29 de janeiro de 2008 13:37