No condition defined error - Trying to execute excel macros

Help
1

Dear All

I really can’t work out why my workflow stops when going from executing macro 2 to macro 3.

It puts a pencil with the macro 2 and if I hover the mouse it says No condition defined.

I wonder if it because the macro actually ends with an error, and that makes the macro fail, but when you execute the macro manually you never get obvious about the error.

The thing it does is to seperate one big sheet into different sheets automatically, when the data in coloum 1 changes.

The excel macro I trying to execute is this.:

Sub Faneopdeling_Data()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
vcol = 1 'Hvilken kolonne skal den kigge efter skift i data.
Set ws = Sheets(“Ark2”) 'Hvilket arbejdsark er kilden
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = “A1:Q1” 'Antal af rækker data der skal kopieres med over.
titlerow = ws.Range(title).Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = “Unique”
For i = 2 To lr
On Error Resume Next
If ws.Cells(i, vcol) <> “” And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter Field:=vcol, Criteria1:=myarr(i) & “”
If Not Evaluate(“=ISREF('” & myarr(i) & “'!A1)”) Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & “”
Else
Sheets(myarr(i) & “”).Move after:=Worksheets(Worksheets.Count)
End If
ws.Range(“A” & titlerow & “:A” & lr).EntireRow.Copy Sheets(myarr(i) & “”).Range(“A1”)
Sheets(myarr(i) & “”).Columns.AutoFit
Next
ws.AutoFilterMode = True
ws.Activate
ActiveSheet.ListObjects(“Restordreliste”).Range.AutoFilter Field:=1
End Sub

image
image2546×1149 204 KB

2

Anyone pls pls

3

I believe I may have found something-

Many of your double quote characters are the open or close style,
“ - Left Double Quotation Mark - U+201C
” - Right Double Quotation Mark - U+201D

However, in other places, you use the agnostic-style double quote,
" - Quotation Mark - U+0022

I know in C# this can cause all sorts of issues because the JIT compiler does not recognize left and right quotes as being quotation marks. I don’t know if VBScript behaves the same way, but I felt it was worth sharing.

Edit: For code blocks, you can use markdown notation to make it easier to read.
To create a code snippet with syntax highlighting, type:
```vb
’ code here
```
Make sure to left-align it first by selecting it, then Shift+Tab in your editor!
Example

for (var i = 0; i < 3; i++)
    Console.WriteLine(i);