Dag allemaal,
Toen ik net wat (oude) code wou aanpassen viel mij een fout op.
Hoewel ik thisWordbook definieer doe ik er verder helemaal niks mee.
Tegenwoordig gebruik ik eigenlijk standaard "With thisWorkbook" of iets dergelijks.
Het gros van mijn macro's/code blijft toch binnen de zelfde Excel...
Dit heeft de laatste jaren nooit tot fouten geleid... denk/hoop ik.
Mag ik hier uit opmaken dat als de code binnen een workbook blijft je niet
expliciet een workbook hoeft te definiëren? Dat dacht ik wel namelijk.
Ps: dit is zo ongeveer de eerste macro die ik gemaakt heb.
Het kan allemaal een stuk netter, maar het werkt naar behoren.
...en de zelfde basis is voor vele tientallen werkbladen gebruikt.
Toen ik net wat (oude) code wou aanpassen viel mij een fout op.
Hoewel ik thisWordbook definieer doe ik er verder helemaal niks mee.
Tegenwoordig gebruik ik eigenlijk standaard "With thisWorkbook" of iets dergelijks.
Het gros van mijn macro's/code blijft toch binnen de zelfde Excel...
Dit heeft de laatste jaren nooit tot fouten geleid... denk/hoop ik.
Mag ik hier uit opmaken dat als de code binnen een workbook blijft je niet
expliciet een workbook hoeft te definiëren? Dat dacht ik wel namelijk.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| Sub Groslijst() Dim i As Integer, j As Integer, y As Integer, TpN As Integer: y = 1 Dim max As Long Dim wsTPL As Worksheet, wsGroslijst As Worksheet, wsGroslijst_VB As Worksheet Dim wb As Workbook Dim cellAL As Range Set wsTPL = Sheets("tappuntenlijst") Set wsGroslijst = Sheets("Groslijst") Set wsGroslijst_VB = Sheets("Groslijst_VB") Set wb = ThisWorkbook <-------------------------------------------------------------- ?????????? j = 4 'Eerste rij max = WorksheetFunction.max(wsTPL.Range("A5:A1500")) 'aantal rijen op invulblad For i = 5 To max + 5 Set cellAL = wsTPL.Cells(i, "AC") If cellAL.Value = "X" Then TpN = wsTPL.Cells(i, "A").Value + 8 wsGroslijst.Cells(j, "B").Value = wsGroslijst_VB.Cells(TpN, "P").Value j = j + 1 y = y + 1 End If Next i End Sub |
Ps: dit is zo ongeveer de eerste macro die ik gemaakt heb.
Het kan allemaal een stuk netter, maar het werkt naar behoren.
...en de zelfde basis is voor vele tientallen werkbladen gebruikt.