Userform problemen

[ronbb2]

Hallo allen,

Druk bezig met userform. Echter loop ik tegen 1 probleem aan.

Elke keer als ik data invoer middels een userform dan opent hij in excel automatisch de sheet waarin de data verwerkt wordt. Ik wil dat hij na verwerken gewoon op de hoofdpagina blijft.

Kan helaas geen bestand toevoegen ivm aantal KB.

Hoop dat er toch iemand is die een oplossing heeft.

Alvast bedankt.

 

[edmoor]

Daar is zo niks over te zeggen. Sla je document op als .xlsb en plaats deze dan hier.
Of plaats hem desnoods op een filehost, zoals bijvoorbeeld TinyUpload:
http://www.tinyupload.com/

en plaats hier dan de link.

 

[ronbb2]

Ik heb het bestand kleiner kunnen maken.

Bij deze dus toegevoegd.

 

[edmoor]

Probeer deze eens:

Private Sub cmdToevoegen_Click()
    Dim emptyRow As Long

    With Sheets("Blad1")
       'Determine emptyRow
       emptyRow = WorksheetFunction.CountA(.Range("A:A")) + 1
           
       'Transfer information
       .Cells(emptyRow, 1).Value = txtTegenstander.Value
       .Cells(emptyRow, 2).Value = cmbSingle1.Value
       .Cells(emptyRow, 3).Value = cmbSingle2.Value
       .Cells(emptyRow, 4).Value = cmbSingle3.Value
       .Cells(emptyRow, 5).Value = cmbSingle4.Value
       .Cells(emptyRow, 6).Value = cmbKoppel1.Value
       .Cells(emptyRow, 7).Value = cmbKoppel2.Value
       .Cells(emptyRow, 8).Value = cmbKoppel3.Value
       .Cells(emptyRow, 9).Value = cmbKoppel4.Value
       .Cells(emptyRow, 10).Value = cmbBiergame.Value
       .Cells(emptyRow, 11).Value = cmbSolo.Value
    End With
End Sub

 

[ronbb2]

Werkt helaas niet. VBA geeft een foutcode bij regel ; With Sheets("Blad1")

 

[edmoor]

Die code werkt prima in het document dat je zelf plaatste.
Als je de code in een ander document plaatst moet je uiteraard wel "Blad1" aanpassen naar het blad dat je wilt gebruiken.

 

[ronbb2]

Ik zie al waar het probleem in zit. De versie die ik heb bijgevoegd is blanco. Op de macro na dan.

Hij werkt nu, echter nog niet naar behoren. Met het huidige bestand wil ik graag dat hij de data wegschrijft op blad1, en dan hij blad3 laat zien. Zou jij mij nog kunnen helpen met dat stukje code ?

 

[snb]

Kan dat niet simpeler?

Private Sub cmdToevoegen_Click()
  Sheets("Blad1").cells(rows.count,1).end(xlup).offset(1).resize(,11)=array(txtTegenstander,cmbSingle1,cmbSingle2,mbSingle3,cmbSingle4,cmbKoppel1,cmbKoppel2,cmbKoppel3,cmbKoppel4,cmbBiergame,cmbSolo)
End Sub

Als je de namgeving van de userformcontrols aanpast kan het ook zo:

Private Sub cmdToevoegen_Click()
  Sheets("Blad1").cells(rows.count,1).end(xlup).offset(1).resize(,11)=array(T_01,T_02,T_03,T_04,T_05,T_06,T_07,T_08,T_09,T_10,T_11)
End Sub

 

[ronbb2]

Simpelweg omdat mijn kennis met Excel heel beperkt is (met name macro's/VBA). De code die ik op dit moment gebruik heb ik simpelweg overgenomen

Het lukt mij echter nog steeds niet (om met mijn huidige code) de date weg te laten schrijven op blad1 maar dat hij standaard op bijv. blad3 blijft staan

Elke keer na het invoeren van de date springt hij automatisch naar het blad waar de data wordt ingevoerd

 

[Haije]

voeg voor End Sub toe:

sheets("Blad3").Select

 

[ronbb2]

Doet het! Mijn dank is groot