Refedit copy paste problem?
 

My userform consists of a refedit box and a command button..after
selecting the range with the refedit box i want to paste the selected
range from cell "E1"...everything works perfectly but it does not paste
the selected range into "E1".....i used the following code:

Private Sub CommandButton1_Click()
With Range(RefEdit1)
Copy
Range("e1").PasteSpecial
End With
End Sub

I will appriciate some help

Thanks
Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=559831

Refedit copy paste problem?
 

Got it right....i must change my code from:

Private Sub CommandButton1_Click()
With Range(RefEdit1)
Copy
Range("e1").PasteSpecial
End With
End Sub
to:
Private Sub CommandButton1_Click()
sheet13.Range(RefEdit1).select
selection.copy
sheet13.Range("e1").selects
selection.pastespecial

End Sub

Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=559831

Refedit copy paste problem?
 

Got it right....i must change my code from:

Private Sub CommandButton1_Click()
With Range(RefEdit1)
Copy
Range("e1").PasteSpecial
End With
End Sub
to:
Private Sub CommandButton1_Click()
sheet13.Range(RefEdit1).select
selection.copy
sheet13.Range("e1").selects
selection.pastespecial
End With
End Sub

Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=559831

Refedit copy paste problem?
 

Got it right....i must change my code from:

Private Sub CommandButton1_Click()
With Range(RefEdit1)
Copy
Range("e1").PasteSpecial
End With
End Sub
to:
Private Sub CommandButton1_Click()
sheet13.Range(RefEdit1).select
selection.copy
sheet13.Range("e1").selects
selection.pastespecial

End Sub

Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=559831