• 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.

Kan ik een VBA formulier wegschrijven naar 2 verschillende sheets

Status
Niet open voor verdere reacties.
N

Nicu

Gebruiker
Lid geworden
23 jan 2012
Berichten
222
Ik wil deze info dus op 2 sheets hebben en heb onderstaande geprobeerd

HTML: 
Private Sub cmdtoevoegen3_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("opname")("opnameAPO")

HTML: 
Private Sub cmdtoevoegen3_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("opname" and "opnameAPO")

HTML: 
Private Sub cmdtoevoegen3_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("opname";"opnameAPO")

Maar dit wilde allemaal niet lukken, weet iemand de juiste oplossing?

Groet Josh
 
Op deze manier:
Code: 
Sheets("opname").Cells(iRow,1) = Textbox1.Text
Sheets("opnameAPO").Cells(iRow,1) = Textbox1.Text

Moet je iRow wel ergens een waarde geven uiteraard.
 
Laatst bewerkt:
Is er geen simpele oplossing? De data die uit het formulier komt moet naar één sheet op bewaard te blijven en op het andere sheet gaat ie gebruikt worden om weggestuurd te worden per mail. Het gaat dus om meer data dan 1 vak.
Is het niet mogelijk om naar 2 sheets dezelfde data te sturen vanuit een formulier?
 
Je kan er uiteraard 1 routine van maken die dat voor beide sheets doet met de sheetname als parameter.
 
Maar in het formulier het automatisch naar 2 sheets wegschrijven kan dus niet?
 
Als je bedoelt een gegeven op hetzelfde moment naar meerdere sheets te schrijven, nee, dat kan niet.
 
Dit is evt een mogelijkheid
Code: 
  For i = 1 To Sheets.Count
    If Sheets(i).Name = "Opname" Or Sheets(i).Name = "OpnameAPO" Then
      Sheets(i).Cells(1, 1) = TextBox1.Text
    End If
  Next
 
In je tweede les in Excel heb je al geleerd hoe je in een werkblad naar een cel in een ander werkblad kunt verwijzen.
Los in VBA niet op wat in Excel al is ingebouwd.
 
Bedoel je zoiets?

Private Sub KnopOpslaan_Click
Sheets("1").Select
dim a as long
a = WorksheetFunction.CountA(Range("A:A"))+1
Cells(a, 1).Value=TextBox1.Value
Cells(a, 2).Value=TextBox2.Value

Sheets("2").Select

a = WorksheetFunction.CountA(Range("A:A"))+1
Cells(a, 1).Value=TextBox1.Value
Cells(a, 2).Value=TextBox2.Value

End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan