none
Como seleciono a última coluna preenchida em uma linha? RRS feed

  • Pergunta

  • Olá,

       Através de um ".find()" localizo uma palavra e salvo na variável "busca". Tal palavra pertence a uma célula mesclada. Por isso, para saber o nome da última coluna válida em sua linha, eu percorria célula por célula com um while e verificava, com um if, se ela era mesclada ou não vazia, então partia para a próxima até, finalmente, chegar à última célula daquela linha.

       No entanto, para encontrarmos a última célula preenchida em uma coluna, basta utilizarmos:

    Set myrange = Range("A:" & Rows.count).End(xlUp).Select
    

      Gostaria, portanto, de uma fórmula simples assim para encontrar o contrário, a última célula não vazia de uma linha. Pensei em utilizar

    Set myrange = cells(busca.row,columns.count).end(xlLeft).select
    

    mas creio que não irá funcionar, pois ".end()" só existe para Range(), não Cells().

      O que fazer?

    terça-feira, 8 de março de 2011 17:13

Respostas

  • ultima linha vazia:

    r = cells(rows.count,1).end(xlUp).Row

    ultima coluna vazia:

    c = cells(NumeroLinha,columns.count).end(xlToLeft).Column 


    Caio Vitullo
    • Marcado como Resposta Marlon Saveri sexta-feira, 11 de março de 2011 15:39
    terça-feira, 8 de março de 2011 23:16

Todas as Respostas

  • Agora não estou conseguindo nem pegar a última coluna de uma linha com

    ultimalinha = Range("A:" & Rows.count).End(xlUp).Row
    
    Por quê?

    terça-feira, 8 de março de 2011 17:29
  • nem
      numlin = Range(Cells(Rows.count, 1)).End(xlUp).Row
    
    não estou entendendo mais nada.
    terça-feira, 8 de março de 2011 17:32
  • ultima linha vazia:

    r = cells(rows.count,1).end(xlUp).Row

    ultima coluna vazia:

    c = cells(NumeroLinha,columns.count).end(xlToLeft).Column 


    Caio Vitullo
    • Marcado como Resposta Marlon Saveri sexta-feira, 11 de março de 2011 15:39
    terça-feira, 8 de março de 2011 23:16