0201-Dica VBA: Método Offset

Quando aplicamos esse método a um intervalo, obtemos um outro intervalo, do mesmo tamanho que o primeiro, deslocado de um determinado número de linhas ou de colunas.

Lembram-se da forma que demonstramos para obter a última célula preenchida da coluna A? (0174-Dica VBA: Determinando a última célula com valores

Eis a linha de código:

UltLin = Cells(Rows.Count,"A").End(xlUp).Row

Se sabemos qual a última linha que contém valores, a primeira linha abaixo conterá uma célula vazia. Caso estejamos interessados nessa linha podemos fazer:

LinVazia = Cells(Rows.Count,"A").End(xlUp).Offset(1,0).Row

Acrescentado Offset(1,0) à referência, identificamos a célula localizada exatamente uma linha abaixo.

O primeiro argumento do método identifica o número de linhas deslocadas para abaixo (inteiro positivo) ou para cima (inteiro negativo).

O segundo argumento identifica o número de colunas deslocadas para a direita (inteiro positivo) ou para a esquerda (inteiro negativo).

Ex.

A referência [D4:J10].Offset(-3,2) retorna [F1:L7] (três linhas acima e duas colunas à direita).

In Excel We Trust

Marcado com: , , , , , ,
Publicado em Nível: Avançado
2 comentários em “0201-Dica VBA: Método Offset
  1. Helen Pinheiro de Oliveira disse:

    Olá! Preciso de ajuda!
    Estou tentando fazer um macro numa planilha básica, porém, os lançamentos estão sendo sobrepostos ao invés de ir para a ultima célula vazia.
    Segue programação:
    Range(“A2:B21”).Select
    Selection.Copy
    Sheets(“lçto”).Select
    Range(“A2”).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets(“macro”).Select
    Range(“A2:A21”).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    End Sub

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Visitas dos usuários
  • 3.254.848
Drive Virtual

Acesse o link para ter acesso aos arquivos para download.

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.755 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: