Change the first line of the code to -> Dim RowsMoved As Long [Integer ->
Long]
It will be better if you break the message inside the msgbox to make it
readable (sorry for unsolicited suggestion).
Regards,
Akhilesh Kumar Karna
On Thu, Feb 5, 2009 at 12:40 AM, TimoHubbard <tim.hubb...@gmail.com> wrote:
>
> Can anyone help me with this code block? I am getting an 'overflow'
> error when I run this code. Can someone help me determine where the
> overflow is occuring? Is it the text that I put into the MsgBox?
>
> I'm running Excel 2000.
>
>
>
> '-------------------------------------------------------------------------------------
> Dim RowsMoved As Integer
> Dim ShowErrorsPage As Boolean
> Dim RowsToImport As Integer
>
> RowsMoved = 3794
> RowsToImport = 3793
>
> ShowErrorsPage = MsgBox("There were " & RowsMoved & " errors (" & Round
> (100 * RowsMoved / RowsToImport, 2) & "%) of " & RowsToImport & " rows
> imported. Do you want to view these errors now?", vbYesNo)
>
> '-------------------------------------------------------------------------------------
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
If you find any spam message in the group, please send an email to Ayush @
jainayus...@gmail.com
-~----------~----~----~----~------~----~------~--~---
