Notifications
Clear all

ATRIBUIR VALOR DA VAR EM CÉLULA

4 Posts
3 Usuários
0 Reactions
1,140 Visualizações
(@renatoddd)
Posts: 0
New Member
Topic starter
 

Amigos, bom dia.

Tenho uma variável chamada NOME.
Em dado momento, vou localizar uma coluna. (vai variar de coluna).
Quando eu encontrar a coluna, preciso jogar o valor da variável na linha 15.

Quando é o contrário, ou seja, sei a linha mas não sei a coluna, uso o código abaixo:
range("D" & activecell.row).value

No caso em que preciso de ajuda, é o contrário. Tentei o código abaixo mas não funciona
range(activecell.column & 15).value = NOME

Sei lá, inverti p testar. Não da certo.

Alguém consegue me ajudar?

 
Postado : 12/03/2018 8:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi a demanda.
activecell.row retorna o numero da linha da célula ativa/selecionada
activecell.column retorna o numero da coluna da célula ativa/selecionada

Referir-se a uma range tendo a coluna definida pode utilizar a letra de sua coluna + o numero da linha--> Range("D" & activecell.row) ou ainda
Pode-se utilizar o numero de coluna + numero de linha --> Cells(activecell.column, activecell.row)

 
Postado : 12/03/2018 8:12 am
(@renatoddd)
Posts: 0
New Member
Topic starter
 

Reinaldo

Obrigado. Seguinte:

Imagine que estou na B10. Preciso jogar o valor da vairável NOME, na célula B15

Se a célula selecionada for C10, jogar NOME na C15
Se a célula selecionada for D10, jogar NOME na D15
Se a célula selecionada for E10, jogar NOME na E15

Ou seja, preciso jogar NOME, na linha 15 da coluna ativa.

Há algum código simples para isso ?

Obrigadoooo

 
Postado : 12/03/2018 8:20 am
(@xlarruda)
Posts: 0
New Member
 

Tente assim:

Sub encontra_coluna()
Cells(15, ActiveCell.Column).Value
End Sub

Abçr!

 
Postado : 12/03/2018 9:07 am