Hi,
ik heb 2 subs gemaakt waarin in de eerste sub argumenten worden gezet voor de 2e sub, maar ik doe denk ik iets fout want hij geeft de melding compile error / syntax error.
Weet iemand waar het fout gaat? Regel 3 "BTWexTotaal(6,15)" wordt rood.
De bovenste sub zit in een userform onder een button en de tweede zit in een module.
alvast bedankt voor het meedenken.
ik heb 2 subs gemaakt waarin in de eerste sub argumenten worden gezet voor de 2e sub, maar ik doe denk ik iets fout want hij geeft de melding compile error / syntax error.
Weet iemand waar het fout gaat? Regel 3 "BTWexTotaal(6,15)" wordt rood.
De bovenste sub zit in een userform onder een button en de tweede zit in een module.
alvast bedankt voor het meedenken.
Code:
Private Sub btnBTW_Click()
'Sheet3.Select
'frmBTW.Show
BTWexTotaal (6,15)
BtwPdfMaken
End Sub
Sub BTWexTotaal(robTest As Integer, robRange As Integer)
'robDblSumIf = Application.WorksheetFunction.SumIf(tSheet1.Range("B2:B" & lastRow), _
robStr, _
tSheet1.Range("H2:H" & lastRow))
'Set tSheet1 = ThisWorkbook.Sheets(maandStr)
Dim sumIfbtwX As Double
'Dim Robtest As Integer
Dim btwSheet As Worksheet
'Dim robRange As integer
Dim testSheet As Worksheet
Set testSheet = ThisWorkbook.Sheets("VerkoopData")
Set btwSheet = ThisWorkbook.Sheets("BTWPrint")
'robRange = 15
'Robtest = 21
sumIfbtwX = Application.WorksheetFunction.SumIf(testSheet.Range("H2:H10000"), _
robTest, _
testSheet.Range("I2:I10000"))
btwSheet.Range("G" & robRange).Value = sumIfbtwX
'MsgBox (sumIfbtwX)
End Sub