Excel planilhas vba contador insere dados propriedade offset

Saberexcel - o site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) do insere um contado na Coluna(A), com auxilio da propriedade Offset, desloca dados para coluna b que fará a personalização da contagem do laço - loop for next, também usei o Método Evaluate que é muito útil no uso em programação, como faz as WorksheetFuncions esse método também retorna um valor, para onde voce desejar, poderá em uma mensagem, células, objeto label ou textobx, etc... baixe o exemplo de planilha no final da página.

Sub Inserir_dados_loop_contador()
Dim I As Integer
Dim vContador As Integer
Range("A1").Select
[A2:B120].ClearContents
For I = 1 To 20
      If Plan1.Range("A1").Value = "São Paulo" Then
         ActiveCell.Offset(1, 0).Value = "Capital"
         ActiveCell.Offset(1, 1).Value = "Contador..: " & I & "º."
         ActiveCell.Offset(1, 0).Select

         vContador = vContador + 1
         vContador = Plan1.Evaluate("COUNTIF(A1:A1000, ""Capital"")")
         MsgBox vContador 'pára o código a cada loop para exibir a msg
      End If
Next I

End Sub

Converte um nome do Microsoft Excel em um objeto ou valor.

Sintaxe

expressão.Evaluate(Name)

expressão Uma variável que representa um objeto Worksheet.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	Variant	O nome do objeto, usando a convenção de nomenclatura do Microsoft Excel.

Valor de retorno
Variant

Comentários

Os tipos de nomes do Microsoft Excel a seguir podem ser usados com este método.

Referências de estilo A1. Você pode usar qualquer referência a uma única célula em notação A1. Todas as referências são consideradas como referências absolutas.
Intervalos. Você pode usar os operadores de intervalo, de interseção e de união (dois pontos, espaço e vírgula, respectivamente) com referências.
Nomes definidos. Você pode especificar qualquer nome no idioma da macro.
Referências externas. Você pode usar o operador ! para referir-se a uma célula ou a um nome definido em outra pasta de trabalho. Por exemplo, Evaluate("[BOOK1.XLS]Sheet1!A1").
Objetos Chart. Você pode especificar qualquer nome de objeto de gráfico, como "Legenda", "Área de plotagem" ou "Série 1", para acessar as propriedades e os métodos desse objeto. Por exemplo, Charts("Chart1").Evaluate("Legend").Font.Name retorna o nome da fonte usada na legenda.

Observação
O uso de colchetes (por exemplo, "[A1:C5]") é idêntico a chamar o método Evaluate com um argumento de sequência de caracteres. Por exemplo, os pares das expressões a seguir são equivalentes.

Visual Basic for Applications

Visual Basic for Applications
`[a1].Value = 25 Evaluate("A1").Value = 25 trigVariable = [SIN(45)] trigVariable = Evaluate("SIN(45)") Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1] Set firstCellInSheet = _ Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")`

[a1].Value = 25
Evaluate("A1").Value = 25
		
trigVariable = [SIN(45)]
trigVariable = Evaluate("SIN(45)")
		
Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]
Set firstCellInSheet = _
    Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")

A vantagem do uso de colchetes é que o código fica menor. A vantagem do uso de Evaluate é que, como o argumento é uma sequência de caracteres, você pode construir a sequência no código ou usar uma variável do Visual Basic.

Exemplo

Este exemplo ativa a formatação em negrito na célula A1 de Sheet1.