userform naar 2de sheet

[ACER10]

Ik ben van zin een kleine Excel file te maken om via een userform waar er
een combobox met keuze lijst en een Textbox met een zelf ingevoerd getal te maken.
Geen probleem om beide ingevoerde gegevens op een sheet te plaatsen...
via een knop wordt alles op de goede plaats weggeschreven.
Maar... ik zou deze gegevens ook op een bepaalde plaats op een andere sheet
willen plaatsen terzelfdertijd door op die knop te drukken... kan dit ? en hoe?

Ik heb nog geen voorbeeld gemaakt, dus ik kan het hier niet posten.

Ed

 

[gast0660]

Geen probleem om beide ingevoerde gegevens op een sheet te plaatsen...
via een knop wordt alles op de goede plaats weggeschreven.

Daar kan je geen voorbeeld van maken?

 

[mvdvlist]

Bijvoorbeeld:

Private Sub CommandButton1_Click()
 Dim A as Long
  A = Worksheetfunction.Counta(Blad1.Range("A:A"))+1
   Blad1.Cells(A,1).Value = TextBox1.value
   Blad1.cells(A,2).Value = TextBox2.Value

Dim B as Long
 B = Worksheetfunction.Counta(Blad2.Range("A:A"))+1
  Blad2.Cells(B,1).Value = TextBox1.value
  Blad2.cells(B,2).Value = TextBox2.Value
End Sub

Dus gewoon twee keer (bijna) dezelfde code naar twee verschillende bladen.
De code Blad1 kun je ook vervangen door Sheets("Huppelepup")

 

[ACER10]

voorbeeldje

Ik heb rap een voorbeeldje gemaakt, je ziet dat de invoer mooi naar Blad2 is weggeschreven, maar hoe kan ik nu ook op blad Dagblad (GEEL VAK)
Dezelfde gegevens van combobox en Textbox krijgen na in drukken BEWAAR op Userform1 ?....

Bekijk bijlage test voor HELP.xls

 

[gast0660]

Als je de namen vooraf invult in het gele kader kan je volgende code gebruiken.
Deze code zoekt de naam en zet er het bedrag bij.
Dezelfde naam kan geen twee maal voorkomen.
Opgepast, de namen moeten identiek zijn met diegene in de combobox.
voeg de code toe op het einde van je bestaande macro

Set ws = Worksheets("Dagblad")
Set Rng = ws.Range("N19:N34")[COLOR="#008000"]' deze range is volgens uw voorbeeld[/COLOR]
Set fnd = Rng.Find(What:=ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not fnd Is Nothing Then
    ws.Cells(fnd.Row, 13).Value = ws.Cells(fnd.Row, 13).Value + TextBox1.Value
End If

 

[ACER10]

Bedankt

Alles werkt zeer goed, bedankt.
Ik heb weer wat bijgeleerd.

 

[gast0660]

Mooi zo:thumb: