• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Invoergegevens verwerken op juiste sheet

Status
Niet open voor verdere reacties.
J

JosEindhoven

Gebruiker
Lid geworden
4 dec 2014
Berichten
431
Hallo

Ik heb een gegevensbestand met gegevens op verschillende sheets. Nu heb ik een invulformulier gemaakt maar ik krijg het niet voor elkaar om de gegevens op de juiste sheet te krijgen op het moment dat ik op verwerken klik.

Iemand enig idee ????
 

Bijlagen

  • Invoeren.xlsb
    264,6 KB · Weergaven: 53
Bijvoorbeeld:
Code: 
With Sheets("Tenten")
    LR = .Range("A1").CurrentRegion.Rows.Count + 1
    .Range("B" & LR) = TBmodel.Text    [COLOR="#008000"]'Model[/COLOR]
    .Range("C" & LR) = TextBox6.Text   [COLOR="#008000"]'Maat[/COLOR]
End With
 
Hoi Edmoor

Als ik op het formulier iets in geef zet hij de gegevens op de eerste sheet ( in dit geval Tenten)
Er zou dus een mogelijkheid moeten zijn om de gegevens ook in de laatste sheet (Nieuw) te kunnen plaatsen
 
En dit maakt niet duidelijk wat je moet doen om het op een ander werkblad te laten werken?
Code: 
With Sheets("Tenten")
 
Zo kom je ook al een eind
Code: 
 Private Sub CommandButton2_Click()
Dim ctrl As Control
With Sheets(CBsheet.Value)
    .Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 5) = Array(TBmodel.Text, TextBox6.Value, TextBox4.Text, TextBox3.Value, TextBox2.Value)
End With
MsgBox "Gegevens zijn bij " & CBsheet.Value & " opgeslagen", vbInformation, "Klaar"

  For Each ctrl In Controls
    If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
  Next ctrl
  CBsheet.ListIndex = -1
End Sub
Private Sub UserForm_Initialize()
CBsheet.List = Array("Tenten", "Luifels", "Verhuur tenten", "Verhuur luifels", "Diversen", "Nieuw")
End Sub

Ik heb opgemerkt dat je kolomkoppen op alle tabbladen niet hetzelfde zijn.
Ook zijn alle velden in de B-Kolom niet leeg.
 
Laatst bewerkt:
Dat is me wel duidelijk, wat ik echter bedoel is als ik iets heb ingevoerd ik de keuze kan maken op welke sheet het neer gezet moet worden
 
Daar verwijst je combobox naar.
Code: 
With Sheets(CBsheet.Value)
 
Laatst bewerkt:
Bericht was voor Edmoor Jack. Met jou oplossing kan ik vooruit. Top Bedankt
 
Laatst bewerkt:
En wie is nik nu weer?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan