Vanuit userform op meerdere sheets gegevens plaatsen

[Bendepater]

Wie kan mij helpen met bijgaand voorbeeld. Ik wil graag door middel van een check in de dropdown lijst op 1 of meerdere sheets gegevens bijschrijven. Ik heb lopen stoeien met de VBA maar kom er niet uit. Ik dacht zelf ongeveer zo:
If soort = "naar blad 1 en 2" Then
Set MyRange = Worksheets(Array("blad1", "blad2"))

maar helaas gaat dat niet werken.

Bekijk bijlage Map1_test.xlsm

 

[ExcelAmateur]

Bendepater,

Kijk hier eens voor een begin en dit kun je dan misschien zelf uitbreiden.

 

[Bendepater]

Hoi ExelAmateur,

Ik heb gekeken en kom daar niet echt uit, ik kan nergens iets vinden waar het bv. op 2 sheets wordt weggeschreven vanuit het userform. Wat ik graag wil is dat men via de eerste dropdown box een item selecteert en bij het wegschrijven er dan voor zorgt dat dit of op 1 sheet gebeurd of juist op 2 verschillende sheets. Of is dit niet mogelijk?


gr,

Ben

 

[ronald1986]

If ComboBox1 = "waarde 1" Then
Sheets("sheet1").Range("A1") = TextBox1.Value
Else
End If

If ComboBox1 = "Waarde2" Then
Sheets("Sheet2").Range("A1") = TextBox1.Value
Else
End If

Op deze manier zou ik het met mijn gebrekkige kennis van VBA doen, maar er zal ongetwijfeld een kortere manier zijn...

Mvg, Ronald

 

[Bendepater]

Ronald1986,

Na flink zoeken ben ik eruit gekomen.. Misschien wat omslachtig maar het werk perfect.
De code is als volgt:

Private Sub voegtoe_Click()
Dim iRow As Long

iRow = Sheets("blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad1")
.Cells(iRow, 1).Value = Me.soort.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value
.Cells(iRow, 4).Value = Me.bijzonderheden.Value

End With

If soort = "naar blad 1" Then Voeggegevenstoe.Hide
Unload Me

If soort = "naar blad 1 en 2" Then
iRow = Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad2")
.Cells(iRow, 1).Value = Me.soort.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value
.Cells(iRow, 4).Value = Me.bijzonderheden.Value

If soort = "naar blad 1 en 2" Then Voeggegevenstoe.Hide
Unload Me
End With

ElseIf soort = "naar blad 1 en 3" Then
iRow = Sheets("blad3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad3")
.Cells(iRow, 1).Value = Me.soort.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value
.Cells(iRow, 4).Value = Me.bijzonderheden.Value
End
End With
Voeggegevenstoe.Hide
End If
End Sub