Ir ao conteúdo
  • Cadastre-se

VBA ira para celula


Ir à solução Resolvido por Visitante,

Posts recomendados

Boa Noite Galera!

 

to precisando de uma ajudinha no vba...

olhei na net mas não achei o que to precisando!

 

Private Sub CommandButton4_Click()
On Error Resume Next

Range("
?? ").Select

End Sub

 

preciso que quando clicar no botao, de um Select em uma celula

so que o endereço dessa celula vai estar em G1, então por ex:

 

em G1 eu digito DE1450

quando clicar no botao, ele seleciona a celula DE1450

 

 

se digito outro valor em G1 ----- AH22411

quando clicar no botao, ele seleciona a celula AH22411

 

so que nos testes que fiz, não cosegui fazer ele capiturar o texto em G1

e usar como parte do vba...

 

alguem sabe como resolver? :cool:

Link para o comentário
Compartilhar em outros sites

veja se á isso, para testar insira os valores e click 2 vezes nas celulas g1 a g5:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    Dim cel As String                       Rem :altere as celulas (ex. g1:g5) que deseja ativar    If Not Intersect(Target, Range("g1:g5")) Is Nothing Then        cel = Target.Value        If cel <> "" Then            Range(cel).Select            Rem :se quiser elimine a(msg)linha abaixo            MsgBox "celula " & cel & " selecionada !"        Else         Rem :se quiser elimine a(msg)linha abaixo            MsgBox " insira o valor da celula !"        End If    End IfEnd Sub

Link para o comentário
Compartilhar em outros sites

boa noite Basole!

 

é isso mesmo q preciso, so que no ligar de clicar 2as vezes na celula,

tem que ser no botao mesmo...

 

Private Sub CommandButton4_Click()
 

??

End Sub

 

tentei fazer as alteraçoes aqui pra funciona no botao mas nao ta dando certo!

você sabe como arrumar???

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!