Linkar para uma célula especifica

2024 - Fórmulas Avançadas - Funções Microsoft Excel

Post Recente por Victorccg 10 anos atrás

5 Posts

2 Usuários

0 Reactions

541 Visualizações

RSS

Victorccg

(@victorccg)

Posts: 3

New Member

Topic starter

Descrição:

Na aba 'A' tem uma tabela com uma lista de produtos e seus respectivos preços de venda.

Na aba 'B' tem uma tabela que calcula automaticamente a Margem de contribuição dos produtos cadastrados na aba 'A'. O produto é selecionado através de uma lista em Dropdown na célula 'C1'

A planilha tem a intenção de auxiliar o usuário a controlar a Margem de Contribuição de seus produtos, e quantidade de produtos é bastante extensa.

Dúvida:
Gostaria de um botão que quando acionado, me direcionasse para célula na tabela da aba 'A' correspondente ao produto selecionado na 'C1'.

Agradeço desde já a atenção.

Postado : 03/03/2015 11:47 am

Issamu

(@issamu)

Posts: 605

Honorable Member

Olá Victor!
Para realizar isso será necessário um código VBA. Poste um modelo da sua planilha para elaboração de uma solução assertiva.
Abs!

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

Postado : 03/03/2015 11:53 am

Victorccg

(@victorccg)

Posts: 3

New Member

Topic starter

Issamu,

segue o anexo de um exemplo simplificado que ilustra meu problema.

Postado : 03/03/2015 2:21 pm

Issamu

(@issamu)

Posts: 605

Honorable Member

Olá Victor!
Há muitas formas de fazer isto. Seguem dois exemplos macros que você pode aplicar:

Sub Localizar_Produto()
    Sheets("A").Select
    Cells.Find(What:=Sheets("B").Range("D6").Text, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

Sub Localizar_produto2()
Application.Goto Sheets("A").Range("B7")
Do Until ActiveCell.Value = Sheets("B").Range("D6").Value Or ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Range("A1").Activate
Loop
End Sub