PDA

View Full Version : Solved: Copy.



Pinokkio
03-27-2010, 01:31 PM
Hello,


Sub Factuur_bewaren() 'aangepast 28feb 2007

Dim klant As String
Dim Datum As String
Dim tijd As String
Dim filenaam As String
Dim i As Integer
Dim bk As Workbook, sh As Worksheet
Dim sName As String
Dim wks As Worksheet


Application.ScreenUpdating = False
Worksheets("Factuur").Select
[H1].ClearContents
[D13].Select
'naam klant staat in in vak D13
klant = ActiveSheet.[D13].Value
'neemt de dag van vandaag en vomt die om tot een string
Datum = Format(Date, "dd-mm")
'neemt het huidige tijdstip aan elkaar uu-mm-ss
tijd = Format(Time, "hhmmss")
'samenstelling filenaam geen overschrijving mogelijk door tijdsnotatie
filenaam = klant & "-" & Datum & "-" & tijd '& ".xls"
'geeft filenaam op het werkblad
ActiveSheet.Range("H1").Value = filenaam

Range("B1:O54").copy
Sheets.Add after:=Sheets(Sheets.Count)
.Select

Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
[A1].Select

Set wks = ActiveSheet
Do While sName <> wks.Name
sName = ActiveSheet.Range("H1").Value
On Error Resume Next
wks.Name = sName
Loop
Set wks = Nothing
Worksheets("Factuur").Select
[D13].Select
MsgBox " Factuur word bewaard "
Application.DisplayAlerts = True
End Sub

Wen I use this macro it works fine.



Sub Uitvoeren()
Application.ScreenUpdating = False
Dim strNm As String
'Sheets(Factuur).Select
Range("D13").Select
strNm = ActiveCell
Range("B1:O54").copy
Sheets(strNm).Select

Rows("1:55").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

.Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks :=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
[A1].Select
End Sub
[B]But wen I use this one, I get an ERROR 1004 on:
For this operation, all merged cells the same size

[B]Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

Can someone tel me why the first macro works and the second dont?

P.

Aussiebear
03-27-2010, 02:49 PM
Stay away from merged cells where ever possible. Its better to use "Center across selection", where you need to combine cells.

Pinokkio
03-27-2010, 03:11 PM
Thanks for reply,

Im gonna try to change It.

P.