data wegschrijven naar verschillende sheets

[bowlingman]

Hallo,
Voor de gegevens van onze leden weg te schrijven gebruik ik een frm met daarin de volgende code

Private Sub cmbWegschrijven_Click()
Application.ScreenUpdating = False
    Set c = Sheets("Leden").Columns(1).Find(cboID.Value, , xlValues, xlWhole)
            For i = 1 To 9
                c.Offset(, i) = Me("TextBox" & i).Text
            Next
cboID.Value = ""
Application.ScreenUpdating = True
End Sub

Nu zou ik graag het iDnummer uit de cboID en de naam en voornaam uit TextBoxen 1 en 2 ineens ook willen wegschrijven naar de sheet ("Team1"), waarbij dan het iD in kolom A komt te staan en de naam en voornaam samengevoegd in kolom B.
Is dit mogelijk door bovenstaande code aan te passen en zo ja, hoe dan precies.

Grtjs.
Armand

 

[sylvester-ponte]

Armand, stuur eens een minivoorbeeldje dat maakt het makkerlijker voor de helpers
groet sylvester

 

[Warme bakkertje]

Private Sub cmbWegschrijven_Click()
Application.ScreenUpdating = False
    Set c = Sheets("Leden").Columns(1).Find(cboID.Value, , xlValues, xlWhole)
            For i = 1 To 9
                c.Offset(, i) = Me("TextBox" & i).Text
            Next
    With Sheets("Team1")
        With .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            .Offset(1) = cboID.Value
            .Offset(1, 1) = TextBox1 & " " & TextBox2
        End With
    End With
cboID.Value = ""
Application.ScreenUpdating = True
End Sub

 

[bowlingman]

Sorry, voor de late reactie maar ben even uit het land geweest.
Als ik nu leden wil inbrengen, krijg ik de melding "Kan het opgegeven object niet vinden"
Heb de file bijgevoegd, maar is nog volledig in beginstadium

Bekijk bijlage Test4.xlsm

Grtjs.
Armand

 

[Niels28]

Foutmelding komt omdat textbox10 niet bestaat,
volgens mij heb je deze later vervangen door een combobox.

Niels

 

[bowlingman]

Hallo Niels,

Bedankt voor je reactie.
Inderdaad, ik heb de combobox en de textbox11 later toegevoegd en heb vergeten het nummer hiervan te veranderen.
Ik heb dit nu aangepast alsook de combobox en de textbox van plaats verwisseld en alles werkt nu goed.
Alleen is het mogelijk dat wanneer ik een id, waar reeds gegevens zijn voor ingevuld selecteer (automatisch worden dan in de txt's en cboTeam deze gegevens getoond), en ik daar dan iets verander,
de gegevens niet meer opnieuw naar de sheet "Teams1" wordt weggeschreven, vermits deze gegevens daar reeds staan.

In het voorbeeldje kan je misschien zien wat ik bedoel
Bekijk bijlage Test4.xlsm

Grtjs.
Armand

 

[Warme bakkertje]

Private Sub cmbWegschrijven_Click()
Application.ScreenUpdating = False
    Set c = Sheets("Leden").Columns(1).Find(cboID.Value, , xlValues, xlWhole)
            For i = 1 To 10
                c.Offset(, i) = Me("TextBox" & i).Text
                c.Offset(0, 11) = Me("cboTeam").Text
            Next
    With Sheets("Team1")
        If .Columns(2).Find(TextBox1 & " " & TextBox2, , xlValues, xlWhole) Is Nothing Then
        With .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            .Offset(1) = cboID.Value
            .Offset(1, 1) = TextBox1 & " " & TextBox2
        End With
        Else
        End If
    End With
cboID.Value = ""
cboTeam.Value = ""
Application.ScreenUpdating = True
End Sub

 

[bowlingman]

Bedankt Warm Bakkertje,
Werkt perfect.
Bedankt aan alle helpers, jullie zijn super
Kunnen jullie mij nog even laten weten hoe ik files die te groot zijn (ook als ze gezipt zijn) kan plaatsen, dit voor in de toekomst eventueel een voorbeeld mee te sturen.

Grtjs.
Armand

 

[Warme bakkertje]

Bestand inpakken met Winzip of Winrar.
Indien dan nog te groot dan plaatsen op bv mijnbestand.nl en de link ernaartoe hier plaatsen.

 

[bowlingman]

ok bedankt

Grtjs.
Armand