Jump to content
amss1976

Else without if????

Recommended Posts

amss1976

Boas,

Mais uma vez venho aqui pedir ajuda. Espero não estar a abusar...  :P

Quando tento correr o seguinte código, dá-me a mensagem de "Else without if", não percebo porquê... :wallbash:

If QtLotes = 1 Then
For Row = 4 To Nartigos + 3 'condição para o lote 1
'==================
Else 'dá erro neste ELSE
'==================
Range("A65536").Select
Selection.End(xlUp).Select
For Row = ActiveCell.Row + 1 To ActiveCell.Row + 1 + Nartigos 'condição para lotes seguintes
End If

For Col = 3 To 13
Cells(Row, Col).Select
With Selection
If Col = 4 Or Col = 5 Then
    .NumberFormat = "General"
Else
If Col = 10 Then
    .NumberFormat = "0.00%"
  Else
    .NumberFormat = "$ #,##0.00"
End If
End If
End With
Next Col
Next Row

Alguma ideia?

Share this post


Link to post
Share on other sites
amss1976

Tu antes do Else tens um For que não termina (Next). Assim dá erro.

Sim, mas o "For Row = 4 To Nartigos + 3" seria a expressão a considerar se a variável QtLotes fosse 1.

O "Next  Row" estaria só no fim.

Será que se usar esta sequência consigo ter o mesmo resultado:

Dim a, b
If QtLotes = 1 Then
a = 4
b = Nartigos + 3
Else
Range("A65536").Select
Selection.End(xlUp).Select
a = ActiveCell.Row + 1
b = ActiveCell.Row + 1 + Nartigos 'condição para lotes seguintes
'For Row = 3 + Nartigos_anterior + QtLotes + 1 To Nartigos + 3 + Nartigos_anterior + QtLotes 'condição para lotes seguintes
End If

For Row = a To b
For Col = 3 To 13
Cells(Row, Col).Select
With Selection
If Col = 4 Or Col = 5 Then
    .NumberFormat = "General"
Else
If Col = 10 Then
    .NumberFormat = "0.00%"
  Else
    .NumberFormat = "$ #,##0.00"
End If
End If
End With
Next Col
Next Row

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.