Jag har från xl öppnat en vb application som hämtar data från en databas i SQL-server, till ett antal textboxar. Nu skulle jag vilja skriva ut all text i text boxarna till specifika celler i ett excel blad med en knapp i vb'n.

Hej,

Min knapp heter "CommandButton1" min textruta heter "TextBox" båda ligger i arket "Sheet1". När jag tryker på knappen hamnar det som står i "TextBox" i cell A1.

Private Sub CommandButton1_Click()

Worksheets("Sheet1").Range("A1") = TextBox.Value
End Sub



Det borde fungera....det gör det för mig!

/John

TACK SÅ MYCKET! NU ÄR DET ETT LITET PROBLEM KVAR. DÅ JAG TRYCKER PÅ KNAPPEN OCH VÄRDEN FRÅN TEXTBOXARNA SKICKAS TILL CELLERNA SÅ VILL JAG ATT DEN SKRIVER UT SIDAN AUTOMATISKT. HUR GÖR JAG?

Detta bör fungera

Worksheets("Sheet1").PrintOut