Guilherme R Dias

Boa tarde!!

Pessoal estou buscando apreender mais dos recursos do VBA, ainda estou em um nível inciante, e gostaria de saber se é possível realizar uma somase em vba na seguinte situação (com intervalo/range "nomeado"):

Dim rng1 'As Range
Dim rng2 'As Range

Dim linha1

Dim linhai

rng1 = ActiveSheet.Range(Cells(linhai, 3), Cells(linha1, 3))
rng2 = ActiveSheet.Range(Cells(linhai, 8), Cells(linha1, 8))
ActiveSheet.Cells(linha1 + 1, 8).Value = Application.WorksheetFunction.SumIf(Range("rng1"), "TOTAL MICRO", Range("rng2"))

Percebo que o vba identifica os intervalos(range), porém no momento de fazer o somase tenho dúvidas se ele esta entendendo o rng1 e rng2 como o range dos dados, ele executa a somase mas o resultado é zero.

Para explicar um pouco mais, esta somase esta dentro de um loop, e a minha ideia é ir alterando o range conforme o loop for sendo processado, e assim realizando a somase.

Espero que eu tenha sido claro.

Desde ja agradeço as sugestões.

Guilherme

Olá Pessoal, boa tarde!!

Estou iniciando no universo das Macros de Excel, peço uma ajuda para resolver a seguinte questão, preciso selecionar um intervalo de células para poder imprimir, mas é um intervalo dinâmico, e não estou conseguindo finalizar:

Range("J10").Activate (optei por começar a macro nesta célula, pois a coluna J é a ultima coluna com dados, e as linhas anteriores possuem linhas vazias).

Selection.End(xlDown).Select (ir para ultima linha com dados)

Range(Selection, Cells(1)).Select (selecionar da ultima linha ate a célula A1 = intervalo que eu preciso imprimir)

ActiveSheet.PageSetup.PrintArea= ??? (neste ponto esta minha dificuldade, não consigo finalizar a macro, colocando o intervalo selecionado como area de impressão!!)

Peço ajuda para resolver esta questão.

Grato,

Guilherme