Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA [RESOLVIDO]
DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA [RESOLVIDO]
Bom dia! Estou tentando utilizar a função SE no vba. Estou puxando dados de outra planilha, e quando puxar célula vazia, quero que apareça N/D (não disponível).
Mas não estou conseguindo. Alguem pode me ajudar ?
exemplo:
i = i + 1
Cells(i, 2) = "=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)"
Se a celular for = vazia, me retorna não disponível, caso contrário me retorna o valor da célula.
Estou errando em algo ?
Mas não estou conseguindo. Alguem pode me ajudar ?
exemplo:
i = i + 1
Cells(i, 2) = "=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)"
Se a celular for = vazia, me retorna não disponível, caso contrário me retorna o valor da célula.
Estou errando em algo ?
Editado pela última vez por limarauny em Ter Jun 23, 2020 3:41 pm, em um total de 1 vez.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA
Aparentemente a duvida não está no uso do "SE", mas sim aplica-lo como Formula em uma célula.
Como o trecho acima possui diversas variáveis sem sua definição/indicação,bem como referencia a diretorio/planilhas (provavelmente) externas, torna difícil/complicado avaliar sua sintaxe.
Talvez lhe auxilie:
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
Se não for o esperado/desejado retorne com maiores detalhes/exemplos da demanda
Como o trecho acima possui diversas variáveis sem sua definição/indicação,bem como referencia a diretorio/planilhas (provavelmente) externas, torna difícil/complicado avaliar sua sintaxe.
Talvez lhe auxilie:
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
Se não for o esperado/desejado retorne com maiores detalhes/exemplos da demanda
Re: DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA
Boa noite!limarauny escreveu: ↑Seg Jun 22, 2020 12:41 pm Bom dia! Estou tentando utilizar a função SE no vba. Estou puxando dados de outra planilha, e quando puxar célula vazia, quero que apareça N/D (não disponível).
Mas não estou conseguindo. Alguem pode me ajudar ?
exemplo:
i = i + 1
Cells(i, 2) = "=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)"
Se a celular for = vazia, me retorna não disponível, caso contrário me retorna o valor da célula.
Estou errando em algo ?
Fiz uma adequação, faça um teste com o seguinte código em um módulo VBA.
Código: Selecionar todos
Sub Teste()
Dim i As Integer
i = i + 1
Cells(i, 2).FormulaR1C1 = "=IF('T:\Resultados Analíticos\Produção\2020\0"" & y & "" - "" & Z & "" 2020\0"" & x & ""\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!R13C10="""",NA(),'T:\Resultados Analíticos\Produção\2020\0"" & y & "" - "" & Z & "" 2020\0"" & x & ""\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!R13C10)"
End Sub
Código: Selecionar todos
=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)
Re: DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA
MUITO OBRIGADO! Deu certo!Reinaldo escreveu: ↑Seg Jun 22, 2020 1:31 pm Aparentemente a duvida não está no uso do "SE", mas sim aplica-lo como Formula em uma célula.
Como o trecho acima possui diversas variáveis sem sua definição/indicação,bem como referencia a diretorio/planilhas (provavelmente) externas, torna difícil/complicado avaliar sua sintaxe.
Talvez lhe auxilie:
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
https://www.tomasvasquez.com.br/forum/v ... rmulalocal
Se não for o esperado/desejado retorne com maiores detalhes/exemplos da demanda
Re: DÚVIDA COM UTILIZAR CONDIÇÃO SE NO VBA
Jahezer escreveu: ↑Seg Jun 22, 2020 11:30 pmBoa noite!limarauny escreveu: ↑Seg Jun 22, 2020 12:41 pm Bom dia! Estou tentando utilizar a função SE no vba. Estou puxando dados de outra planilha, e quando puxar célula vazia, quero que apareça N/D (não disponível).
Mas não estou conseguindo. Alguem pode me ajudar ?
exemplo:
i = i + 1
Cells(i, 2) = "=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)"
Se a celular for = vazia, me retorna não disponível, caso contrário me retorna o valor da célula.
Estou errando em algo ?
Fiz uma adequação, faça um teste com o seguinte código em um módulo VBA.
Caso queira aplicar a fórmula diretamente em uma célula do Excel, use:Código: Selecionar todos
Sub Teste() Dim i As Integer i = i + 1 Cells(i, 2).FormulaR1C1 = "=IF('T:\Resultados Analíticos\Produção\2020\0"" & y & "" - "" & Z & "" 2020\0"" & x & ""\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!R13C10="""",NA(),'T:\Resultados Analíticos\Produção\2020\0"" & y & "" - "" & Z & "" 2020\0"" & x & ""\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!R13C10)" End Sub
Código: Selecionar todos
=SE('T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13="";NÃO.DISP();'T:\Resultados Analíticos\Produção\2020\0" & y & " - " & Z & " 2020\0" & x & "\[DADOS JUNHO.xlsm]U 280 FBC MICRO GRA'!$J$13)
Muito Obrigado Jahezer!! Deu certo utilizando R1C1. Só retirei as aspas duplas de alguns detalhes, mas deu super certo.