Thread: rng propblem
View Single Post
  #13   Report Post  
Posted to microsoft.public.excel.programming
Per Jessen[_2_] Per Jessen[_2_] is offline
external usenet poster
 
Posts: 703
Default rng propblem

Two things:

First you have to declare the RngArr() variable as public as below
(outside the module), and remove the related Dim statement:

Public rngArr() As Range

Second you have a syntax error in your macro, if values is to be
written back to column 7, then use this:

Private Sub CommandButton1_Click()
Cells(rngArr(0).Row, 7).Value = Me.TextBox1.Value
Cells(rngArr(1).Row, 7).Value = Me.TextBox2.Value
Cells(rngArr(2).Row, 7).Value = Me.TextBox3.Value
End Sub

Regards,
Per

On 25 Sep., 20:39, "Patrick C. Simonds" wrote:
I seem to be at a lose to be able to get this to write data back to the
worksheet after the the TextBoxes have been edited.

Private Sub CommandButton1_Click()
* *Cells(rngArr(0).Row,(1, 7).Value = TextBox1.Value
* *Cells(rngArr(1).Row,(1, 7).Value = TextBox2.Value
* *Cells(rngArr(2).Row,(1, 7).Value = TextBox3.Value
End Sub