Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

Set, Dim , Range

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo Introdução ao VBA no Excel e atividade Introdução

por Guilherme Henrique Santos Otto
| 48.4k xp | 112 posts

To da vez que uso o Dim para declarar uma variável , o Set para estabelecer ela e o Range para escrever ela. Acontece erro de Depuar no Set. 

Sub WriteValues()

    Dim shtWrite As Worksheet

    Set shtWrite = ThisWorkbook.Worksheets("Totais")

    shtWrite.Range("C5") = shtRead.Range("B3")
    shtWrite.Range("D5") = shtRead.Range("B4")
    shtWrite.Range("E5") = shtRead.Range("B5")
    shtWrite.Range("F5") = shtRead.Range("B6")

End Sub
1 resposta
solução!
por Gabriel Leão
| 85.3k xp | 3 posts

Fala Guilherme, tudo bom?

Na segunda coluna o que você gostaria de dizer com "shtRead" você não especificou ele.

O correto seria? 

Sub WriteValues()

    Dim shtWrite As Worksheet

    Set shtWrite = ThisWorkbook.Worksheets("Sheet1")

    shtWrite.Range("C5") = shtWrite.Range("B3")
    shtWrite.Range("D5") = shtWrite.Range("B4")
    shtWrite.Range("E5") = shtWrite.Range("B5")
    shtWrite.Range("F5") = shtWrite.Range("B6")

End Sub