Coding Cmd Button in userform

I am trying to figure out how to do the coding for a command button in a userform I've created. It has 5 textbox fields. I want the command button when clicked to transfer the data in those 5 fields to 5 specific cells in a hidden sheet. Then I also want that button to launch a word document.

Anyone know how I can go about this or where I can go that explains the specific coding?

I've tried searching with mixed confusing results & read through http://www.contextures.com/xlUserForm01.html#Top & http://www.theofficeexperts.com/down...ExcelDownloads examples.

Thanks in advance

Welcome to the Forum!

Private Sub CommandButton1_Click()
  Worksheets("Sheet2").Range("A1").Value = TextBox1.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "X:\MSWord\test.doc" & """", vbNormalFocus
  Unload Me
End Sub

I did a quick trial and while I didn't get any errors nothing seemed to happen.

This is what I have.

Private Sub CommandButton1_Click()
  Worksheets("Sheet3").Range("B2").Value = lstName.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "C:\test.txt" & """", vbNormalFocus
  Unload Me
End Sub

Private Sub CmdOrder_Click()

End Sub

What did I enter wrong?

Thanks for the help BTW!

OK, I reentered it as

Private Sub CmdOrder_Click()
Worksheets("Patient").Range("B2").Value = lstName.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "C:\test.txt" & """", vbNormalFocus
  Unload Me
End Sub

It works! Thanks a million!

However, I notice the cmd window pops up, is there a way to kill it after it launches the document?

You can hide it.

Shell "cmd /c winword " & """" & "x:\MSWord\Test.doc" & """", vbHide

Originally Posted by Kenneth Hobson

You can hide it.

Shell "cmd /c winword " & """" & "x:\MSWord\Test.doc" & """", vbHide

BTW, thank you so much! It is working perfectly now!