Foutmelding "Microsoft Forms"

[goof2808]

Hi,

Ik krijg tijdens het uitvoeren van onderstaande macro deze foutmelding:
"Microsoft Forms: Er is een uitzondering op getreden"

Private Sub cmdRedenGroter3_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("data")

Application.ScreenUpdating = False

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 4).Value = Me.txtDatum.Value
ws.Cells(iRow, 5).Value = Me.cboTeam.Value
ws.Cells(iRow, 6).Value = Me.cboMerk.Value
ws.Cells(iRow, 2).Value = Me.txtTPnr.Value
ws.Cells(iRow, 7).Value = Me.cboIncomplReden1.Value
ws.Cells(iRow, 8).Value = Me.cboIncomplReden2.Value
ws.Cells(iRow, 9).Value = Me.cboIncomplReden3.Value
ws.Cells(iRow, 10).Value = Me.chbMeerDanDrie.Value

'clear the data
Me.txtDatum.Value = ""
Me.cboTeam.Value = ""
Me.cboMerk.Value = ""
Me.txtTPnr.Value = ""
Me.cboIncomplReden1.Value = ""
Me.cboIncomplReden2.Value = ""
Me.cboIncomplReden3.Value = ""
Me.chbMeerDanDrie.Value = ""
Me.chbMeerDanDrie.Value = False
Me.txtDatum.SetFocus

'datum toevoegen aan lijsten
    Sheets("Lijsten").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("A3").Select
    Sheets("Data entry").Select

'uniek nummer invoegen
    Sheets("data").Select
    Range("A65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],""_"",RC[2])"
    Sheets("data").Select
    Range("C65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="" "","" "",ROW()-1)"

'laatste tp toevoegen aan brieven
Sheets("data").Select
Range("A1").End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("brief_inc<3").Select
Range("L7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("brief_inc>3").Select
Range("L7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


'brief printen
Sheets("brief_inc>3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Data entry").Select
End Sub

Ik krijg deze melding sinds ik "brief printen" eronder heb gezet:

'brief printen
Sheets("brief_inc>3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Data entry").Select
End Sub

Kan iemand me helpen?

Thnaks,

Govi

 

[snb]

vermijd select en activate in VBA-code. Dat is 'opneem'-VBA.

Private Sub cmdRedenGroter3_Click()
  sq=split("txtTPnr|txtDatum|cboTeam|cboMerk|cboIncomplReden1|cboIncomplReden2|cboIncomplReden3|chbMeerDanDrie","|")
  st=sq
  for j=0 to ubound(sq)
    With Me(sq(j))
      st(j)=.value        ' leest waarden van userform in in matrix
      .value=""           ' maatk userformcontrols leeg
    End with
  next
  with Sheets("Data").cells(Rows.Count, 1).End(xlUp)
    Sheets("Data").range(.offset(1),.offset(1,ubound(sq)+1)=st
  End with

  Sheets("Lijsten").Range("A2")=txtdatum.value
  Sheets("brief_inc>3").PrintOut Copies:=1, Collate:=True
End Sub

 

[goof2808]

Hoi snb,

Ik krijg een foutmelding op:

Sheets("Data").range(.offset(1),.offset(1,ubound(sq)+1)=st

govi

 

[snb]

Sheets("Data").range(.offset(1),.offset(1,ubound(sq)+1)[B][COLOR="Red"])[/COLOR][/B]=st

 

[goof2808]

Inderdaad geen foutmelding meer.

Hoe de code precies werkt moet ik nog uitzoeken