Funções aninhadas em VBA

2024 - VBA & Macros

Post Recente por Nill2013Br 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,362 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

(@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