rowsource

[avesoft]

heren

is deze rowsource aan te passen

Private Sub cmdOK_Click()
If Me.cboklant = "" Or Me.cboorderstork = "" Or Me.cbomonteurs = "" Or Me.cbowerkzaamheden = "" Then
MsgBox "Gegevens niet geheel ingevuld": Exit Sub
End If

Dim lRow As Long, ws As Worksheet
Set ws = Worksheets("ingevoerde gegevens")
lRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = Me.txtorderstork
.Cells(lRow, 2).Value = Me.cboklant
.Cells(lRow, 3).Value = Me.cbocontactpersoon
.Cells(lRow, 4).Value = Me.cboadres
.Cells(lRow, 5).Value = Me.txtorderklant
.Cells(lRow, 6).Value = Me.cbowerkzaamheden
.Cells(lRow, 7).Value = Me.txteigenomschrijving
.Cells(lRow, 8).Value = Me.cbooproep
.Cells(lRow, 9).Value = Me.cbomonteurs
.Cells(lRow, 10).Value = Me.cboweeknummers
.Cells(lRow, 11).Value = Me.cboweekdag
.Cells(lRow, 12).Value = Me.cbovast
.Cells(lRow, 13).Value = Me.txturen
End With

Set ws = Worksheets("projectopslag")
lRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
With ws
.Cells(lRow, 1).Value = Me.txtorderstork
.Cells(lRow, 2).Value = Me.cbovast
.Cells(lRow, 3).Value = Me.cbomonteurs
End With

'Maak de data leeg
Me.cboklant.Value = ""
Me.cbocontactpersoon = ""
Me.cboadres.Value = ""
Me.txtorderklant.Value = ""
Me.txtorderstork.Value = ""
Me.cbowerkzaamheden.Value = ""
Me.txteigenomschrijving.Value = ""
Me.cbooproep.Value = ""
Me.cbomonteurs.Value = ""
Me.cboweeknummers.Value = ""
Me.cboweekdag.Value = ""
Me.cbovast.Value = ""
Me.cboweekdag.Value = ""
Me.txturen.Value = ""
Me.cboklant.SetFocus
End Sub

Nu zet hij het weg op 2 bladen (eerste lege rij) nu zou ik graag nog een blad willen selecteren via een combobox
Dan bv wegzetten naar vanaf cel b39,d39,s39, (vrije keus) maar ik struikel op dat in die rij al gegevens staan en op de combobox

Gr arie

 

[ExcelAmateur]

avesoft,

Zou je zo vriendelijk willen zijn om je code te selecteren en dan boven in het menu op # te klikken.
Dan komt de code in een apart vak te staan en is beter leesbaar, dank u. :thumb:

 

[avesoft]

niet gelukt , ik pas het zo aan

gr

 

[avesoft]

Private Sub cmdOK_Click()

If Me.cboklant = "" Or Me.cboorderstork = "" Or Me.cbomonteurs = "" Or Me.cbowerkzaamheden = "" Then
MsgBox "Gegevens niet geheel ingevuld": Exit Sub
End If


Dim lRow As Long, ws As Worksheet

Set ws = Worksheets("ingevoerde gegevens")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.txtorderstork
  .Cells(lRow, 2).Value = Me.cboklant
  .Cells(lRow, 3).Value = Me.cbocontactpersoon
  .Cells(lRow, 4).Value = Me.cboadres
  .Cells(lRow, 5).Value = Me.txtorderklant
  .Cells(lRow, 6).Value = Me.cbowerkzaamheden
  .Cells(lRow, 7).Value = Me.txteigenomschrijving
  .Cells(lRow, 8).Value = Me.cbooproep
  .Cells(lRow, 9).Value = Me.cbomonteurs
  .Cells(lRow, 10).Value = Me.cboweeknummers
  .Cells(lRow, 11).Value = Me.cboweekdag
  .Cells(lRow, 12).Value = Me.cbovast
  .Cells(lRow, 13).Value = Me.txturen
  End With
 
Set ws = Worksheets("projectopslag")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.txtorderstork
  .Cells(lRow, 2).Value = Me.cbovast
  .Cells(lRow, 3).Value = Me.cbomonteurs
 End With


 
 'Maak de data leeg
Me.cboklant.Value = ""
Me.cbocontactpersoon = ""
Me.cboadres.Value = ""
Me.txtorderklant.Value = ""
Me.txtorderstork.Value = ""
Me.cbowerkzaamheden.Value = ""
Me.txteigenomschrijving.Value = ""
Me.cbooproep.Value = ""
Me.cbomonteurs.Value = ""
Me.cboweeknummers.Value = ""
Me.cboweekdag.Value = ""
Me.cbovast.Value = ""
Me.cboweekdag.Value = ""
Me.txturen.Value = ""
Me.cboklant.SetFocus

End Sub

heeft even geduurt

AE