gegevens wegschrijven naar verschillende sheets met 1 commandbutton

[pasan]

hallo

ik heb een userform met verschillende textboxen en comboboxen
het vullen van deze boxen gaat goed maar het wegschrijven ervan niet
het probleem dat ik heb is het volgende
nu wilde ik de zelfde gegevens en andere naar verschillende sheets kopieeren
maar met de code die ik gebruik gaat het mis, of het wordt niet netjes onder de laatste ingevulde regel geplaatst of er wordt helemaal niks gekopieerd

Private Sub CommandButton1_Click()
Dim lRow As Long
Dim ws As Worksheet

Set ws = Worksheets("blad1")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
 With ws

  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.datum1
  .Cells(lRow, 3).Value = Me.TextBox489
  .Cells(lRow, 6).Value = Me.ComboBox3
  .Cells(lRow, 7).Value = Me.TextBox234
  .Cells(lRow, 10).Value = Me.Txtdatum1



Set ws = Worksheets("blad2")
Me.Txtdatum1.Text = Format(Now, "dd/mm/yy")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox4


Set ws = Worksheets("blad3")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox5


Set ws = Worksheets("blad4")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox6

  Set ws = Worksheets("blad5")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19

      Set ws = Worksheets("blad6")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 4).Value = Me.datum1
  
End With
End With
End With
End With
End With
End With
Worksheets("start").Select
End Sub

hopelijk heeft iemand werkende code voor me

groet

Pasan:thumb:

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
Dim lRow As Long, ws As Worksheet

Set ws = Worksheets("blad1")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
 With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.datum1
  .Cells(lRow, 3).Value = Me.TextBox489
  .Cells(lRow, 6).Value = Me.ComboBox3
  .Cells(lRow, 7).Value = Me.TextBox234
  .Cells(lRow, 10).Value = Me.Txtdatum1
 End With

Set ws = Worksheets("blad2")
Me.Txtdatum1.Text = Format(Now, "dd/mm/yy")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox4
End With

Set ws = Worksheets("blad3")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox5
End With

Set ws = Worksheets("blad4")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 2).Value = Me.Txtdatum1
  .Cells(lRow, 3).Value = Me.TextBox6
End With
  
Set ws = Worksheets("blad5")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
End With

Set ws = Worksheets("blad6")
lRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
With ws
  .Cells(lRow, 1).Value = Me.ComboBox19
  .Cells(lRow, 4).Value = Me.datum1
End With
Worksheets("start").Select
End Sub

 

[pasan]

Warme bakkertje bedankt voor je reactie
ik heb jou aanpassing toegepast maar helaas ik heb vooral problemen met combobox 19 deze wordt alleen naar de eerste 3 bladen weg geschreven
hierna heb ik de volgorde aangepast naar welke bladen er word weg geschreven
Het blad met de meeste code regels boven aan en de minste onderaan en tot nu toe blijkt het te werken:shocked:
Heeft deze volgorde er iets mee te maken? of is dit toeval?

groet

Pasan:thumb:

 

[Warme bakkertje]

Dit lijkt mij eerder toevallig. Meer afhankelijk van wat er in CB19 staat denk ik en dan de manier waarop dit wordt weggeschreven.

 

[pasan]

ik denk dat ik hier nog wel op terug kom als ik de code uitgebreid heb maar vooralsnog werkt het nu wel

groet

Pasan

 

[mcs51mc]

Aha, hier is de andere helft van je opgave/project

Worden die 600 controls op een welbepaalde manier over de verschillende werkbladen verdeeld? Indien ja, dan zal je dit even moeten uitleggen en de systematiek uitleggen om tot een functionele code te komen.

Ik zou dan enkel controls voorzien voor één werkblad, en een dropdown voorzien waar de gebruiker het werkblad kan kiezen. Met één routine kopieer je dan de x controls naar de geselecteerde werkblad. De items in de dropdown kunnen de namen van de werkbladen zijn, wanneer ze iets meer zeggen dan "Blad 1", "Blad 2" enz... ...

 

[pasan]

Aha, hier is de andere helft van je opgave/project

Worden die 600 controls op een welbepaalde manier over de verschillende werkbladen verdeeld? Indien ja, dan zal je dit even moeten uitleggen en de systematiek uitleggen om tot een functionele code te komen.

Ik zou dan enkel controls voorzien voor één werkblad, en een dropdown voorzien waar de gebruiker het werkblad kan kiezen. Met één routine kopieer je dan de x controls naar de geselecteerde werkblad. De items in de dropdown kunnen de namen van de werkbladen zijn, wanneer ze iets meer zeggen dan "Blad 1", "Blad 2" enz... ...

de 600 controls hebben niks met deze vraag van doen oke het gaat wel over hetzelfde project maar tis een ander hoofdstuk zeg maar

hoop uiteraard dat je weer reageerd op de vraag over 600 controls

groet
Pasan:thumb: