Solved

Problem to the message

Posted on 2016-07-28
13
62 Views
Last Modified: 2016-07-28
Hi,
It is strange that, it is showing the message by 'Msgbox' below, while the 2nd and 3rd Debug.print is not showing anything below.
        With Worksheets("Main Sheet").Range(copyRange)
            Set c = .Find(Month0, LookIn:=xlValues)
            Debug.Print Month0
            If Not c Is Nothing Then
            Debug.Print "xc" & CStr(c.Row)
            Debug.Print Format(Worksheets("Main Sheet").Cells(c.Row, 8).Value, "yyyy/MM") & "mm" & Format(Worksheets("Month Status").Cells(i, 4).Value, "yyyy/MM")
            If Trim(Format(Worksheets("Main Sheet").Cells(c.Row, 8).Value, "yyyy/MM")) <> "" Then
            If Format(Worksheets("Main Sheet").Cells(c.Row, 8).Value, "yyyy/MM") = Format(Worksheets("Month Status").Cells(i, 4).Value, "yyyy/MM") Then
                MsgBox "You cannot copy record of a closed month.", vbExclamation, "Month is closed!"
                Exit Sub
                
            End If
            End If
            End If
    
        End With

Open in new window

0
Comment
Question by:HuaMinChen
13 Comments
 
LVL 76

Expert Comment

by:GrahamSkan
Comment Utility
Put a Breakpoint (F9) on line 1. When the code breaks there, press F8 to step through the code until the message is displayed. That should show you which lines are being executed.

(I suspect that you have some similar code somewhere else in the procedure)
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
I did search the whole workbook and there is no similar Msgbox line in other places.
I re-try and really the above Msgbox line is being displayed while 2nd and 3rd debug line is not showing anything.
0
 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
Skip the first print (e.g. comment it out), and then see if that changes the output.
are you certain that the first print displays something?
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
Yes, 1st debug line is printing out one line, while 2nd and 3rd debug line is not.

I comment out 1st debug line then I've got the same problem again.

I'm using Excel 2010.
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
Comment Utility
Open your workbook, open VBA editor --. Press Ctrl+G to open Immediate Window and in there just type Debug.Print "xc" and press Enter.

Is xc returned in the immediate window?
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
Many thanks to all.
I get
5m.pngdue to last line below
   Dim copyRange As Range, pasteRange As Range
   Dim Message0 As String
   'On Error Resume Next
...
        With Worksheets("Main Sheet").Range(copyRange)

Open in new window


as I've just commented out 3rd line in above.
0
6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
??? the Debug output is not corresponding to code ...
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
Since the resume line is bypassing the error encountered, before this.
0
 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
The debug output we see in the Immediate window is from prior runs (with On Error Resume Next active)?
If so, we'll ignore that.

The With references to a specific worksheet, to check for the range selected by the user on prompt. Why? The Range object should already have all required references.
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
Yes, before this, that resume line is on. Please now leave my original query.

How to resolve the current problem as shown?
0
 
LVL 68

Accepted Solution

by:
Qlemo earned 500 total points
Comment Utility
Just use the Range object as-is. With Worksheets("Main Sheet").Range(copyRange) is With copyRange then.
0
 
LVL 10

Author Comment

by:HuaMinChen
Comment Utility
Yes, the error is due to such Range line, while copyRange is having

$20:$20

inside.
0
 
LVL 68

Expert Comment

by:Qlemo
Comment Utility
I've tested it with an empty workbook, and I'm correct. Do as suggested in https:#a41732940.
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Outlook Free & Paid Tools
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now