none
Else apresentando erro em IF RRS feed

  • Pergunta

  • Caros,

    Estou gerar um mensagem de erro para o IF no Visual Basic, está tudo funcionando corretamente como deveria, mas ao acrescentar o ELSE o mesmo apresenta erro onde antes estava ok.

    Se eu comentar o else e a linha subsequente o mesmo funciona normalmente.

                    If (Cells(linha_bdsup, 1).Value = busca_mes) Then
                        If (Cells(linha_bdsup, 3).Value = ConSup.Cells(linha_sup, 2).Value) Then
                            ConSup.Cells(linha_sup, col_mes) = Cells(linha_bdsup, cel_ind)
                        Else
                            ConSup.Cells(linha_sup, col_mes) = "ERRO"
                        End If
                    End If

    quinta-feira, 23 de maio de 2013 23:54

Respostas

  • Boa noite!

    Qual o erro que apresenta???

    Olhando assim, eu desconfio que no primeiro caso não da erro porque você adiciona uma célula a outra. No else, vc tenta adicionar uma string a uma celula... acho que pode ser isso.

    Isso em que vc está trabalhando é o que? excel? datagrid? Para ambos, a definição de valor para uma célula é: ConSup.Cells(linha_sup, col_mes).value = "ERRO"  tente fazer isso. Na parte de cima do if se não está dando erro, deve ser por causa de tipos iguais. faça um teste. tente atribuir um texto na parte de cima do if para ver se da o erro.

    Se não for isso, por favor, explique novamente seu problema.

    Att.

    Giovani

    • Marcado como Resposta LeoPenks sexta-feira, 24 de maio de 2013 00:50
    sexta-feira, 24 de maio de 2013 00:03

Todas as Respostas

  • Boa noite!

    Qual o erro que apresenta???

    Olhando assim, eu desconfio que no primeiro caso não da erro porque você adiciona uma célula a outra. No else, vc tenta adicionar uma string a uma celula... acho que pode ser isso.

    Isso em que vc está trabalhando é o que? excel? datagrid? Para ambos, a definição de valor para uma célula é: ConSup.Cells(linha_sup, col_mes).value = "ERRO"  tente fazer isso. Na parte de cima do if se não está dando erro, deve ser por causa de tipos iguais. faça um teste. tente atribuir um texto na parte de cima do if para ver se da o erro.

    Se não for isso, por favor, explique novamente seu problema.

    Att.

    Giovani

    • Marcado como Resposta LeoPenks sexta-feira, 24 de maio de 2013 00:50
    sexta-feira, 24 de maio de 2013 00:03
  • Vlws...

    Coloquei

    ConSup.Cells(linha_sup, col_mes).FormulaR1C1 = Cells(linha_bdsup, cel_ind)

    tbm... nao sei pq mais esta funcionando...

    sexta-feira, 24 de maio de 2013 00:50