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

because of that:
"Selection.Cut "

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

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