Hi

 

We have a fixed import file we run through excel for invoicing. It always has exactly 85 rows.

 

Is there a check in someway I can write to the begining of the macro if it has more or less than 85 rows it stops by displaying an error message?

 

The sheet concerned is called Main

 

Thanks in advance

First thought is that it can be imported into an empty worksheet, use a countif statement to count the rows, and if it's OK, copy it into the correct worksheet, else show an error (and delete the imported crap).

That's how I'd do it but then I'm crap at coding and I'm sure there's a more elgant way.

--

This should get you the last row of the first column:

Dim LastRow As Integer
Set Lastow = Main.Range("A65536").End(xlUp).Row

Thanks Caer

 

The problem is I dont know what to do with it once ive got it!

 

Any ideas would be really appreciated

Do with what, the code or the value it results in?

I don't know how to show an error if the row returned is less than 85 or greater 85 in the sheet Main

Oh, something like this should do it:

If LastRow <> 85 Then
    PointlessVariable = MsgBox("Number of rows is not 85.", vbOKOnly, "YOU FAIL!")
End If

You could make it a bit more helpful by showing a different message depending on whether the number of rows is less than 85, or more.

edit:
Just in case you didn't know, '<>' means 'not equal to'. Sensible languages use '!=' or '!=='.

See, knew there was a better way.

:'D

--

Thanks Caer

 

Once i knew how it was supposed to be and a little tweak here and there it works a treat.

 

If i add a line it fails and if i take one away it fails. Brilliant thanks a lot