HammerJohn
Gebruiker
- Lid geworden
- 27 apr 2016
- Berichten
- 173
Goedemiddag
Ik heb een macro die als button gewoon werkt, en doet wat ik graag wil doen. Maar nu wil ik deze in het
userform plaatsen omdat ik van de vervelende button af wil.
Ik heb de code nu aan een button in het userform gehangen alleen nu krijg ik de volgende melding
variabele niet gedefinieerd.
heb geen idee waarom dat is.... en zo een expert in VBA ben ik niet.... kan iemand mij op weg helpen.
Ik heb een macro die als button gewoon werkt, en doet wat ik graag wil doen. Maar nu wil ik deze in het
userform plaatsen omdat ik van de vervelende button af wil.
Ik heb de code nu aan een button in het userform gehangen alleen nu krijg ik de volgende melding
variabele niet gedefinieerd.
heb geen idee waarom dat is.... en zo een expert in VBA ben ik niet.... kan iemand mij op weg helpen.
Code:
Private Sub CommandButton350_Click()
c00 = "c:\Planning 50I50\uren2018.xlsm"
Range("A1").Select
Selection.AutoFilter Field:=1, Visibledropdown:=False
ActiveWindow.DisplayHeadings = True
Application.DisplayNoteIndicator = True
Application.DisplayStatusBar = True
Application.DisplayFullScreen = False
Sheets("urenlijst").Columns.EntireColumn.Hidden = False
Sheets("urenlijst").Columns("B:G").EntireColumn.Hidden = False
Sheets("urenlijst").Columns("CP:CR").EntireColumn.Hidden = False
Rows("87").Select
Selection.EntireRow.Hidden = False
Rows("108").Select
Selection.EntireRow.Hidden = False
ActiveWindow.Zoom = 100
Range("A1").Select
Application.ScreenUpdating = False
With Range("A3:CQ" & Cells(Rows.Count, 1).End(xlUp).Row)
.AutoFilter 95, "ja"
.Offset(1).Resize(, 94).Copy
Workbooks.Open c00
Sheets("Uren").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Paste:=x1pasteFormat, Paste:=xlPasteAllUsingSourceTheme
ActiveWorkbook.Close True
.AutoFilter
End With
End Sub