gegevens toevoegen aan 2 tabbladen tegelijk

[ambie]

Hallo

Via een userform worden gegevens ingevuld in tabblad Data.
Ik ben van plan een verborgen tabblad te maken met de naam Data Controle,
Dit om controle uit te oefenen indien de tabblad Data niet wordt veranderd.

Beveiligingen zie ik niet zitten.

De code

Private Sub cmdtoevoegen_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")

invulformulier.Hide
Toevoegen91.show

'zoek de eerste lege rij in de database
irow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check voor zoekcode
If Trim(Me.ComboBox1.Value) = "" Then
    Me.ComboBox1.SetFocus
    Exit Sub
End If

ws.Cells(irow, 1).Value = Me.ComboBox1.Value
ws.Cells(irow, 2).Value = Me.ComboBox2.Value

ws.Cells(irow, 3).Value = Me.begin.Value
ws.Cells(irow, 4).Value = Me.einde.Value

ws.Cells(irow, 5).Value = Me.ComboBox3.Value

Enz .....

Kan ik bij de regel: Set ws = Worksheets("Data"),
Worksheets ("Data Controle") toevoegen???
Zodat de gegevens ook op het verborgen tabblad worden weggeschreven?

Thanks

 

[Roncancio]

Ik zou het zo doen:

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If Left(ws.Name, 4) = "Data" Then    'Indien meer dan de 2 werkbladen.

enz.

Met vriendelijke groet,


Roncancio

 

[etri]

Let er ook even op dat je de controle data sheet 'VeryHidden' maakt, want gebruikers kunnen sheet die gewoon 'Hidden' zijn (mits niet beveiligd) weer zichtbaar maken.

Voor het 'VeryHidden' maken van een sheet, ga je naar de VBA omgeving (alt+F11) en dan klikken op de sheets links (zie je geen sheets, druk dan op de toetsencombinatie CTRL+R).
In de eigenschappenvenster (evt F4 toets) zie je de eigenschap visible staan. Deze heeft 3 opties waaronder '2 - xlSheetVeryHidden'.

In code:

Sheets("MijnZeerGeheimeSheet").Visible = xlVeryHidden

 

[ambie]

Ik zou het zo doen:

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If Left(ws.Name, 4) = "Data" Then    'Indien meer dan de 2 werkbladen.

enz.

Met vriendelijke groet,


Roncancio

Lukt niet

Heb moeten volgende toevoegen

End if
Next

Vult nu in op eerste blad

Data is derde blad
Data controle is vierde blad.

 

[Roncancio]

Heb moeten volgende toevoegen

End if
 Next

Dit is ook logisch.

Er zijn meerdere wegen die naar Rome leiden.

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Index = 3 Or ws.Index = 4 Then

'        [ je code ] 

        End If
    Next

Met vriendelijke groet,


Roncancio

 

[ambie]

Roncancio, het lukt nog niet.

Hierbij zip bestand.

Alvast al bedankt voor uw hulp.

 

[Roncancio]

Roncancio, het lukt nog niet.

Hierbij zip bestand.

Alvast al bedankt voor uw hulp.

Wat gaat er eigenlijk niet goed ?

Met vriendelijke groet,


Roncancio

 

[ambie]

Wat gaat er eigenlijk niet goed ?

Met vriendelijke groet,


Roncancio

Gegevens worden wel ingevuld op tabblad Data, doch niet op tabblad Data Controle.

Bijgevoegd bestand zoals ik ze gebruik.

 

[Roncancio]

Ik zie het al.
In de code gebruik je Unload.Me.
Dat is niet verkeerd maar hierdoor wordt sluit je het invulformulier af en wordt Data controle niet gevuld.
Ik heb daardoor een gedeelte van de code uit de lus gehaald zodat het probleem als het goed is, niet meer speelt.

Met vriendelijke groet,


Roncancio

 

[ambie]

Het werkt. Bedankt Roncancio.

Good work.:thumb::thumb::thumb:

 

[Roncancio]

Het werkt. Bedankt Roncancio.

Good work.:thumb::thumb::thumb:

Mooi. Graag gedaan.
Wil je de vraag op opgelost zetten.

Bvd.

Met vriendelijke groet,


Roncancio