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

Kopieren textboxen naar excel blad 1

Status
Niet open voor verdere reacties.
S

schuul689

Gebruiker
Lid geworden
31 jul 2019
Berichten
10
Goedenavond,

Ik wil mijn textboxen in de Userform "Mainmenu" (zie bestandje) kopieren naar "blad 1" en dat als ik meerdere orders heb dat deze op de excel sheet "Blad1" op de volgende rij erbij gezet word bijvoorbeeld: Op blad 1 komt de eerste order op lijn 3 en de volgende moet op lijn 4 komen.

Alvast bedankt.

Mvg
Peter
 

Bijlagen

Onder een knop in Userform Mainmenu deze code :

Code: 
Private Sub CommandButton1_Click()
       Dim LastRow As Object
       Set LastRow = Sheets("Blad1").Range("A10002").End(xlUp)
        LastRow.Offset(1, 0).value = TextBox1.value
        LastRow.Offset(1, 1).value = TextBox2.value
        LastRow.Offset(1, 2).value = TextBox3.value
        LastRow.Offset(1, 3).value = TextBox4.value
        LastRow.Offset(1, 4).value = TextBox5.value
        LastRow.Offset(1, 5).value = TextBox6.value
        LastRow.Offset(1, 6).value = TextBox7.value
        LastRow.Offset(1, 7).value = TextBox8.value
        LastRow.Offset(1, 8).value = TextBox9.value
        'Enzovoort
End Sub

TextBox nummers uiteraard aanpassen naar jouw volgorde
 
Stop het in een array, heb je aan een regelcode genoeg.
 
Goedenavond allen,

Bedankt voor de snelle reactie, maar:

Loek010 - ik heb jou code geprobeerd maar dan geeft hij bij 2e lijn een foutmelding (althans die word geel.).
HSV - Wat is een array.

Ik ben in dit soort dingen echt een nitwit.

mvg
Peter
 
De resize(,3) in de code staat voor het aantal textboxen.
Bv:
Code: 
resize(,5) = array(tetxbox1.value,textbox2.value,textbox3.value,textbox4.value,textbox5.value)
Code: 
Private Sub CommandButton1_Click()
       Sheets("Blad1").cells(rows.count,1).End(xlUp).offset(1).resize(,[COLOR=#ff0000]3[/COLOR]) = array([COLOR=#ff0000]textbox1.value,textbox2.value,textbox3.value[/COLOR])
end sub
 
Om je textboxen te legen
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]For i = 2 To 35 [COLOR="#008000"] 'maak textboxen 2 t/m 35 leeg[/COLOR]
  Me("TextBox" & i) = ""
Next
[/FONT]
of...
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]For Each ct In Controls  [COLOR="#008000"]'maak alle textboxen leeg[/COLOR]
  If TypeName(ct) = "TextBox" Then ct.Value = ""
Next ct
[/FONT]
 
Laatst bewerkt:
Probeer het zo eens zie voorbeeld :

Code: 
Private Sub CommandButton29_Click()
Dim LastRow As Object
Set LastRow = Sheets("Blad1").Range("A10002").End(xlUp)
        LastRow.Offset(1, 0).Value = CDate(TextBox17.Value) 'is kolom A in blad1
        LastRow.Offset(1, 1).Value = TextBox18.Text 'is kolom B in blad1
        LastRow.Offset(1, 2).Value = TextBox2.Text 'is kolom C in blad1
        LastRow.Offset(1, 3).Value = TextBox3.Text 'is kolom D in blad1
        LastRow.Offset(1, 4).Value = TextBox4.Text 'is kolom E in blad1
        LastRow.Offset(1, 6).Value = TextBox5.Text 'is kolom F in blad1
        LastRow.Offset(1, 7).Value = TextBox14.Text 'is kolom G in blad1
        LastRow.Offset(1, 9).Value = TextBox15.Text 'is kolom H in blad1
        LastRow.Offset(1, 11).Value = TextBox16.Text 'is kolom I in blad1
         'enzovoort Rest van de textboxen LastRow.Offset(1, 12).Value = TextBox?.Text 'is kolom J in blad1       
End Sub

ik heb de eerste paar textboxnummers aangepast naar de volgorde om in sheet1 in de juiste kolom te plaatsen
de rest moet je zelf maar aanpassen
 

Bijlagen

Laatst bewerkt:
Kijk verder dan je neus lang is, op zoveel schrijfwerk zit je niet te wachten toch?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan