T
tinybears
Hey,
I have this problem: In my vba code there is an errorhandler that
should make a pop-up if a certain errorcode appears and continious when
there is nog problem with that kind of code. The problem now is that
when the code 1004 let's the msgbox appear, that I still get the
message because it's in a loop. How do I solve this?
thx
ErrHandler:
If Err.Number = 1004 Then
MsgBox "Gelieve het correcte tickersymbool in te geven. Indien
verdere problemen kan u altijd contact opnemen met de ontwikkelaar van
deze spreadsheet via e-mail: (e-mail address removed)."
'Voortzetten NextLine
Else
NextLine:
Windows("Thesis5").Activate
Sheets("Data").Select
'Data sorteren
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Data").Select
Do While Cells(j, 1) <> ""
For k = 1 To 7
Sheets("Data").Select
Price1(k) = Cells(j, k)
Price2(k) = Cells(j + 1, k)
Next k
If Price1(1) = Price2(1) Then
GoTo NextLoop
Else
For m = 1 To 7
Sheets("Data2").Select
Cells(l, m) = Price1(m)
Next m
l = l + 1
End If
NextLoop:
j = j + 1
Sheets("Data").Select
Loop
End If
I have this problem: In my vba code there is an errorhandler that
should make a pop-up if a certain errorcode appears and continious when
there is nog problem with that kind of code. The problem now is that
when the code 1004 let's the msgbox appear, that I still get the
message because it's in a loop. How do I solve this?
thx
ErrHandler:
If Err.Number = 1004 Then
MsgBox "Gelieve het correcte tickersymbool in te geven. Indien
verdere problemen kan u altijd contact opnemen met de ontwikkelaar van
deze spreadsheet via e-mail: (e-mail address removed)."
'Voortzetten NextLine
Else
NextLine:
Windows("Thesis5").Activate
Sheets("Data").Select
'Data sorteren
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Data").Select
Do While Cells(j, 1) <> ""
For k = 1 To 7
Sheets("Data").Select
Price1(k) = Cells(j, k)
Price2(k) = Cells(j + 1, k)
Next k
If Price1(1) = Price2(1) Then
GoTo NextLoop
Else
For m = 1 To 7
Sheets("Data2").Select
Cells(l, m) = Price1(m)
Next m
l = l + 1
End If
NextLoop:
j = j + 1
Sheets("Data").Select
Loop
End If