paste special does not work

[Panagiotis Marantos]

why the paste special brings an error message : runtime error 1004:
Pastespecial method of range class failed

Private Sub CommandButton3_Click()
Dim recordnumber As String
Dim a, b, c As String
Dim recordno As Integer
recordno = countrecords + 1
a = "A" & recordno
b = "HO" & recordno
c = a & ":" & b
For Each cell In Worksheets("Intro Page").Range("K63:K103")
If cell.Value = "" Then
cell.Value = Worksheets("Temporary Record").Range("B1")
Exit For
End If
Next cell

Worksheets("Temporary Record").Activate
Worksheets("Temporary Record").Range("B1:B223").Select
Selection.Cut
Worksheets("Saved Records").Activate
Worksheets("Saved Records").Range(c).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=True

End Sub

[Snake Plissken]

because of that:
"Selection.Cut "

try to make cut and paste special during standard "hand" sheet processing...

[Panagiotis Marantos]

don't worry

i found the solution...

no paste special when you cut the cells.

dohh!!!!

"Panagiotis Marantos" wrote:

> why the paste special brings an error message : runtime error 1004:
> Pastespecial method of range class failed
>
> Private Sub CommandButton3_Click()
> Dim recordnumber As String
> Dim a, b, c As String
> Dim recordno As Integer
> recordno = countrecords + 1
> a = "A" & recordno
> b = "HO" & recordno
> c = a & ":" & b
> For Each cell In Worksheets("Intro Page").Range("K63:K103")
> If cell.Value = "" Then
> cell.Value = Worksheets("Temporary Record").Range("B1")
> Exit For
> End If
> Next cell
>
> Worksheets("Temporary Record").Activate
> Worksheets("Temporary Record").Range("B1:B223").Select
> Selection.Cut
> Worksheets("Saved Records").Activate
> Worksheets("Saved Records").Range(c).Select
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
> SkipBlanks:=False, Transpose:=True
>
> End Sub