1 userform en meerdere sheets

[Excel01]

ik wil 1 userform gebruiken voor 2 of meer sheets.
Gegevens en kolommen zijn identiek.
In combobox wil ik aangeven waar en in welke sheet gegevens weggeschreven worden.
weet iemand hoe ik dat moet doen.
Bekijk bijlage klanten.xlsb

 

[VenA]

Als de gegevens identiek zijn kan je het net zo goed in 1 tabblad wegschrijven.

 

[Cobbe]

Als je dan toch wil zien hoe je dat kunt doen kun je in dit bestand even kijken.

 

[Excel01]

Cobbe bedankt.
Ik heb jouw idee verwerkt in mijn bestand.
Aan de hand daarvan heb ik een vba in elkaar gezet alleen op deze manier wordt best wel groot en wil dit reduceren.
Wie weet hoe ik onderstaande kan reduceren.

Private Sub voeg_Click()
Dim iRow As Long

If cbo = "blad1" Then
iRow = Sheets("blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad1")

'.Cells(iRow, 1).Value = Me.cbo.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value

End With
End If

If cbo = "blad2" Then
iRow = Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad2")
'.Cells(iRow, 1).Value = Me.cbo.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value


End With
End If

If cbo = "blad3" Then
iRow = Sheets("blad3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad3")
'.Cells(iRow, 1).Value = Me.cbo.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value

End With
End If
End Sub

en het moet ongeveer zo uit zien:

Private Sub voeg_Click()
Dim iRow As Long

If cbo = "blad1" Then
iRow = Sheets("blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad1")

If cbo = "blad2" Then
iRow = Sheets("blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad2")

If cbo = "blad3" Then
iRow = Sheets("blad3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("blad3")
'.Cells(iRow, 1).Value = Me.cbo.Value
.Cells(iRow, 2).Value = Me.naam.Value
.Cells(iRow, 3).Value = Me.adres.Value

End With
End If
End Sub

 

[edmoor]

Zo:

Private Sub voeg_Click()
    With Sheets(cbo.Text)
        iRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        [COLOR="#008000"]'.Cells(iRow, 1).Value = cbo.Text[/COLOR]
        .Cells(iRow, 2).Value = naam.Text
        .Cells(iRow, 3).Value = adres.Text
    End With
End Sub

Uiteraard wel eerst de objecten in je userform de juiste naam geven.

 

[Jack Nouws]

of zo... listobject

 

[Excel01]

Geweldig.
Beiden bedankt.