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

Colar Variável em célula

Referente ao curso VBA: Automatizando tarefas no Excel

por Benigno de Jesus Júnior
| 3.3k xp | 1 posts

Preciso alterar o valor de uma célula por uma valor que está em uma variável, como devo proceder?

Segue o código:

Sub Classificar_nome()
    Dim Historico As String
    Dim sub_grupo As String
    Dim Reg_mod As Integer
    Historico = InputBox("Digite o histórico a ser classificado")
    sub_grupo = InputBox("Digite sub_grupo de classificação")
    Range("d3").Select
    'faça enquanto célula ativa for diferente de vazio
    Do While ActiveCell <> ""
        If UCase(ActiveCell) = UCase(Historico) Then
            Range(ActiveCell.offeset(0, 5)).Value = sub_grupo
            Reg_mod = Reg_mod + 1
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
    MsgBox Reg_mod
End Sub
1 resposta
solução!
por Rafael Fernandes de Proença Cordeiro
| 30.6k xp | 17 posts

Olá Benigno,

Não sei se compreendi corretamente a sua dúvida, seu problema está na linha:

Range(ActiveCell.offeset(0, 5)).Value = sub_grupo

Correto?

Então, nesse caso temos 2 problemas.

1 - Desatenção na digitação, saiu offeset em vez de Offset.

2 - Quando falamos de ActiveCell já estamos lidando com uma informação de endereço, então quando vc coloca o ActiveCell dentro do Range vc está querendo gerar uma info de endereço com outra info de endereço, por isso não está dando certo.

Resumindo, substitua a linha

Range(ActiveCell.offeset(0, 5)).Value = sub_grupo

por

ActiveCell.Offset(0, 5).Value = sub_grupo

Espero ter ajudado, caso não seja essa sua dúvida ou tenha alguma outra entre em contato.

Att.,