Notifications
Clear all

Como apontar dados de uma célula em uma TextBox?

8 Posts
3 Usuários
0 Reactions
2,020 Visualizações
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Como faço pra que os dados de uma célula em específico apareça em uma TextBox?
Por exemplo:

Tenho a célula A3 e ao clicar em um botão dentro da Planilha, irá abrir meu Form e na TextBox4 irá aparacer o conteúdo da célula A3?
Tem como eu dar o endereço dessa célula pra minha Textbox? Como faço isso?

Procurei com diversos termos aqui no fórum mais não encontrei nada relacionado.

Forte abraço amigos!

"O impossível, é só uma questão de tempo"

 
Postado : 18/03/2013 1:24 pm
(@vitor)
Posts: 57
Trusted Member
 

Basicamente seria algo assim :

Sub Userform_Activate ()
Textbox.value= Sheets("nome da planilha de onde vc vai tirar a célula").range("A3").value
End Sub

atende ?

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 18/03/2013 2:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Outro exemplo

Me.Textbox1.Value = Sheets("SuaPlanilha").Range("A1").Value

Leia também:
http://www.excel-vba-easy.com/vba-userf ... xtbox.html
Att

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

 
Postado : 18/03/2013 3:22 pm
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Ótimos os dois exemplos!
Agora estou no seguinte impasse:

Eu queria apontar o numero da linha através do valor de uma célula que está numa outra Sheet.
Por exemplo:
Vocês me passaram o Código:
Me.Textbox1.Value = Sheets("Plan1").Range("A1").Value

Mais na verdade eu queria fazer algo como:
Me.Textbox1.Value = Sheets("Plan1").Range("A"+Plan2:C3).Value
Supondo que nesse caso, a célula C3 da planilha "Plan2" contenha o valor "12", então o resultado do Range seria A12

Entenderam?
No Excel isso seria bem simples, mais o VB não dá essa flexibilidade toda.
Existe uma maneira de fazer isso amigos?

"O impossível, é só uma questão de tempo"

 
Postado : 19/03/2013 11:14 am
(@vitor)
Posts: 57
Trusted Member
 

assim:

Dim celula As Integer

celula = Plan2.Range("A12").Row
Me.Textbox1.Value = Sheets("Plan1").Range("A" & celula).Value

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 19/03/2013 11:52 am
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Ahhhhhh garoto!

Depois de dezenas de tentativas e erros no escuro, CONSEGUI!
Olha só o resultado galera:

Dim numero_linha As Variant
numero_linha = "A" & Sheets("Cadastro_Clientes").Range("BW2").Value

TextBox34.Value = Sheets("Cadastro_Clientes").Range(numero_linha).Value

Que BELEZA!
Reparei que era meio que impossivel concaternar um código dentro do outro, então imaginei de criar uma variável e dentro dela concatenar a letra que representa a coluna (nesse caso a coluna A) + o endereço da célula que iria indicar o numero da linha (Cadastro_clientes:BW2)
BINGO!

Se os amigos tiverem alguma outra solução mais inteligente, ficarei feliz em acrescentar ao projeto!
Muito Obrigado aos amigos que estão smepre dispostos á ajudar
Forte abraço!

"O impossível, é só uma questão de tempo"

 
Postado : 19/03/2013 11:53 am
wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Ops, o Vitor já tinha respondido, mais mesmo assim agradeço a atenção de todos!
Já marquei como respondida e agradeci aos dois amigos!

Forte abbraço!

"O impossível, é só uma questão de tempo"

 
Postado : 19/03/2013 11:56 am
(@vitor)
Posts: 57
Trusted Member
 

na minha resposta coloquei o valor com base no número da linha (o ".row" do final)
pra colocar o valor de uma célula ficaria assim:

Dim celula As Integer

celula = Plan2.Range("A12").value
Me.Textbox1.Value = Sheets("Plan1").Range("A" & celula).Value

se o valor da célula A12 for 3 a sua textbox terá o valor da célula A3 ^^
que bom que vc conseguiu, parabéns
(:

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 19/03/2013 12:23 pm