none
Código resulta em erro RRS feed

  • Pergunta

  • Bom dia!

    Alguém pode me ajudar a encontrar o erro no código abaixo? Ele resulta "Else sem If"

    Obrigado!

    Sub PASSARPARAOUTRASCAPS()

    For LinhaCAP = 6 To 12
    Sheets("Importar Dados").Select
    If Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value = "" Then GoTo Continuar15

    Else
    If Right(Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value, 5) = ".xlsm" Then

    CAPANTIGA = Sheets("Importar Dados").Range("D10")
    CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value

    Else
    CAPANTIGA = Sheets("Importar Dados").Range("D10") & ".xlsm"
    CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value & ".xlsm"

    End If
    End If

    Continuar15: Next

    End Sub
    terça-feira, 19 de abril de 2016 12:53

Respostas

  • Bom dia Cezario,

    Sub PASSARPARAOUTRASCAPS() For LinhaCAP = 6 To 12

    Sheets("Importar Dados").Select

    If Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value <> "" Then

    If Right(Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value, 5) = ".xlsm" Then CAPANTIGA = Sheets("Importar Dados").Range("D10") CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value Else CAPANTIGA = Sheets("Importar Dados").Range("D10") & ".xlsm" CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value & ".xlsm" End If End If Next End Sub



    André Santo | basevba.wordpress.com

    terça-feira, 19 de abril de 2016 13:21

Todas as Respostas

  • Bom dia Cezario,

    Sub PASSARPARAOUTRASCAPS() For LinhaCAP = 6 To 12

    Sheets("Importar Dados").Select

    If Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value <> "" Then

    If Right(Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value, 5) = ".xlsm" Then CAPANTIGA = Sheets("Importar Dados").Range("D10") CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value Else CAPANTIGA = Sheets("Importar Dados").Range("D10") & ".xlsm" CAPNOVA = Sheets("Importar Dados").Cells(LinhaCAP * 2, 4).Value & ".xlsm" End If End If Next End Sub



    André Santo | basevba.wordpress.com

    terça-feira, 19 de abril de 2016 13:21
  • Perfeito André!

    Muito obrigado!

    terça-feira, 19 de abril de 2016 18:07
  • As ordens companheiro !

    André Santo | basevba.wordpress.com

    terça-feira, 19 de abril de 2016 18:17