Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ATRIBUIR VALOR DA V...
 
Notifications
Clear all

ATRIBUIR VALOR DA VAR EM CÉLULA

 
2024 - VBA & Macros
Post Recente por xlarruda 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,146 Visualizações
RSS
 Renatoddd
(@renatoddd)
Posts: 70
Trusted 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
Fernando Fernandes
 Fernando Fernandes
(@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)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/03/2018 8:12 am
 Renatoddd
(@renatoddd)
Posts: 70
Trusted 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
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Tente assim:

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

Abçr!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 12/03/2018 9:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico