Selecionar célula d...
 
Notifications
Clear all

Selecionar célula de uma tabela a partir de duas condições

4 Posts
2 Usuários
0 Reactions
1,030 Visualizações
(@madi-land)
Posts: 33
Eminent Member
Topic starter
 

Olá, preciso de uma função ou de algum jeito para selecionar a célula de uma tabela, de acordo com o arquivo que segue em anexo ou imagem.

Já quebrei a cabeça e não estou conseguindo fazer isto.

Pro favor, me ajudem!!!

 
Postado : 04/05/2015 3:23 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se é isto:

Sub SelecionaCel()
Dim sLetra
Dim sNumero
Dim sCel
Dim sRg As Range

sLetra = Range("G5").Value
sNumero = Range("H5").Value

Set sRg = Range("B5:B20")

    For Each sCel In sRg
     
        If sCel.Value = sLetra And sCel.Offset(0, 1).Value = sNumero Then
        
            sCel.Select
            Exit Sub
            
        End If
        
     Next

End Sub

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

 
Postado : 04/05/2015 4:15 pm
(@madi-land)
Posts: 33
Eminent Member
Topic starter
 

Boa tarde Mauro... Funcionou sim, só queria fazer umas perguntas referente ao código.

Existe algum motivo em especial para se colocar o nome da variável com o 's' na frente?!

No meu programa eu posso mudar o nome das variáveis conforme abaixo?
Dim sLetra ---> Dim designacao
Dim sNumero ---> Dim tamanho
Dim sCel ---> Dim celula
Dim sRg As Range ---> Dim tabela_saldo_total as range

Só para ver se eu entendi, na parte abaixo, vocês está atribuindo a variável sRg à coluna da célula B5 até B20?!
O que o Set faz?!

Set sRg = Range("B5:B20")

 
Postado : 05/05/2015 1:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Madi Land, é o seguinte :

Existe algum motivo em especial para se colocar o nome da variável com o 's' na frente?!
Pode utilizar qualquer letra, eu sempre utilizo letras antes só para diferenciar, dependendo utilizo, "s" , "v" "n"...

No meu programa eu posso mudar o nome das variáveis conforme abaixo?
Dim sLetra ---> Dim designacao
Dim sNumero ---> Dim tamanho
Dim sCel ---> Dim celula
Dim sRg As Range ---> Dim tabela_saldo_total as range

Você pode usar o nome que quiser, o motivo destes nomes é para podermos identificar com facilidade a que estamos nos referindo e simplificar o código, e como na sua solicitação falou Letra e Numero, fiz esta associação ficando mais fácil identificar a que se referem as mesmas, é mais simples eu utilizar e escrever - "sRG" do que "tabela_saldo_total as range"

Só para ver se eu entendi, na parte abaixo, vocês está atribuindo a variável sRg à coluna da célula B5 até B20?!
O que o Set faz?!

Set sRg = Range("B5:B20")
A Instrução SET é justamente para atribuirmos uma variável a objetos, e Range é um objeto, de uma olhada no link abaixo, tem alguns exemplos para facilitar o entendimento.
0182-Dica VBA: Compreendendo a instrução Set
https://usuariosdoexcel.wordpress.com/2 ... rucao-set/

[]s

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

 
Postado : 05/05/2015 4:41 pm