Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Funções aninhadas e...
 
Notifications
Clear all

Funções aninhadas em VBA

 
2024 - VBA & Macros
Post Recente por Nill2013Br 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,356 Visualizações
RSS
 Nill2013Br
(@nill2013br)
Posts: 19
Active Member
Topic starter
 

Gostaria de saber se alguém pode me ajudar com esta situação:

Esta fórmula compara os dados de uma célula da Plan 1 com uma coluna na Plan2: =SE(C3="";"";SEERRO(SE(PROCV(C3;'Plan2'!B$2:B$202;1;0);"SIM");"NÃO")), encontrando o valor na Plan 2 ela retorna SIM na Plan1 e não encontrando retorna NÃO. Existe alguma forma de colocar isto para ser executado em uma macro? Agradeço a ajuda.

 
Postado : 13/03/2018 1:13 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

É so fazer um loop na coluna B que funciona facil.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 13/03/2018 7:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na falta de mais detalhes, segue a forma básica conforme a linha da sua formula.

Sub VLookup_C3()
    Dim vrNum As String

    On Error Resume Next
    vrNum = CDbl(Range("C3").Value)
    
    vr1 = Application.WorksheetFunction.VLookup(CDbl(vrNum), Worksheets("Plan2").Range("B2:B202"), 1, 0)

    If vr1 = "" Then
        Range("C3").Offset(0, 1) = "NÃO"
    Else
        Range("C3").Offset(0, 1) = "SIM"
    End If
    
End Sub

[]s

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

 
Postado : 14/03/2018 5:47 am
 Nill2013Br
(@nill2013br)
Posts: 19
Active Member
Topic starter
 

Obrigado pela ajuda, irei testar para ver como se comporta.

 
Postado : 15/03/2018 5:44 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico