VBA code verkeerd

Status
Niet open voor verdere reacties.
S

Sjort

Nieuwe gebruiker
Lid geworden
7 jun 2021
Berichten
4
Ik weet niet wat ik verkeerd doe. Maar ik wel textbox inhoud kopieren naar lege cel in aparte sheet.

Sub Commandbutton1_Opslaan()
Sheets("Dashboard").Select
[Receptcode].Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Soortelijke Gewichten").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End Sub

Receptcode is textbox moet ik die anders invullen of moet ik gehele andere vba code gebruiken
 
Naast dat je geen codetags voor het forum hebt gebruikt klopt er maar weinig van je code.
Plaats een voorbeeld documentje.
 
Zou met één regeltje code moeten kunnen. Maar zonder voorbeeldje is het lastig testen...
Code: 
Sub Commandbutton1_Opslaan()
    Sheets("Soortelijke Gewichten").Range("A1048576").End(xlUp).Offset(1, 0).Value = Sheets("Dashboard").[Receptcode].Value
End Sub
 
bedoel je zoiets

inhoud van een textbox overzetten naar een andere sheet
kolom A eerste lege cel
 

Bijlagen

  • sjort.xlsm
    23,7 KB · Weergaven: 21
Laatst bewerkt:
Wat OctaFish al suggereerde:
Code: 
Private Sub CommandButton1_Click()
    Sheets("Soortelijke Gewichten").Range("A1").End(xlDown).Offset(1, 0).Value = Sheets("Dashboard").TextBox1.Text
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan