Rap261
Gebruiker
- Lid geworden
- 2 sep 2008
- Berichten
- 273
Hoi,
Hier een korte code om teksten die in een TekstBox worden gezet in een Excelsheet te plaatsen. hang deze code onder een CommandButton.
Handig voor b.v. invul sheets (Orderformulieren, Rapportages enz)
Verander de Range ("A1") naar eigen wens en klaar is kees
Succes
Hier een korte code om teksten die in een TekstBox worden gezet in een Excelsheet te plaatsen. hang deze code onder een CommandButton.
Handig voor b.v. invul sheets (Orderformulieren, Rapportages enz)
Code:
Private Sub CommandButton1_Click()
Range("A1").Value = TextBox1.Value
End Sub
Verander de Range ("A1") naar eigen wens en klaar is kees
Succes