when no more keep userform up

[ndendrinos]

Private Sub CommandButton1_Click()

Dim myC As Range
Set myC = Worksheets("Invoice").Range("D17:D35").Find(UserForm1.TextBox2.Text)
If myC Is Nothing Then
MsgBox UserForm1.TextBox2.Text & " was not found."
Else
myC(1, -1).Value = UserForm1.TextBox1.Value  'Pick up the cell to the left
Unload UserForm1
End If

End Sub

Hello above code meets my requirements but I need to keep the userform up
to be able to click on a command button and do one last procedure.

The existing "Unload Userform1" for now has to stay where it is.

 

[stnkynts]

Not sure why the Unload has to stay but maybe add UserForm1.Show right after it to bring it back up.

 

[ndendrinos]

sorry stnkynts that will not do

 

[JimSnyder]

Can you give more detail? Why does the unload have to happen? Just hunting for a handle on what you really need...

 

[ndendrinos]

Jim
not ignoring your question but working on the problem and nearing a solution.
I will post further and will upload the file on Box.net when all is OK

 

[ndendrinos]

solved this problem and created a new one.
see this link if interested and thank you both for your replies

http://www.mrexcel.com/forum/showthread.php?t=534491